12 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
13 |
USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, & |
USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, & |
14 |
tho_thermals, w2di_thermals |
tho_thermals, w2di_thermals |
15 |
|
use thermcell_m, only: thermcell |
16 |
|
|
17 |
REAL, intent(in):: dtime |
REAL, intent(in):: dtime |
18 |
|
|
19 |
REAL u_seri(klon, klev), v_seri(klon, klev) |
REAL, intent(inout):: u_seri(klon, klev), v_seri(klon, klev) |
20 |
REAL, intent(inout):: t_seri(klon, klev) |
REAL, intent(inout):: t_seri(klon, klev) |
21 |
real q_seri(klon, klev) |
real q_seri(klon, klev) |
22 |
REAL, intent(in):: paprs(klon, klev+1) |
REAL, intent(in):: paprs(klon, klev+1) |