381 |
|
|
382 |
if (iflag_con == 3) then |
if (iflag_con == 3) then |
383 |
CALL cv3_undilute2(klon, ncum, klev, icb, icbs, nk, tnk, qnk, gznk, & |
CALL cv3_undilute2(klon, ncum, klev, icb, icbs, nk, tnk, qnk, gznk, & |
384 |
t, q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, & |
t, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, & |
385 |
tvp, clw, hp, ep, sigp, buoy) !na->klev |
tvp, clw, hp, ep, sigp, buoy) !na->klev |
386 |
else |
else |
387 |
! iflag_con == 4 |
! iflag_con == 4 |
388 |
CALL cv_undilute2(klon, ncum, klev, icb, nk, tnk, qnk, gznk, t, q, & |
CALL cv_undilute2(klon, ncum, klev, icb, nk, tnk, qnk, gznk, t, & |
389 |
qs, gz, p, dph, h, tv, lv, inb, inbis, tp, tvp, clw, hp, ep, & |
qs, gz, p, dph, h, tv, lv, inb, inbis, tp, tvp, clw, hp, ep, & |
390 |
sigp, frac) |
sigp, frac) |
391 |
endif |
endif |