383 |
INTEGER, save:: ibas_con(klon), itop_con(klon) |
INTEGER, save:: ibas_con(klon), itop_con(klon) |
384 |
|
|
385 |
REAL rain_con(klon), rain_lsc(klon) |
REAL rain_con(klon), rain_lsc(klon) |
386 |
REAL snow_con(klon), snow_lsc(klon) |
REAL, save:: snow_con(klon) |
387 |
|
real snow_lsc(klon) |
388 |
REAL d_ts(klon, nbsrf) |
REAL d_ts(klon, nbsrf) |
389 |
|
|
390 |
REAL d_u_vdf(klon, llm), d_v_vdf(klon, llm) |
REAL d_u_vdf(klon, llm), d_v_vdf(klon, llm) |
487 |
SAVE ffonte |
SAVE ffonte |
488 |
SAVE fqcalving |
SAVE fqcalving |
489 |
SAVE rain_con |
SAVE rain_con |
|
SAVE snow_con |
|
490 |
SAVE topswai |
SAVE topswai |
491 |
SAVE topswad |
SAVE topswad |
492 |
SAVE solswai |
SAVE solswai |
878 |
CALL concvl(dtphys, paprs, play, t_seri, q_seri, u_seri, v_seri, sig1, & |
CALL concvl(dtphys, paprs, play, t_seri, q_seri, u_seri, v_seri, sig1, & |
879 |
w01, d_t_con, d_q_con, d_u_con, d_v_con, rain_con, snow_con, & |
w01, d_t_con, d_q_con, d_u_con, d_v_con, rain_con, snow_con, & |
880 |
ibas_con, itop_con, upwd, dnwd, dnwd0, Ma, cape, iflagctrl, & |
ibas_con, itop_con, upwd, dnwd, dnwd0, Ma, cape, iflagctrl, & |
881 |
qcondc, wd, pmflxr, pmflxs, da, phi, mp) |
qcondc, wd, pmflxr, da, phi, mp) |
882 |
clwcon0 = qcondc |
clwcon0 = qcondc |
883 |
mfu = upwd + dnwd |
mfu = upwd + dnwd |
884 |
IF (.NOT. ok_gust) wd = 0. |
IF (.NOT. ok_gust) wd = 0. |