...
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