818 |
da = 0. |
da = 0. |
819 |
mp = 0. |
mp = 0. |
820 |
phi = 0. |
phi = 0. |
821 |
CALL concvl(dtphys, paprs, play, t_seri, q_seri, u_seri, v_seri, sig1, & |
CALL concvl(paprs, play, t_seri, q_seri, u_seri, v_seri, sig1, w01, & |
822 |
w01, d_t_con, d_q_con, d_u_con, d_v_con, rain_con, ibas_con, & |
d_t_con, d_q_con, d_u_con, d_v_con, rain_con, ibas_con, itop_con, & |
823 |
itop_con, upwd, dnwd, dnwd0, Ma, cape, iflagctrl, qcondc, pmflxr, & |
upwd, dnwd, dnwd0, Ma, cape, iflagctrl, qcondc, pmflxr, da, phi, mp) |
|
da, phi, mp) |
|
824 |
snow_con = 0. |
snow_con = 0. |
825 |
clwcon0 = qcondc |
clwcon0 = qcondc |
826 |
mfu = upwd + dnwd |
mfu = upwd + dnwd |