Error when compile gentpro.f in SMOKEv4.7

SMOKE
1

Hello everyone,

I’m trying to compile SMOKEv4.7 with gfortran 9.2.1

I had the same error below and I solved it.

But after that, I have another error from gentpro.f

cd /media/data/SMOKEv4.7/subsys/smoke/src/…/Linux2_x86_64; gfortran -I/media/data/SMOKEv4.7/subsys/ioapi/ioapi/fixed_src -I/media/data/SMOKEv4.7/subsys/smoke/src/inc -I/media/data/SMOKEv4.7/subsys/ioapi/Linux2_x86_64 -ffixed-line-length-132 -fno-backslash -O3 -ffast-math -funroll-loops -m64 -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DNEED_ARGS=1 -c /media/data/SMOKEv4.7/subsys/smoke/src/emutil/gentpro.f
/media/data/SMOKEv4.7/subsys/smoke/src/emutil/gentpro.f:1663:25:

1663 | & ((‘,’, PROF_MON( S,NP )), NP = 1,12 )
| 1
Error: Expected a right parenthesis in expression at (1)
/media/data/SMOKEv4.7/subsys/smoke/src/emutil/gentpro.f:1695:34:

1695 | & ( (‘,’, PROF_DAY( S,NP ) ), NP = 1,31 )
| 1
Error: Expected a right parenthesis in expression at (1)
make: *** [Makefile:348: gentpro.o] Error 1

I think it might be related to 132 limitation, but I’m not sure.
Could you give any advice for solving this?

Thank you,
Sojin

2

It is a gfortran issue. I am planning to update the SMOKE to avoid this issue as well as GETPID gfortran issue. Here is the fix for the error you are having.