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

Timestamp:

Mar 5, 2024, 9:48:28 PM (2 months ago)

Author:

fhourdin

Message:

Suite travail sur les poches

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_wake_ini.F90

@@ -31 +31 @@
   REAL, SAVE, PROTECTED                                       :: tau_cv
   !$OMP THREADPRIVATE(tau_cv)
+
+   REAL, SAVE, PROTECTED                                       :: wk_delta_t_min
+  !$OMP THREADPRIVATE(wk_delta_t_min)
+
+   REAL, SAVE, PROTECTED                                       :: wk_frac_int_delta_t
+  !$OMP THREADPRIVATE(wk_frac_int_delta_t)
+
   REAL, SAVE, PROTECTED                                       :: rzero, aa0 ! minimal wake radius and area
   !$OMP THREADPRIVATE(rzero, aa0)
@@ -215 +222 @@
   CALL getin_p('iflag_wk_profile',iflag_wk_profile) ! switch between wdens prescribed 
                                                     ! and wdens prognostic
-  iflag_wk_profile = 0
+ ! iflag_wk_profile = 0
+  iflag_wk_new_ptop = 0
   CALL getin_p('iflag_wk_new_ptop',iflag_wk_new_ptop)
 
   tau_cv = 4000.
   CALL getin_p('tau_cv', tau_cv)
+  
+  wk_delta_t_min = 0.
+  CALL getin_p('wk_delta_t_min', wk_delta_t_min)
+  
+  wk_frac_int_delta_t = 0.9
+  CALL getin_p('wk_frac_int_delta_t', wk_frac_int_delta_t)
+
 
 !------------------------------------------------------------------------ 
@@ -245 +260 @@
   CALL getin_p('iflag_wk_check_trgl ', iflag_wk_check_trgl)
   WRITE(*,*) 'iflag_wk_check_trgl=', iflag_wk_check_trgl
+  
+  WRITE(*,*) 'wk_delta_t_min=', wk_delta_t_min
+  WRITE(*,*) 'wk_frac_int_delta_t=', wk_frac_int_delta_t
+  WRITE(*,*) 'iflag_wk_new_ptop=', iflag_wk_new_ptop
 
  RETURN