subroutine cu_gf_deep::get_melting_profile |
( |
integer, dimension(its:ite), intent(in) | ierr, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | tn_cup, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | po_cup, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | p_liq_ice, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | melting_layer, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | qrco, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | pwo, |
|
|
real(kind=kind_phys), dimension(its:ite), intent(in) | edto, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(in) | pwdo, |
|
|
real(kind=kind_phys), dimension(its:ite,kts:kte), intent(inout) | melting, |
|
|
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 ) |