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

Timestamp:

Sep 10, 2024, 4:25:29 PM (10 days ago)

Author:

abarral

Message:

(WIP) Replace REPROBUS CPP KEY by logical
properly name modules

File:

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

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

@@ -8 +8 @@
 !      CPP_PHYS       -> CPPKEY_PHYS
 !      INCA           -> CPPKEY_INCA   ! -> also in lmdz_inca_wrappers.F90
+!      REPROBUS       -> CPPKEY_REPROBUS ! -> also in lmdz_reprobus_wrappers.F90
 !      CPP_StratAer   -> CPPKEY_STRATAER
 !      CPP_DUST       -> CPPKEY_DUST
@@ -23 +24 @@
   PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
           CPPKEY_DEBUGIO, CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM, CPPKEY_COSP, CPPKEY_COSP2, &
-          CPPKEY_COSPV2
+          CPPKEY_COSPV2, CPPKEY_REPROBUS
 
 #ifdef NC_DOUBLE
@@ -41 +42 @@
 #else
   LOGICAL, PARAMETER :: CPPKEY_INCA = .FALSE.
+#endif
+
+#ifdef REPROBUS
+  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .FALSE.
 #endif