26 |
use cv30_undilute2_m, only: cv30_undilute2 |
use cv30_undilute2_m, only: cv30_undilute2 |
27 |
use cv30_unsat_m, only: cv30_unsat |
use cv30_unsat_m, only: cv30_unsat |
28 |
use cv30_yield_m, only: cv30_yield |
use cv30_yield_m, only: cv30_yield |
29 |
|
use cv_thermo_m, only: cv_thermo |
30 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
31 |
|
|
32 |
real, intent(in):: t1(klon, klev) ! temperature (K) |
real, intent(in):: t1(klon, klev) ! temperature (K) |
168 |
! SET CONSTANTS AND PARAMETERS |
! SET CONSTANTS AND PARAMETERS |
169 |
|
|
170 |
! set thermodynamical constants: |
! set thermodynamical constants: |
|
! (common cvthermo) |
|
171 |
CALL cv_thermo |
CALL cv_thermo |
172 |
|
|
173 |
! set convect parameters |
! set convect parameters |
257 |
|
|
258 |
! Unsaturated (precipitating) downdrafts |
! Unsaturated (precipitating) downdrafts |
259 |
CALL cv30_unsat(icb(:ncum), inb(:ncum), t, q, qs, gz, u, v, p, ph, th, & |
CALL cv30_unsat(icb(:ncum), inb(:ncum), t, q, qs, gz, u, v, p, ph, th, & |
260 |
tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, mp, & |
tv, lv, cpn, ep(:ncum, :), sigp(:ncum, :), clw(:ncum, :), & |
261 |
qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, evap, b) |
m(:ncum, :), ment(:ncum, :, :), elij(:ncum, :, :), delt, plcl, & |
262 |
|
mp, qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, & |
263 |
|
evap, b) |
264 |
|
|
265 |
! Yield (tendencies, precipitation, variables of interface with |
! Yield (tendencies, precipitation, variables of interface with |
266 |
! other processes, etc) |
! other processes, etc) |