/[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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 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.82  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21