/[lmdze]/trunk/phylmd/Conflx/flxflux.f
ViewVC logotype

Diff of /trunk/phylmd/Conflx/flxflux.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 102 by guez, Wed Mar 5 14:57:53 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 49  contains Line 49  contains
49    
50      ! Local:      ! Local:
51      REAL cevapcu(klev)      REAL cevapcu(klev)
52      REAL ztmsmlt, zdelta, zqsat      REAL ztmsmlt, zqsat
53    
54      !jq The variable maxpdmfdp(klon) has been introduced by Olivier Boucher      !jq The variable maxpdmfdp(klon) has been introduced by Olivier Boucher
55      !jq 14/11/00 to fix the problem with the negative precipitation.      !jq 14/11/00 to fix the problem with the negative precipitation.
# Line 160  contains Line 160  contains
160                  zsnmlt=MIN(pmflxs(i, k), zfac*(pten(i, k)-ztmelp2))                  zsnmlt=MIN(pmflxs(i, k), zfac*(pten(i, k)-ztmelp2))
161                  pdpmel(i, k)=zsnmlt                  pdpmel(i, k)=zsnmlt
162                  ztmsmlt=pten(i, k)-zsnmlt/zfac                  ztmsmlt=pten(i, k)-zsnmlt/zfac
163                  zdelta=MAX(0., SIGN(1., RTT-ztmsmlt))                  zqsat = R2ES * FOEEW(ztmsmlt, RTT >= ztmsmlt) / pap(i, k)
                 zqsat = R2ES * FOEEW(ztmsmlt, zdelta) / pap(i, k)  
164                  zqsat = MIN(0.5, zqsat)                  zqsat = MIN(0.5, zqsat)
165                  zqsat = zqsat / (1. - RETV * zqsat)                  zqsat = zqsat / (1. - RETV * zqsat)
166                  pqsen(i, k) = zqsat                  pqsen(i, k) = zqsat
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21