Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

if (crm_ny.eq.1) then
   crm_angle(:ncol) = pi/2.
else
   crm_angle(:ncol) = 0.
end if

Avoid GNU specific extensions

For portability, stick to language standards and avoid relying on GNU specific features.

While compiling your code with gfortran, test your code with -std=f2003 etc. (not -std=gnu which is the default)

https://gcc.gnu.org/onlinedocs/gfortran/Extensions-implemented-in-GNU-Fortran.html

Specifying either -std=f95, -std=f2003, -std=f2008, or -std=f2018 disables extensions



Other Sources