radiation_spartacus_sw Module


Used by

  • module~~radiation_spartacus_sw~2~~UsedByGraph module~radiation_spartacus_sw~2 radiation_spartacus_sw proc~radiation radiation proc~radiation->module~radiation_spartacus_sw~2 proc~radiation~2 radiation proc~radiation~2->module~radiation_spartacus_sw~2

Contents

Subroutines


Subroutines

publicpure subroutine optical_depth_scaling(nreg, frac_std, do_gamma, od_scaling)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nreg
real(kind=jprb), intent(in) :: frac_std
logical, intent(in) :: do_gamma
real(kind=jprb), intent(out) :: od_scaling(2:nreg)

public subroutine solver_spartacus_sw(nlev, istartcol, iendcol, config, single_level, thermodynamics, 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(thermodynamics_type), intent(in) :: thermodynamics
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

public subroutine step_migrations(ng, nreg, cloud_frac, layer_depth, tan_diffuse_angle_3d, tan_sza, reflectance, transmittance, ref_dir, trans_dir_dir, trans_dir_diff, total_albedo_diff, total_albedo_dir, x_diffuse, x_direct)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ng
integer, intent(in) :: nreg
real(kind=jprb), intent(in) :: cloud_frac
real(kind=jprb), intent(in) :: layer_depth
real(kind=jprb), intent(in) :: tan_diffuse_angle_3d
real(kind=jprb), intent(in) :: tan_sza
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: reflectance
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: transmittance
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: ref_dir
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: trans_dir_dir
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: trans_dir_diff
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: total_albedo_diff
real(kind=jprb), intent(in), dimension(ng, nreg, nreg) :: total_albedo_dir
real(kind=jprb), intent(inout), dimension(ng, nreg) :: x_diffuse
real(kind=jprb), intent(inout), dimension(ng, nreg) :: x_direct