Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

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/phylmd/phytrac_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

@@ -1073 +1073 @@
 
           ! *********   end old version
-       ENDIF  !  iflag_lscav . EQ. 1, 2, 3 or 4
+       ENDIF  !  iflag_lscav  .EQ. 1, 2, 3 or 4
        !
     ENDIF !  lessivage