Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.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/misc/lmdz_cppkeys_wrapper.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90

@@ -7 +7 @@
 !      NC_DOUBLE -> nf90_format
 !      CPP_PHYS  -> CPPKEY_PHYS
+!      INCA      -> CPPKEY_INCA
 ! ---------------------------------------------
 
@@ -13 +14 @@
   USE netcdf, ONLY: nf90_float, nf90_double
   IMPLICIT NONE; PRIVATE
-  PUBLIC nf90_format, CPPKEY_PHYS
+  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA
 
 #ifdef NC_DOUBLE
@@ -27 +28 @@
 #endif
 
+#ifdef INCA
+  LOGICAL, PARAMETER :: CPPKEY_INCA = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_INCA = .FALSE.
+#endif
+
 END MODULE lmdz_cppkeys_wrapper