subroutine thermcell_env |
( |
integer |
ngrid, |
|
|
integer |
nlay, |
|
|
real, dimension(ngrid,nlay) |
po, |
|
|
real, dimension(ngrid,nlay) |
pt, |
|
|
real, dimension(ngrid,nlay) |
pu, |
|
|
real, dimension(ngrid,nlay) |
pv, |
|
|
real, dimension(ngrid,nlay) |
pplay, |
|
|
real, dimension(ngrid,nlay+1) |
pplev, |
|
|
real, dimension(ngrid,nlay) |
zo, |
|
|
real, dimension(ngrid,nlay) |
zh, |
|
|
real, dimension(ngrid,nlay) |
zl, |
|
|
real, dimension(ngrid,nlay) |
ztv, |
|
|
real, dimension(ngrid,nlay) |
zthl, |
|
|
real, dimension(ngrid,nlay) |
zu, |
|
|
real, dimension(ngrid,nlay) |
zv, |
|
|
real, dimension(ngrid,nlay) |
zpspsk, |
|
|
real, dimension(ngrid,nlay) |
pqsat, |
|
|
integer |
lev_out |
|
) |
| |