Index: LMDZ6/trunk/libf/phylmd/cv3_routines.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3_routines.F90	(revision 4075)
+++ LMDZ6/trunk/libf/phylmd/cv3_routines.F90	(revision 4076)
@@ -3972,5 +3972,6 @@
     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,5 +3983,6 @@
     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,5 +3996,6 @@
 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