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

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

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

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

@@ -9 +9 @@
 !      INCA      -> CPPKEY_INCA
 !      CPP_StratAer-> CPPKEY_STRATAER
+!      CPP_DUST  -> CPPKEY_DUST
 ! ---------------------------------------------
 
@@ -15 +16 @@
   USE netcdf, ONLY: nf90_float, nf90_double
   IMPLICIT NONE; PRIVATE
-  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER
+  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST
 
 #ifdef NC_DOUBLE
@@ -41 +42 @@
 #endif
 
+#ifdef CPP_DUST
+  LOGICAL, PARAMETER :: CPPKEY_DUST = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_DUST = .FALSE.
+#endif
+
 END MODULE lmdz_cppkeys_wrapper