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 ) |