surrad()

subroutine __module_sf_noahmplsm_f90__::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: