radiation_cloudless_sw 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 solver_cloudless_sw(nlev, istartcol, iendcol, config, single_level, od, ssa, g, albedo_direct, albedo_diffuse, incoming_sw, flux)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nlev
integer, intent(in) :: istartcol
integer, intent(in) :: iendcol
type(config_type), intent(in) :: config
type(single_level_type), intent(in) :: single_level
real(kind=jprb), intent(in), dimension(config%n_g_sw, nlev, istartcol:iendcol) :: od
real(kind=jprb), intent(in), dimension(config%n_g_sw, nlev, istartcol:iendcol) :: ssa
real(kind=jprb), intent(in), dimension(config%n_g_sw, nlev, istartcol:iendcol) :: g
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: albedo_direct
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: albedo_diffuse
real(kind=jprb), intent(in), dimension(config%n_g_sw,istartcol:iendcol) :: incoming_sw
type(flux_type), intent(inout) :: flux