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

Timestamp:

Feb 1, 2023, 5:35:29 PM (17 months ago)

Author:

evignon

Message:

travail de l'atelier nuages du 30/01/23: on renomme cldliq (ou radliq) en radocond
car le nom est tres trompeur + on ajoute des commentaires dans lscp_mod

File:

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

LMDZ6/trunk/libf/phylmd/lscp_ini_mod.F90

@@ -35 +35 @@
   !$OMP THREADPRIVATE(iflag_mpc_bl)
   
-  LOGICAL, SAVE :: ok_radliq_snow=.false.       ! take into account the mass of ice precip in the cloud ice content seen by radiation
-  !$OMP THREADPRIVATE(ok_radliq_snow)
+  LOGICAL, SAVE :: ok_radocond_snow=.false.       ! take into account the mass of ice precip in the cloud ice content seen by radiation
+  !$OMP THREADPRIVATE(ok_radocond_snow)
 
 
@@ -56 +56 @@
     CALL getin_p('rain_int_min',rain_int_min) 
     CALL getin_p('iflag_mpc_bl',iflag_mpc_bl)
-    CALL getin_p('ok_radliq_snow',ok_radliq_snow)         
+    CALL getin_p('ok_radocond_snow',ok_radocond_snow)         
     WRITE(lunout,*) 'lscp, ninter:', ninter
     WRITE(lunout,*) 'lscp, iflag_evap_prec:', iflag_evap_prec
@@ -62 +62 @@
     WRITE(lunout,*) 'lscp, rain_int_min:', rain_int_min
     WRITE(lunout,*) 'lscp, iflag_mpc_bl:', iflag_mpc_bl
-    WRITE(lunout,*) 'lscp, ok_radliq_snow:', ok_radliq_snow
+    WRITE(lunout,*) 'lscp, ok_radocond_snow:', ok_radocond_snow
     
     ! check for precipitation sub-time steps