/[lmdze]/trunk/phylmd/concvl.f
ViewVC logotype

Diff of /trunk/phylmd/concvl.f

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

trunk/phylmd/concvl.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC trunk/Sources/phylmd/concvl.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 16  contains Line 16  contains
16    
17      use clesphys2, only: iflag_con      use clesphys2, only: iflag_con
18      use cv_driver_m, only: cv_driver      use cv_driver_m, only: cv_driver
     USE dimens_m, ONLY: nqmx  
19      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
20      USE fcttre, ONLY: foeew      USE fcttre, ONLY: foeew
21      USE suphec_m, ONLY: retv, rtt      USE suphec_m, ONLY: retv, rtt
# Line 98  contains Line 97  contains
97            END DO            END DO
98         END DO         END DO
99      ELSE      ELSE
100         ! iflag_con=3 (modif de puristes qui fait la diffce pour la         ! iflag_con=3 (modification de puristes qui fait la
101         ! convergence numerique)         ! diff\'erence pour la convergence numerique)
102         DO k = 1, klev         DO k = 1, klev
103            DO i = 1, klon            DO i = 1, klon
104               zx_t = t(i, k)               zx_t = t(i, k)
# Line 112  contains Line 111  contains
111         END DO         END DO
112      END IF      END IF
113    
114      CALL cv_driver(t, q, qs, u, v, em_p, em_ph, iflag, d_t, d_q, &      CALL cv_driver(t, q, qs, u, v, em_p, em_ph, iflag, d_t, d_q, d_u, d_v, &
115           d_u, d_v, rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, &           rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, upwd, dnwd, &
116           upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp)           dnwd0, qcondc, wd, cape, da, phi, mp)
117    
118      DO i = 1, klon      DO i = 1, klon
119         rain(i) = rain(i)/86400.         rain(i) = rain(i)/86400.
Legend:
Removed from v.103  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21