Changeset 4062 for LMDZ6/trunk/libf/phylmd/lscp_mod.F90

Timestamp:

Jan 21, 2022, 6:50:11 PM (2 years ago)

Author:

oboucher

Message:

more keys for plane effects to avoid pb on outputs

File:

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

LMDZ6/trunk/libf/phylmd/lscp_mod.F90

@@ -14 +14 @@
      prfl, psfl, rhcl, zqta, fraca,                     &
      ztv, zpspsk, ztla, zthl, iflag_cld_th,             &
-     iflag_ice_thermo, iflag_ice_sursat)
+     iflag_ice_thermo, ok_ice_sursat)
 
 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -126 +126 @@
   INTEGER,                         INTENT(IN)   :: iflag_ice_thermo! flag to activate the ice thermodynamics
                                                                    ! CR: if iflag_ice_thermo=2, only convection is active    
-  INTEGER,                         INTENT(IN)   :: iflag_ice_sursat ! 0 = sursat desativee, 1 = sursat activee
+  LOGICAL,                         INTENT(IN)   :: ok_ice_sursat   ! flag to determine if ice sursaturation is activated 
 
   LOGICAL, DIMENSION(klon,klev),   INTENT(IN)   :: ptconv          ! grid points where deep convection scheme is active
@@ -816 +816 @@
              
                         !--ice sursaturation by Audran
-                        IF ((iflag_ice_sursat.EQ.0).OR.(Tbef(i).GT.t_glace_min)) THEN
+                        IF ((.NOT.ok_ice_sursat).OR.(Tbef(i).GT.t_glace_min)) THEN
 
                           IF (zpdf_e1(i).LT.1.e-10) THEN