Changeset 4420 for LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90

Timestamp:

Feb 6, 2023, 8:50:16 PM (17 months ago)

Author:

evignon

Message:

mise sous flag du bug d'autoconversion dans lscp

File:

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

LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90

@@ -38 +38 @@
   !$OMP THREADPRIVATE(ok_radocond_snow)
 
+  LOGICAL, SAVE :: ok_debug_autoconversion=.true.   ! removes a bug in the autoconversion process
+  !$OMP THREADPRIVATE(ok_debug_autoconversion)
+
 
 CONTAINS
@@ -56 +59 @@
     CALL getin_p('rain_int_min',rain_int_min) 
     CALL getin_p('iflag_mpc_bl',iflag_mpc_bl)
-    CALL getin_p('ok_radocond_snow',ok_radocond_snow)         
+    CALL getin_p('ok_radocond_snow',ok_radocond_snow) 
+    CALL getin_p('ok_debug_autoconversion',ok_debug_autoconversion)    
     WRITE(lunout,*) 'lscp, ninter:', ninter
     WRITE(lunout,*) 'lscp, iflag_evap_prec:', iflag_evap_prec
@@ -63 +67 @@
     WRITE(lunout,*) 'lscp, iflag_mpc_bl:', iflag_mpc_bl
     WRITE(lunout,*) 'lscp, ok_radocond_snow:', ok_radocond_snow
-    
+    WRITE(lunout,*) 'lscp, ok_debug_autoconversion:', ok_debug_autoconversion
+
     ! check for precipitation sub-time steps
     IF (ABS(dtime/REAL(ninter)-360.0).GT.0.001) THEN