Changeset 4842 for LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90

Timestamp:

Mar 3, 2024, 2:34:25 AM (3 months ago)

Author:

fhourdin

Message:

Suite poches

File:

• LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90

@@ -48 +48 @@
   INTEGER, SAVE, PROTECTED                                    :: iflag_wk_profile
   !$OMP THREADPRIVATE(iflag_wk_profile)
+
+  INTEGER, SAVE, PROTECTED                                    :: iflag_wk_new_ptop
+  !$OMP THREADPRIVATE(iflag_wk_new_ptop)
 
   REAL, SAVE, PROTECTED                                       :: wdensinit ! Minimum wake density used to restart wakes from a wake-free state
@@ -212 +215 @@
   CALL getin_p('iflag_wk_profile',iflag_wk_profile) ! switch between wdens prescribed 
                                                     ! and wdens prognostic
+  iflag_wk_profile = 0
+  CALL getin_p('iflag_wk_new_ptop',iflag_wk_new_ptop)
+
   tau_cv = 4000.
   CALL getin_p('tau_cv', tau_cv)