Changeset 5653 for LMDZ6/trunk

Timestamp:

May 14, 2025, 4:46:56 PM (8 weeks ago)

Author:

evignon

Message:

petit ajustement travail sur la phase dans les nuages de couche limite
Lea et Etienne

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_main.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_main.f90

@@ -843 +843 @@
                      DO i=1,klon
                         IF (fraca(i,k) .GT. min_frac_th_cld) THEN
-                           zcf(i)=MIN(MAX(rnebth(i,k),0.), 1.)*fraca(i,k)
-                           qincloud(i)=zqn(i)/fraca(i,k)
+                           zcf(i)=MIN(MAX(rnebth(i,k),0.), 1.)/fraca(i,k)
+                           qincloud(i)=zqn(i)*fraca(i,k)
                         ELSE
                            zcf(i) = 0.
@@ -857 +857 @@
                      !Environment
                      DO i=1,klon
-                        qincloud(i)=zqn(i)/(1.-fraca(i,k))
-                        zcf(i)=MIN(MAX(rneb(i,k)-rnebth(i,k), 0.),1.)*(1.-fraca(i,k))
+                        qincloud(i)=zqn(i)*(1.-fraca(i,k))
+                        zcf(i)=MIN(MAX(rneb(i,k)-rnebth(i,k), 0.),1.)/(1.-fraca(i,k))
                         IF (k .GT. 1) THEN
                            ! evaluate the mixing sursaturation using saturation deficit at level below