Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigeom.F

Timestamp:

Jul 20, 2024, 11:17:09 PM (4 months ago)

Author:

abarral

Message:

Move lmdz_netcdf_format.F90 -> lmdz_cppkeys_wrapper.F90 to handle other CPP keys
Replace all (except wrapper) use of CPP_PHYS by fortran logical
Refactor makelmdz_fcm (put blocks into functions, use modern bash)

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigeom.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigeom.F

@@ -348 +348 @@
       DO j = 1, jjp1
 c
-      IF ( j. eq. 1 )  THEN
+      IF ( j == 1 )  THEN
 c
       yprm           = yprimu1(j)
@@ -378 +378 @@
       END IF
 c
-      IF ( j. eq. jjp1 )  THEN
+      IF ( j == jjp1 )  THEN
        yprp               = yprimu2(j-1)
        rlatp              = rlatu2 (j-1)