radiation_tripleclouds_lw Module


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_tripleclouds_lw(nlev, istartcol, iendcol, config, cloud, od, ssa, g, od_cloud, ssa_cloud, g_cloud, planck_hl, emission, albedo, 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(cloud_type), intent(in) :: cloud
real(kind=jprb), intent(in), dimension(config%n_g_lw,nlev,istartcol:iendcol) :: od
real(kind=jprb), intent(in), dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol) :: ssa
real(kind=jprb), intent(in), dimension(config%n_g_lw_if_scattering,nlev,istartcol:iendcol) :: g
real(kind=jprb), intent(in) :: od_cloud(config%n_bands_lw,nlev,istartcol:iendcol)
real(kind=jprb), intent(in), dimension(config%n_bands_lw_if_scattering, nlev,istartcol:iendcol) :: ssa_cloud
real(kind=jprb), intent(in), dimension(config%n_bands_lw_if_scattering, nlev,istartcol:iendcol) :: g_cloud
real(kind=jprb), intent(in), dimension(config%n_g_lw,nlev+1,istartcol:iendcol) :: planck_hl
real(kind=jprb), intent(in), dimension(config%n_g_lw, istartcol:iendcol) :: emission
real(kind=jprb), intent(in), dimension(config%n_g_lw, istartcol:iendcol) :: albedo
type(flux_type), intent(inout) :: flux