subroutine cu_gf_deep::cup_env_clev |
( |
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
t, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
qes, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
q, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
he, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
hes, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
z, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(in) |
p, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
qes_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
q_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
he_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
hes_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
z_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
p_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
gamma_cup, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte), intent(out) |
t_cup, |
|
|
real(kind=kind_phys), dimension (its:ite), intent(in) |
psur, |
|
|
integer, dimension (its:ite), intent(inout) |
ierr, |
|
|
real(kind=kind_phys), dimension (its:ite), intent(in) |
z1, |
|
|
integer, intent(in) |
itf, |
|
|
integer, intent(in) |
ktf, |
|
|
integer, intent(in) |
its, |
|
|
integer, intent(in) |
ite, |
|
|
integer, intent(in) |
kts, |
|
|
integer, intent(in) |
kte |
|
) |
| |