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