1 |
|
|
2 |
SUBROUTINE cv3_undilute2(nloc,ncum,nd,icb,icbs,nk & |
SUBROUTINE cv3_undilute2(nloc,ncum,nd,icb,icbs,nk & |
3 |
,tnk,qnk,gznk,t,q,qs,gz & |
,tnk,qnk,gznk,t,qs,gz & |
4 |
,p,h,tv,lv,pbase,buoybase,plcl & |
,p,h,tv,lv,pbase,buoybase,plcl & |
5 |
,inb,tp,tvp,clw,hp,ep,sigp,buoy) |
,inb,tp,tvp,clw,hp,ep,sigp,buoy) |
6 |
use conema3_m |
use conema3_m |
30 |
! inputs: |
! inputs: |
31 |
integer, intent(in):: ncum, nd, nloc |
integer, intent(in):: ncum, nd, nloc |
32 |
integer icb(nloc), icbs(nloc), nk(nloc) |
integer icb(nloc), icbs(nloc), nk(nloc) |
33 |
real t(nloc,nd), q(nloc,nd), qs(nloc,nd), gz(nloc,nd) |
real t(nloc,nd), qs(nloc,nd), gz(nloc,nd) |
34 |
real p(nloc,nd) |
real p(nloc,nd) |
35 |
real tnk(nloc), qnk(nloc), gznk(nloc) |
real tnk(nloc), qnk(nloc), gznk(nloc) |
36 |
real lv(nloc,nd), tv(nloc,nd), h(nloc,nd) |
real lv(nloc,nd), tv(nloc,nd), h(nloc,nd) |
44 |
|
|
45 |
! local variables: |
! local variables: |
46 |
integer i, k |
integer i, k |
47 |
real tg,qg,ahg,alv,s,tc,es,denom,rg,tca,elacrit |
real tg,qg,ahg,alv,s,tc,es,denom,rg |
48 |
real by, defrac, pden |
real pden |
49 |
real ah0(nloc), cape(nloc), capem(nloc), byp(nloc) |
real ah0(nloc) |
|
logical lcape(nloc) |
|
50 |
|
|
51 |
!===================================================================== |
!===================================================================== |
52 |
! --- SOME INITIALIZATIONS |
! --- SOME INITIALIZATIONS |