8 |
d_u_ajs, d_v_ajs, d_t_ajs, d_q_ajs, fm_therm, entr_therm) |
d_u_ajs, d_v_ajs, d_t_ajs, d_q_ajs, fm_therm, entr_therm) |
9 |
|
|
10 |
! From LMDZ4/libf/phylmd/calltherm.F, version 1.2 2004/12/10 11:27:46 |
! From LMDZ4/libf/phylmd/calltherm.F, version 1.2 2004/12/10 11:27:46 |
11 |
! Thermiques |
|
12 |
|
! 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, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, & |