Changeset 6079 for LMDZ6

Timestamp:

Feb 16, 2026, 9:18:04 PM (11 days ago)

Author:

evignon

Message:

move check on cldfra1D

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_phase.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_phase.f90

@@ -244 +244 @@
          sigmaw2 = 2./3*tke(i)
          ! because cldfra is intent in, but can be locally modified due to test
-         cldfra1D = cldfra(i)
+         cldfra1D = MIN(cldfra(i),1.)
          ! T>0°C, no ice allowed
          IF (temp(i) .GE. RTT) THEN
@@ -262 +262 @@
             icefrac(i) = 1.
             dicefracdT(i) = 0.
-          ELSE 
+         ELSE 
             !---------------------------------------------------------
             !--             MIXED PHASE TEMPERATURE REGIME
@@ -283 +283 @@
             ! activate param for concerned grid points and for cloudy conditions
             IF ((pticefracturb(i)) .AND. (cldfra(i) .GT. 0.)) THEN
-               IF (cldfra(i) .GE. 1.0) THEN
-                 cldfra1D = 1.0
-               END IF
-
+               
                qiceini_incl = qice_ini(i)/cldfra1D + gamma_snwretro*snowcld(i)/pplay(i)*RD*temp(i)/snow_fallspeed