| 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 |
Parent Directory
| 
Revision Log
| 
Patch