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) |
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. |