3 |
,h,lv,ep,sigp,clw,m,ment,elij & |
,h,lv,ep,sigp,clw,m,ment,elij & |
4 |
,iflag,mp,qp,up,vp,wt,water,evap) |
,iflag,mp,qp,up,vp,wt,water,evap) |
5 |
use cvthermo |
use cvthermo |
6 |
use cvparam |
use cv_param |
7 |
implicit none |
implicit none |
8 |
|
|
9 |
|
|
10 |
|
|
11 |
! inputs: |
! inputs: |
12 |
integer ncum, nd, nloc |
integer, intent(in):: ncum, nd, nloc |
13 |
integer inb(nloc) |
integer inb(nloc) |
14 |
real t(nloc,nd), q(nloc,nd), qs(nloc,nd) |
real t(nloc,nd), q(nloc,nd), qs(nloc,nd) |
15 |
real gz(nloc,nd), u(nloc,nd), v(nloc,nd) |
real gz(nloc,nd), u(nloc,nd), v(nloc,nd) |