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 |
7 |
use cvparam3 |
use cv3_param_m |
8 |
use cvthermo |
use cvthermo |
9 |
implicit none |
implicit none |
10 |
|
|
28 |
|
|
29 |
|
|
30 |
! inputs: |
! inputs: |
31 |
integer 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), q(nloc,nd), qs(nloc,nd), gz(nloc,nd) |
34 |
real p(nloc,nd) |
real p(nloc,nd) |