ICE_EFFECTIVE_RADIUS Subroutine

subroutine ICE_EFFECTIVE_RADIUS(YDERAD, KIDIA, KFDIA, KLON, KLEV, PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_ICE, PQ_SNOW, PGEMU, PRE_UM)

Uses

  • proc~~ice_effective_radius~~UsesGraph proc~ice_effective_radius ICE_EFFECTIVE_RADIUS module~yomhook yomhook proc~ice_effective_radius->module~yomhook module~yomlun~4 YOMLUN proc~ice_effective_radius->module~yomlun~4 module~parkind1~2 PARKIND1 proc~ice_effective_radius->module~parkind1~2 module~yomcst~3 YOMCST proc~ice_effective_radius->module~yomcst~3 module~yoerad yoerad proc~ice_effective_radius->module~yoerad module~yomlun~4->module~parkind1~2 module~yomlun_ifsaux YOMLUN_IFSAUX module~yomlun~4->module~yomlun_ifsaux module~yomcst~3->module~parkind1~2 module~yomlun_ifsaux->module~parkind1~2

Arguments

Type IntentOptional Attributes Name
type(TERAD), intent(in) :: YDERAD
integer(kind=JPIM), intent(in) :: KIDIA
integer(kind=JPIM), intent(in) :: KFDIA
integer(kind=JPIM), intent(in) :: KLON
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(in) :: PPRESSURE(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTEMPERATURE(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCLOUD_FRAC(KLON,KLEV)
real(kind=JPRB), intent(in) :: PQ_ICE(KLON,KLEV)
real(kind=JPRB), intent(in) :: PQ_SNOW(KLON,KLEV)
real(kind=JPRB), intent(in) :: PGEMU(KLON)
real(kind=JPRB), intent(out) :: PRE_UM(KLON,KLEV)

Calls

proc~~ice_effective_radius~~CallsGraph proc~ice_effective_radius ICE_EFFECTIVE_RADIUS proc~dr_hook dr_hook proc~ice_effective_radius->proc~dr_hook proc~abor1 ABOR1 proc~ice_effective_radius->proc~abor1

Called by

proc~~ice_effective_radius~~CalledByGraph proc~ice_effective_radius ICE_EFFECTIVE_RADIUS proc~radiation_scheme~3 RADIATION_SCHEME proc~radiation_scheme~3->proc~ice_effective_radius program~ecrad_ifs_driver ecrad_ifs_driver program~ecrad_ifs_driver->proc~radiation_scheme~3 program~ecrad_ifs_driver~2 ecrad_ifs_driver program~ecrad_ifs_driver~2->proc~radiation_scheme~3

Contents