Changeset 5500 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 21, 2025, 12:03:19 PM (18 hours ago)

Author:

evignon

Message:

petite correction mass fixer dans le cas ou on active la neige soufflee

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -5492 +5492 @@
       !--compute ratio of what q+ql should be with conservation to what it is
       IF (ok_bs) THEN
-        corrqql=(qql1(i)+(evap(i)-rain_fall(i)-snow_fall(i)-bs_fall(i))*pdtphys)/qql2(i)
+        corrqql=(qql1(i)+(evap(i)+snowerosion(i)-rain_fall(i)-snow_fall(i)-bs_fall(i))*pdtphys)/qql2(i)
       ELSE
         corrqql=(qql1(i)+(evap(i)-rain_fall(i)-snow_fall(i))*pdtphys)/qql2(i)