surrad()

subroutine, private module_sf_noahmplsm::surrad ( type (noahmp_parameters), intent(in)  parameters, real (kind=kind_phys), intent(in)  mpe, real (kind=kind_phys), intent(in)  fsun, real (kind=kind_phys), intent(in)  fsha, real (kind=kind_phys), intent(in)  elai, real (kind=kind_phys), intent(in)  vai, real (kind=kind_phys), intent(in)  laisun, real (kind=kind_phys), intent(in)  laisha, real (kind=kind_phys), dimension(1:2), intent(in)  solad, real (kind=kind_phys), dimension(1:2), intent(in)  solai, real (kind=kind_phys), dimension(1:2), intent(in)  fabd, real (kind=kind_phys), dimension(1:2), intent(in)  fabi, real (kind=kind_phys), dimension(1:2), intent(in)  ftdd, real (kind=kind_phys), dimension(1:2), intent(in)  ftid, real (kind=kind_phys), dimension(1:2), intent(in)  ftii, real (kind=kind_phys), dimension(1:2), intent(in)  albgrd, real (kind=kind_phys), dimension(1:2), intent(in)  albgri, real (kind=kind_phys), dimension(1:2), intent(in)  albd, real (kind=kind_phys), dimension(1:2), intent(in)  albi, integer, intent(in)  iloc, integer, intent(in)  jloc, real (kind=kind_phys), intent(out)  parsun, real (kind=kind_phys), intent(out)  parsha, real (kind=kind_phys), intent(out)  sav, real (kind=kind_phys), intent(out)  sag, real (kind=kind_phys), intent(out)  fsa, real (kind=kind_phys), intent(out)  fsr, real (kind=kind_phys), dimension(1:2), intent(in)  frevi, real (kind=kind_phys), dimension(1:2), intent(in)  frevd, real (kind=kind_phys), dimension(1:2), intent(in)  fregd, real (kind=kind_phys), dimension(1:2), intent(in)  fregi, real (kind=kind_phys), intent(out)  fsrv, real (kind=kind_phys), intent(out)  fsrg  )

private

Parameters

[in]	mpe	prevents underflow errors if division by zero
[in]	fsun	sunlit fraction of canopy
[in]	fsha	shaded fraction of canopy
[in]	elai	leaf area, one-sided
[in]	vai	leaf + stem area, one-sided
[in]	laisun	sunlit leaf area index, one-sided
[in]	laisha	shaded leaf area index, one-sided
[in]	solad	incoming direct solar radiation (w/m2)
[in]	solai	incoming diffuse solar radiation (w/m2)
[in]	fabd	flux abs by veg (per unit incoming direct flux)
[in]	fabi	flux abs by veg (per unit incoming diffuse flux)
[in]	ftdd	down dir flux below veg (per incoming dir flux)
[in]	ftid	down dif flux below veg (per incoming dir flux)
[in]	ftii	down dif flux below veg (per incoming dif flux)
[in]	albgrd	ground albedo (direct)
[in]	albgri	ground albedo (diffuse)
[in]	albd	overall surface albedo (direct)
[in]	albi	overall surface albedo (diffuse)
[in]	frevd	overall surface albedo veg (direct)
[in]	frevi	overall surface albedo veg (diffuse)
[in]	fregd	overall surface albedo grd (direct)
[in]	fregi	overall surface albedo grd (diffuse)
[out]	parsun	average absorbed par for sunlit leaves (w/m2)
[out]	parsha	average absorbed par for shaded leaves (w/m2)
[out]	sav	solar radiation absorbed by vegetation (w/m2)
[out]	sag	solar radiation absorbed by ground (w/m2)
[out]	fsa	total absorbed solar radiation (w/m2)
[out]	fsr	total reflected solar radiation (w/m2)
[out]	fsrv	reflected solar radiation by vegetation
[out]	fsrg	reflected solar radiation by ground

Referenced by radiation().

Here is the caller graph for this function: