4 |
,p,dph,h,tv,lv & |
,p,dph,h,tv,lv & |
5 |
,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac) |
,inb,inb1,tp,tvp,clw,hp,ep,sigp,frac) |
6 |
use cvthermo |
use cvthermo |
7 |
use cvparam |
use cv_param |
8 |
implicit none |
implicit none |
9 |
|
|
10 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
19 |
|
|
20 |
|
|
21 |
! inputs: |
! inputs: |
22 |
integer ncum, nd, nloc |
integer, intent(in):: ncum, nd, nloc |
23 |
integer icb(nloc), nk(nloc) |
integer icb(nloc), nk(nloc) |
24 |
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) |
25 |
real p(nloc,nd), dph(nloc,nd) |
real p(nloc,nd), dph(nloc,nd) |