subroutine cv3_vertmix |
( |
integer, intent(in) |
len, |
|
|
integer, intent(in) |
nd, |
|
|
integer, dimension (len), intent(inout) |
iflag, |
|
|
real, dimension (len), intent(in) |
plim1, |
|
|
real, dimension (len), intent(in) |
plim2, |
|
|
real, dimension (len,nd), intent(in) |
p, |
|
|
real, dimension (len,nd+1), intent(in) |
ph, |
|
|
real, dimension (len,nd), intent(in) |
t, |
|
|
real, dimension (len,nd), intent(in) |
q, |
|
|
real, dimension (len,nd), intent(in) |
u, |
|
|
real, dimension (len,nd), intent(in) |
v, |
|
|
real, dimension (nd), intent(in) |
w, |
|
|
real, dimension (len,nd), intent(out) |
wi, |
|
|
integer, dimension (len), intent(in) |
nk, |
|
|
real, dimension (len), intent(out) |
tmix, |
|
|
real, dimension (len), intent(out) |
thmix, |
|
|
real, dimension (len), intent(out) |
qmix, |
|
|
real, dimension (len), intent(out) |
qsmix, |
|
|
real, dimension (len), intent(out) |
umix, |
|
|
real, dimension (len), intent(out) |
vmix, |
|
|
real, dimension (len), intent(out) |
plcl |
|
) |
| |