Changeset 5151 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Jul 31, 2024, 5:24:31 PM (5 months ago)

Author:

abarral

Message:

Move CPP_COSP* in lmdz_cppkeys_wrapper.F90
Change calcul_divers.h into lmdz_calcul_divers.f90

File:

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

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

@@ -12 +12 @@
 !      CPP_INLANDSIS  -> CPPKEY_INLANDSIS
 !      OUTPUT_PHYS_SCM-> CPPKEY_OUTPUTPHYSSCM
+!      CPP_COSP       -> CPPKEY_COSP
+!      CPP_COSP2      -> CPPKEY_COSP2
+!      CPP_COSPV2     -> CPPKEY_COSPV2
 ! ---------------------------------------------
 
@@ -19 +22 @@
   IMPLICIT NONE; PRIVATE
   PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
-      CPPKEY_DEBUGIO, CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM
+          CPPKEY_DEBUGIO, CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM, CPPKEY_COSP, CPPKEY_COSP2, &
+          CPPKEY_COSPV2
 
 #ifdef NC_DOUBLE
@@ -69 +73 @@
 #endif
 
+#ifdef CPP_COSP
+  LOGICAL, PARAMETER :: CPPKEY_COSP = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_COSP = .FALSE.
+#endif
+
+#ifdef CPP_COSP2
+  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .FALSE.
+#endif
+
+#ifdef CPP_COSPV2
+  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .FALSE.
+#endif
+
 END MODULE lmdz_cppkeys_wrapper