rte_sw Interface

public interface rte_sw

Contents


Module Procedures

private function rte_sw_mu0_bycol(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)

Arguments

TypeIntentOptionalAttributesName
class(ty_optical_props_arry), intent(in) :: atmos

Optical properties provided as arrays

logical, intent(in) :: top_at_1

Is the top of the domain at index 1? (if not, ordering is bottom-to-top)

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

cosine of solar zenith angle (ncol) - will be assumed constant with height

real(kind=wp), intent(in), dimension(:,:):: inc_flux

incident flux at top of domain [W/m2] (ncol, ngpt)

real(kind=wp), intent(in), dimension(:,:):: sfc_alb_dir

surface albedo for direct and

real(kind=wp), intent(in), dimension(:,:):: sfc_alb_dif

diffuse radiation (nband, ncol)

class(ty_fluxes), intent(inout) :: fluxes

Class describing output calculations

real(kind=wp), intent(in), optional dimension(:,:), target:: inc_flux_dif

incident diffuse flux at top of domain [W/m2] (ncol, ngpt)

Return Value character(len=128)

If empty, calculation was successful

private function rte_sw_mu0_full(atmos, top_at_1, mu0, inc_flux, sfc_alb_dir, sfc_alb_dif, fluxes, inc_flux_dif) result(error_msg)

Arguments

TypeIntentOptionalAttributesName
class(ty_optical_props_arry), intent(in) :: atmos

Optical properties provided as arrays

logical, intent(in) :: top_at_1

Is the top of the domain at index 1? (if not, ordering is bottom-to-top)

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

cosine of solar zenith angle (ncol, nlay)

real(kind=wp), intent(in), dimension(:,:):: inc_flux

incident flux at top of domain [W/m2] (ncol, ngpt)

real(kind=wp), intent(in), dimension(:,:):: sfc_alb_dir

surface albedo for direct and

real(kind=wp), intent(in), dimension(:,:):: sfc_alb_dif

diffuse radiation (nband, ncol)

class(ty_fluxes), intent(inout) :: fluxes

Class describing output calculations

real(kind=wp), intent(in), optional dimension(:,:), target:: inc_flux_dif

incident diffuse flux at top of domain [W/m2] (ncol, ngpt)

Return Value character(len=128)

If empty, calculation was successful