Changeset 4818 for LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90

Timestamp:

Feb 14, 2024, 4:44:16 PM (5 months ago)

Author:

evignon

Message:

modifications suite à l'atelier nuages du jour
le nouveau schema de precip est full operationnel!
(+ petite commentaire d'un print dans wake)

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90

@@ -946 +946 @@
                     zqn(i) = zq(i)
                     rneb(i,k) = 1.0
-                    zcond(i) = MAX(0.0,zqn(i)-gammasat(i)*zqs(i))
+                    zcond(i) = MAX(0.0,zqn(i)-zqs(i))
                     rhcl(i,k)=1.0
                 ELSE
-                    zcond(i) = MAX(0.0,zqn(i)-gammasat(i)*zqs(i))*rneb(i,k)
+                    zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)
                     ! following line is very strange and probably wrong:
                     rhcl(i,k)=(zqs(i)+zq(i))/2./zqs(i)