radiation_ice_optics_fu Module


Uses

  • module~~radiation_ice_optics_fu~~UsesGraph module~radiation_ice_optics_fu radiation_ice_optics_fu module~parkind1~2 PARKIND1 module~radiation_ice_optics_fu->module~parkind1~2

Used by

  • module~~radiation_ice_optics_fu~~UsedByGraph module~radiation_ice_optics_fu radiation_ice_optics_fu proc~cloud_optics~2 cloud_optics proc~cloud_optics~2->module~radiation_ice_optics_fu proc~setup_cloud_optics~4 setup_cloud_optics proc~setup_cloud_optics~4->module~radiation_ice_optics_fu proc~setup_cloud_optics setup_cloud_optics proc~setup_cloud_optics->module~radiation_ice_optics_fu proc~cloud_optics~3 cloud_optics proc~cloud_optics~3->module~radiation_ice_optics_fu

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: NIceOpticsCoeffsFuSW = 10
integer, public, parameter :: NIceOpticsCoeffsFuLW = 11
real(kind=jprb), public, parameter :: MaxAsymmetryFactor = 1.0_jprb-10.0_jprb*epsilon(1.0_jprb)
real(kind=jprb), public, parameter :: MaxEffectiveRadius = 100.0e-6_jprb

Subroutines

public subroutine calc_ice_optics_fu_sw(nb, coeff, ice_wp, re, od, scat_od, g)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nb
real(kind=jprb), intent(in) :: coeff(:,:)
real(kind=jprb), intent(in) :: ice_wp
real(kind=jprb), intent(in) :: re
real(kind=jprb), intent(out) :: od(nb)
real(kind=jprb), intent(out) :: scat_od(nb)
real(kind=jprb), intent(out) :: g(nb)

public subroutine calc_ice_optics_fu_lw(nb, coeff, ice_wp, re, od, scat_od, g)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nb
real(kind=jprb), intent(in) :: coeff(:,:)
real(kind=jprb), intent(in) :: ice_wp
real(kind=jprb), intent(in) :: re
real(kind=jprb), intent(out) :: od(nb)
real(kind=jprb), intent(out) :: scat_od(nb)
real(kind=jprb), intent(out) :: g(nb)