radiation_homogeneous_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_homogeneous_sw(nlev, istartcol, iendcol, config, single_level, cloud, od, ssa, g, od_cloud, ssa_cloud, g_cloud, 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
type(cloud_type), intent(in) :: cloud
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_bands_sw,nlev,istartcol:iendcol) :: od_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: ssa_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_sw,nlev,istartcol:iendcol) :: g_cloud
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