Ignore:
Timestamp:
Nov 12, 2018, 1:52:29 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of Yann's latest (summer/fall 2018) modifications for
convergence of DYNAMICO/LMDZ physics
YM/LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/cv3_routines.F90

    r3411 r3413  
    37563756        IF (i<=inb(il) .AND. nent(il,i)==0 .AND. iflag(il)<=1) THEN              ! cld
    37573757          qcond(il, i) = qcond(il, i) + (1.-ep(il,i))*clw(il, i)                 ! cld
    3758 !jyg<   Bug correction 20180620
    3759 !      PROBLEM: Should not qent(il,i,i) be taken into account even if nent(il,i)/=0?
    3760 !!        qtment(il, i) = qent(il,k,i) + qtment(il,i)
    3761 ! cld
    3762           qtment(il, i) = qent(il,i,i) + qtment(il,i)
    3763 ! cld
    3764 !>jyg
    3765 
     3758          qtment(il, i) = qent(il,k,i) + qtment(il,i)                          ! cld
    37663759          nqcond(il, i) = nqcond(il, i) + 1.                                     ! cld
    37673760        END IF                                                                   ! cld
Note: See TracChangeset for help on using the changeset viewer.