Changeset 5102 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90

Timestamp:

Jul 23, 2024, 8:38:56 AM (2 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90 (modified) (3 diffs)

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

@@ -5 +5 @@
 ! and imported through USE ..., ONLY: ... elsewhere
 ! CPP keys supported (key -> fortran variables associated):
-!      NC_DOUBLE -> nf90_format
-!      CPP_PHYS  -> CPPKEY_PHYS
-!      INCA      -> CPPKEY_INCA
-!      CPP_StratAer-> CPPKEY_STRATAER
-!      CPP_DUST  -> CPPKEY_DUST
+!      NC_DOUBLE      -> nf90_format
+!      CPP_PHYS       -> CPPKEY_PHYS
+!      INCA           -> CPPKEY_INCA
+!      CPP_StratAer   -> CPPKEY_STRATAER
+!      CPP_DUST       -> CPPKEY_DUST
+!      CPP_INLANDSIS  -> CPPKEY_INLANDSIS
 ! ---------------------------------------------
 
@@ -17 +18 @@
   IMPLICIT NONE; PRIVATE
   PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
-      CPPKEY_DEBUGIO
+      CPPKEY_DEBUGIO, CPPKEY_INLANDSIS
 
 #ifdef NC_DOUBLE
@@ -55 +56 @@
 #endif
 
+#ifdef CPP_INLANDSIS
+  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .FALSE.
+#endif
+
 END MODULE lmdz_cppkeys_wrapper