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