--- trunk/phylmd/concvl.f 2014/08/29 13:00:05 103 +++ trunk/Sources/phylmd/concvl.f 2016/03/11 18:47:26 178 @@ -16,7 +16,6 @@ use clesphys2, only: iflag_con use cv_driver_m, only: cv_driver - USE dimens_m, ONLY: nqmx USE dimphy, ONLY: klev, klon USE fcttre, ONLY: foeew USE suphec_m, ONLY: retv, rtt @@ -98,8 +97,8 @@ END DO END DO ELSE - ! iflag_con=3 (modif de puristes qui fait la diffce pour la - ! convergence numerique) + ! iflag_con=3 (modification de puristes qui fait la + ! diff\'erence pour la convergence numerique) DO k = 1, klev DO i = 1, klon zx_t = t(i, k) @@ -112,9 +111,9 @@ END DO END IF - CALL cv_driver(t, q, qs, u, v, em_p, em_ph, iflag, d_t, d_q, & - d_u, d_v, rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, & - upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp) + CALL cv_driver(t, q, qs, u, v, em_p, em_ph, iflag, d_t, d_q, d_u, d_v, & + rain, pmflxr, cbmf, sig1, w01, kbas, ktop, dtime, ma, upwd, dnwd, & + dnwd0, qcondc, wd, cape, da, phi, mp) DO i = 1, klon rain(i) = rain(i)/86400.