subroutine cu_gf_deep::get_partition_liq_ice |
( |
integer, dimension(its:ite), intent(in) | ierr, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | tn, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | po_cup, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(inout) | p_liq_ice, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(inout) | melting_layer, |
|
|
integer, intent(in) | itf, |
|
|
integer, intent(in) | ktf, |
|
|
integer, intent(in) | its, |
|
|
integer, intent(in) | ite, |
|
|
integer, intent(in) | kts, |
|
|
integer, intent(in) | kte, |
|
|
character *(*), intent(in) | cumulus ) |