309 |
! --- CONVECTIVE FEED |
! --- CONVECTIVE FEED |
310 |
|
|
311 |
if (iflag_con == 3) then |
if (iflag_con == 3) then |
312 |
CALL cv3_feed(klon, klev, t1, q1, qs1, p1, ph1, hm1, gz1, nk1, icb1, & |
CALL cv3_feed(klon, klev, t1, q1, qs1, p1, ph1, gz1, nk1, icb1, & |
313 |
icbmax, iflag1, tnk1, qnk1, gznk1, plcl1) ! klev->na |
icbmax, iflag1, tnk1, qnk1, gznk1, plcl1) ! klev->na |
314 |
else |
else |
315 |
! iflag_con == 4 |
! iflag_con == 4 |
404 |
! --- MIXING |
! --- MIXING |
405 |
|
|
406 |
if (iflag_con == 3) then |
if (iflag_con == 3) then |
407 |
CALL cv3_mixing(klon, ncum, klev, klev, icb, nk, inb, ph, t, q, & |
CALL cv3_mixing(klon, ncum, klev, klev, icb, nk, inb, t, q, qs, u, & |
408 |
qs, u, v, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, & |
v, h, lv, hp, ep, clw, m, sig, ment, qent, uent, vent, nent, & |
409 |
qent, uent, vent, nent, sij, elij, ments, qents) |
sij, elij, ments, qents) |
410 |
else |
else |
411 |
! iflag_con == 4 |
! iflag_con == 4 |
412 |
CALL cv_mixing(klon, ncum, klev, icb, nk, inb, inbis, ph, t, q, qs, & |
CALL cv_mixing(klon, ncum, klev, icb, nk, inb, inbis, ph, t, q, qs, & |