1 |
module cv3_undilute2_m |
module cv30_undilute2_m |
2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE cv3_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, & |
SUBROUTINE cv30_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, & |
8 |
qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, & |
qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, & |
9 |
ep, sigp, buoy) |
ep, sigp, buoy) |
10 |
|
|
16 |
! Vertical profile of buoyancy computed here (use of buoybase). |
! Vertical profile of buoyancy computed here (use of buoybase). |
17 |
|
|
18 |
use conema3_m, only: epmax |
use conema3_m, only: epmax |
19 |
use cv3_param_m, only: dtovsh, minorig, nl, nlp, pbcrit, ptcrit, spfac |
use cv30_param_m, only: dtovsh, minorig, nl, nlp, pbcrit, ptcrit, spfac |
20 |
use cvthermo, only: cl, clmcpv, cpd, cpv, eps, lv0, rrv |
use cvthermo, only: cl, clmcpv, cpd, cpv, eps, lv0, rrv |
21 |
|
|
22 |
! inputs: |
! inputs: |
190 |
end do |
end do |
191 |
end do |
end do |
192 |
|
|
193 |
end SUBROUTINE cv3_undilute2 |
end SUBROUTINE cv30_undilute2 |
194 |
|
|
195 |
end module cv3_undilute2_m |
end module cv30_undilute2_m |