Changeset 5434 for LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.f90

Timestamp:

Dec 20, 2024, 11:48:05 AM (15 hours ago)

Author:

fhourdin

Message:

Superessing CPP in lmdz_*

Not possible for lmdz_thermcell_main because of isotopes

File:

• LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.f90

@@ -82 +82 @@
 
 ! CPP key used only in this module for debugging purposes. jyg 09/24
-!!#define IOPHYS_WK
-#ifdef IOPHYS_WK
-  LOGICAL, PARAMETER :: CPPKEY_IOPHYS_WK = .TRUE.
-#else
-  LOGICAL, PARAMETER :: CPPKEY_IOPHYS_WK = .FALSE.
-#endif
+  LOGICAL, SAVE, PROTECTED :: CPPKEY_IOPHYS_WK = .FALSE.
+  !$OMP THREADPRIVATE(CPPKEY_IOPHYS_WK)
 
 
@@ -253 +249 @@
   wk_frac_int_delta_t = 0.9
   CALL getin_p('wk_frac_int_delta_t', wk_frac_int_delta_t)
+
+  CALL getin_p('CPPKEY_IOPHYS_WK', CPPKEY_IOPHYS_WK)