Nceplibs UPP

Inquiries or comments related to the Unified Post Processor

Moderators: NCAR/SOLAR, NCAR/UPP

Post Reply
hnyc2020
Posts: 4
Joined: Wed Dec 02, 2020 12:37 am

Nceplibs UPP

Post by hnyc2020 » Sat Dec 05, 2020 6:15 pm

Hello,

I get this error when I type (./make_ncep_libs.sh -s linux -c gnu -d MY directory/nceplibs -o 0 -a upp)

------------------------------------------------------------------------------------------------------------------------------------
gfortran -c -c -O3 -fconvert=big-endian -fno-second-underscore -frecord-marker=4 -fno-range-check -fbacktrace intmath.f
intmath.f:207:14:

207 | if(iand(i,i-1)/=0) then
| 1
Error: Arguments of ‘iand’ have different kind type parameters at (1)
intmath.f:172:14:

172 | if(iand(i,i-1)/=0) then
| 1
Error: Arguments of ‘iand’ have different kind type parameters at (1)
make[1]: *** [makefile:108: ../../../../libg2_v3.1.0_4.a(intmath.o)] Error 1
---------------------------------------------------------------------------------------------------------------------------------------

I had to modify intmath.f (in the WPS folder, b=version 4.1) as below

if(iand(i,i-1)/=0) then TO if(iand(i,i-1_2)/=0) then
if(iand(i,i-1)/=0) then TO if(iand(i,i-1_1)/=0) then

(see https://github.com/wrf-model/WPS/pull/1 ... db5fe0fd4c)

as ungrib.exe did not work initially (it worked follwing these modifications).


So, I guess these modifications had some effects when I want to compile the Ncep libraries.

I found a note on YouTube to change if(iand(i,i-1)/=0) then TO if(iand(int(i,kind(i-1)),i-1)/=0) then I tried ....It did not work.
I have attached my intmath.f file to this post.

How should I fix it?

Thank You!
Attachments
intmath.f
(7.33 KiB) Downloaded 13 times

kavulich
Posts: 1
Joined: Thu Apr 19, 2018 8:47 pm

Re: Nceplibs UPP

Post by kavulich » Mon Dec 14, 2020 9:57 pm

Hello,

Can you please try the fix listed here? https://github.com/NCAR/NCEPlibs/pull/16/files

If it works please let us know, otherwise we can investigate further.

Thanks,

-Mike

Post Reply

Return to “UPP”