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

Diff of /trunk/phylmd/concvl.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 177 by guez, Wed Feb 24 18:44:07 2016 UTC
# Line 98  contains Line 98  contains
98            END DO            END DO
99         END DO         END DO
100      ELSE      ELSE
101         ! iflag_con=3 (modif de puristes qui fait la diffce pour la         ! iflag_con=3 (modification de puristes qui fait la
102         ! convergence numerique)         ! diff\'erence pour la convergence numerique)
103         DO k = 1, klev         DO k = 1, klev
104            DO i = 1, klon            DO i = 1, klon
105               zx_t = t(i, k)               zx_t = t(i, k)
# Line 112  contains Line 112  contains
112         END DO         END DO
113      END IF      END IF
114    
115      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, &
116           d_u, d_v, rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, &           rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, upwd, dnwd, &
117           upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp)           dnwd0, qcondc, wd, cape, da, phi, mp)
118    
119      DO i = 1, klon      DO i = 1, klon
120         rain(i) = rain(i)/86400.         rain(i) = rain(i)/86400.
Legend:
Removed from v.134  
changed lines
  Added in v.177
  ViewVC Help
Powered by ViewVC 1.1.21