12 |
! Thermiques. |
! Thermiques. |
13 |
|
|
14 |
use comconst, only: dtphys |
use comconst, only: dtphys |
15 |
USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, & |
USE ctherm_m, ONLY: nsplit_thermals |
|
tho_thermals, w2di_thermals |
|
16 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
17 |
use thermcell_m, only: thermcell |
use thermcell_m, only: thermcell |
18 |
|
|
61 |
do isplit = 1, nsplit_thermals |
do isplit = 1, nsplit_thermals |
62 |
CALL thermcell(klon, klev, zdt, pplay, paprs, pphi, u_seri, v_seri, & |
CALL thermcell(klon, klev, zdt, pplay, paprs, pphi, u_seri, v_seri, & |
63 |
t_seri, q_seri, d_u_the, d_v_the, d_t_the, d_q_the, zfm_therm, & |
t_seri, q_seri, d_u_the, d_v_the, d_t_the, d_q_the, zfm_therm, & |
64 |
zentr_therm, r_aspect_thermals, l_mix_thermals, w2di_thermals, & |
zentr_therm) |
|
tho_thermals) |
|
65 |
|
|
66 |
! transformation de la derivee en tendance |
! transformation de la derivee en tendance |
67 |
d_t_the=d_t_the*dtphys/real(nsplit_thermals) |
d_t_the=d_t_the*dtphys/real(nsplit_thermals) |