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

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

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

revision 102 by guez, Wed Mar 26 17:18:58 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 117  contains Line 117  contains
117            zcvgt(i, k) = con_t(i, klev-k + 1)            zcvgt(i, k) = con_t(i, klev-k + 1)
118            zcvgq(i, k) = con_q(i, klev-k + 1)            zcvgq(i, k) = con_q(i, klev-k + 1)
119    
120            zqsat = MIN(0.5, R2ES * FOEEW(t(i, k), &            zqsat = MIN(0.5, R2ES * FOEEW(t(i, k), rtt >= t(i, k)) &
121                 merge(0., 1., rtt < t(i, k))) / paprsf(i, k))                 / paprsf(i, k))
122            qsen(i, k) = zqsat / (1. - RETV * zqsat)            qsen(i, k) = zqsat / (1. - RETV * zqsat)
123         ENDDO         ENDDO
124      ENDDO      ENDDO
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21