/[lmdze]/trunk/Sources/phylmd/diagcld2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/diagcld2.f

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

trunk/libf/phylmd/diagcld2.f90 revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC trunk/Sources/phylmd/diagcld2.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 34  contains Line 34  contains
34      ! Variables locales:      ! Variables locales:
35      INTEGER i, k, kb, invb(klon)      INTEGER i, k, kb, invb(klon)
36      REAL zqs, zrhb, zcll, zdthmin(klon), zdthdp      REAL zqs, zrhb, zcll, zdthmin(klon), zdthdp
37      REAL zdelta, zcor      REAL zcor
38    
39      !-----------------------------------------------------------      !-----------------------------------------------------------
40    
# Line 67  contains Line 67  contains
67      DO i = 1, klon      DO i = 1, klon
68         kb=invb(i)         kb=invb(i)
69         IF (thermcep) THEN         IF (thermcep) THEN
70            zdelta=MAX(0., SIGN(1., RTT-t(i, kb)))            zqs= R2ES*FOEEW(t(i, kb), RTT >= t(i, kb))/pplay(i, kb)
           zqs= R2ES*FOEEW(t(i, kb), zdelta)/pplay(i, kb)  
71            zqs=MIN(0.5, zqs)            zqs=MIN(0.5, zqs)
72            zcor=1./(1.-RETV*zqs)            zcor=1./(1.-RETV*zqs)
73            zqs=zqs*zcor            zqs=zqs*zcor
Legend:
Removed from v.52  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21