radiation_ice_optics_baran Module


Used by

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

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: NIceOpticsCoeffsBaran = 9
integer, public, parameter :: NIceOpticsCoeffsBaran2016 = 5

Subroutines

public subroutine calc_ice_optics_baran(nb, coeff, ice_wp, qi, 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) :: qi
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_baran2016(nb, coeff, ice_wp, qi, temperature, 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) :: qi
real(kind=jprb), intent(in) :: temperature
real(kind=jprb), intent(out) :: od(nb)
real(kind=jprb), intent(out) :: scat_od(nb)
real(kind=jprb), intent(out) :: g(nb)