radiation_cloud_optics Module


Contents

Subroutines


Subroutines

publicelemental subroutine delta_eddington(od, ssa, g)

Arguments

Type IntentOptional Attributes Name
real(kind=jprb), intent(inout) :: od
real(kind=jprb), intent(inout) :: ssa
real(kind=jprb), intent(inout) :: g

publicelemental subroutine delta_eddington_extensive(od, scat_od, scat_od_g)

Arguments

Type IntentOptional Attributes Name
real(kind=jprb), intent(inout) :: od
real(kind=jprb), intent(inout) :: scat_od
real(kind=jprb), intent(inout) :: scat_od_g

publicelemental subroutine delta_eddington_scat_od(od, scat_od, g)

Arguments

Type IntentOptional Attributes Name
real(kind=jprb), intent(inout) :: od
real(kind=jprb), intent(inout) :: scat_od
real(kind=jprb), intent(inout) :: g

publicelemental subroutine revert_delta_eddington(od, ssa, g)

Arguments

Type IntentOptional Attributes Name
real(kind=jprb), intent(inout) :: od
real(kind=jprb), intent(inout) :: ssa
real(kind=jprb), intent(inout) :: g

public subroutine setup_cloud_optics(config)

Arguments

Type IntentOptional Attributes Name
type(config_type), intent(inout) :: config

public subroutine cloud_optics(nlev, istartcol, iendcol, config, thermodynamics, cloud, od_lw_cloud, ssa_lw_cloud, g_lw_cloud, od_sw_cloud, ssa_sw_cloud, g_sw_cloud)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlev
integer, intent(in) :: istartcol
integer, intent(in) :: iendcol
type(config_type), intent(in), target :: config
type(thermodynamics_type), intent(in) :: thermodynamics
type(cloud_type), intent(in) :: cloud
real(kind=jprb), intent(out), dimension(config%n_bands_lw,nlev,istartcol:iendcol) :: od_lw_cloud
real(kind=jprb), intent(out), dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol) :: ssa_lw_cloud
real(kind=jprb), intent(out), dimension(config%n_bands_lw_if_scattering,nlev,istartcol:iendcol) :: g_lw_cloud
real(kind=jprb), intent(out), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: od_sw_cloud
real(kind=jprb), intent(out), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: ssa_sw_cloud
real(kind=jprb), intent(out), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: g_sw_cloud