radiation_liquid_optics_socrates Module


Uses

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

Used by

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

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: NLiqOpticsCoeffsSOCRATES = 16
real(kind=jprb), public, parameter :: MinEffectiveRadius = 1.2e-6
real(kind=jprb), public, parameter :: MaxEffectiveRadius = 50.0e-6

Subroutines

public subroutine calc_liq_optics_socrates(nb, coeff, lwp, re_in, od, scat_od, g)

Arguments

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