Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/lmdz_wake_ini.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/lmdz_wake_ini.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/lmdz_wake_ini.f90

@@ -55 +55 @@
   INTEGER, SAVE, PROTECTED                                    :: iflag_wk_profile
   !$OMP THREADPRIVATE(iflag_wk_profile)
+
+  LOGICAL, SAVE, PROTECTED                                    :: flag_dadv_implicit
+  !$OMP THREADPRIVATE(flag_dadv_implicit)
 
   INTEGER, SAVE, PROTECTED                                    :: wk_nsub
@@ -250 +253 @@
   CALL getin_p('wk_frac_int_delta_t', wk_frac_int_delta_t)
 
+  flag_dadv_implicit = .FALSE.
+  CALL getin_p('flag_dadv_implicit', flag_dadv_implicit)
+
   CALL getin_p('CPPKEY_IOPHYS_WK', CPPKEY_IOPHYS_WK)