sw_solver_noscat Subroutine

public pure subroutine sw_solver_noscat(ncol, nlay, ngpt, top_at_1, tau, mu0, inc_flux_dir, flux_dir) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: ncol

Number of columns, layers, g-points

integer, intent(in) :: nlay

Number of columns, layers, g-points

integer, intent(in) :: ngpt

Number of columns, layers, g-points

logical(kind=wl), intent(in) :: top_at_1

ilay = 1 is the top of the atmosphere?

real(kind=wp), intent(in), dimension(ncol,nlay, ngpt):: tau

Absorption optical thickness []

real(kind=wp), intent(in), dimension(ncol,nlay ):: mu0

cosine of solar zenith angle

real(kind=wp), intent(in), dimension(ncol, ngpt):: inc_flux_dir

Direct beam incident flux [W/m2]

real(kind=wp), intent(out), dimension(ncol,nlay+1,ngpt):: flux_dir

Direct-beam flux, spectral [W/m2]


Contents

None