Ocean Modeling Discussion

Did you solve the problem?
I'm facing the same.
Kindly help

This is the exact same problem except with REAL instead of real: Idigits(ng)=INT(LOG10(REAL(Lm(ng),r8)))+1 Jdigits(ng)=INT(LOG10(REAL(Mm(ng),r8)))+1 #ifdef SOLVE3D Kdigits(ng)=INT(LOG10(REAL(N (ng),r8)))+1 #endif You can change them all to lower case and use mpich or make them all upper case and ...

This happened in the C preprocessor step - the lines in mod_param.F are like: real(r8), pointer :: time_min(:) ! starting time real(r8), pointer :: time_max(:) ! ending time I don't know where it's coming from, but there must be a "#define real" or -Dreal being set. Can you show us the cpp command ...

d /home/pjvidya/MyDir/ROMS/Projects/Balaji/BOB/Build; /opt/openmpi/bin/mpif90 -c -frepack-arrays -g -fbounds-check -ffree-form -ffree-line-length-none mod_param.f90 mod_param.f90:119.10: 1(r8), pointer :: time_min(:) ! starting time 1 Error: Non-numeric character in statement label at (1) mod_param ...