17 |
REAL u_seri(klon,klev),v_seri(klon,klev) |
REAL u_seri(klon,klev),v_seri(klon,klev) |
18 |
REAL t_seri(klon,klev),q_seri(klon,klev) |
REAL t_seri(klon,klev),q_seri(klon,klev) |
19 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
20 |
REAL pplay(klon,klev) |
REAL, intent(in):: pplay(klon,klev) |
21 |
REAL pphi(klon,klev) |
REAL pphi(klon,klev) |
22 |
|
|
23 |
CFH Update Thermiques |
CFH Update Thermiques |
61 |
zdt=dtime/float(nsplit_thermals) |
zdt=dtime/float(nsplit_thermals) |
62 |
do isplit=1,nsplit_thermals |
do isplit=1,nsplit_thermals |
63 |
|
|
|
cym CALL thermcell(klon,klev,zdt |
|
|
cym s ,pplay,paprs,pphi |
|
|
cym s ,u_seri,v_seri,t_seri,q_seri |
|
|
cym s ,d_u_the,d_v_the,d_t_the,d_q_the |
|
|
cym s ,zfm_therm,zentr_therm |
|
|
cym s ,r_aspect_thermals,l_mix_thermals,w2di_thermals |
|
|
cym s ,tho_thermals,3) |
|
|
|
|
64 |
CALL thermcell(klon,klev,zdt |
CALL thermcell(klon,klev,zdt |
65 |
s ,pplay,paprs,pphi |
s ,pplay,paprs,pphi |
66 |
s ,u_seri,v_seri,t_seri,q_seri |
s ,u_seri,v_seri,t_seri,q_seri |