Changeset 3345

Timestamp:

Jun 20, 2018, 10:42:51 AM (6 years ago)

Author:

jyg

Message:

Bug fix in cv3_routines.F90 concerning the computation of the in-cloud water content

File:

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

LMDZ6/trunk/libf/phylmd/cv3_routines.F90

@@ -3753 +3753 @@
       IF (i<=inb(il) .AND. nent(il,i)==0 .AND. iflag(il)<=1) THEN              ! cld
         qcond(il, i) = qcond(il, i) + (1.-ep(il,i))*clw(il, i)                 ! cld
-        qtment(il, i) = qent(il,k,i) + qtment(il,i)                          ! cld
+!jyg<   Bug correction 20180620
+!      PROBLEM: Should not qent(il,i,i) be taken into account even if nent(il,i)/=0?
+!!        qtment(il, i) = qent(il,k,i) + qtment(il,i)                            ! cld
+        qtment(il, i) = qent(il,i,i) + qtment(il,i)                            ! cld
+!>jyg
         nqcond(il, i) = nqcond(il, i) + 1.                                     ! cld
       END IF                                                                   ! cld