Changeset 4076

Timestamp:

Feb 4, 2022, 9:37:44 AM (2 years ago)

Author:

jyg

Message:

Fix sign error in convective saturated downdraught mass flux

File:

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

LMDZ6/trunk/libf/phylmd/cv3_routines.F90

@@ -3972 +3972 @@
     DO il = 1, ncum
       IF (j<=inb(il)) THEN
-        dn_to(il,i) = dn_to(il,i) + ment(il,j,i)
+!!        dn_to(il,i) = dn_to(il,i) + ment(il,j,i)       !jyg,20220202
+        dn_to(il,i) = dn_to(il,i) - ment(il,j,i)
       ENDIF
     ENDDO
@@ -3982 +3983 @@
     DO il = 1, ncum
       IF (i<=inb(il)) THEN
-        dn_from(il,i) = dn_from(il,i) + ment(il,i,j)
+!!        dn_from(il,i) = dn_from(il,i) + ment(il,i,j)   !jyg,20220202
+        dn_from(il,i) = dn_from(il,i) - ment(il,i,j)
       ENDIF
     ENDDO
@@ -3994 +3996 @@
 DO i = nl-1, 1, -1
   DO il = 1, ncum
-    dnwd(il,i) = max(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i))
+!!    dnwd(il,i) = max(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i)) !jyg,20220202
+    dnwd(il,i) = min(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i))
   ENDDO
 ENDDO