twostream()

subroutine __module_sf_noahmplsm_f90__::twostream ( type (noahmp_parameters), intent(in) parameters, integer, intent(in) ib, integer, intent(in) ic, integer, intent(in) vegtyp, real (kind=kind_phys), intent(in) cosz, real (kind=kind_phys), intent(in) vai, real (kind=kind_phys), intent(in) fwet, real (kind=kind_phys), intent(in) t, 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) rho, real (kind=kind_phys), dimension(1:2), intent(in) tau, real (kind=kind_phys), intent(in) fveg, integer, intent(in) ist, integer, intent(in) iloc, integer, intent(in) jloc, real (kind=kind_phys), dimension(1:2), intent(out) fab, real (kind=kind_phys), dimension(1:2), intent(out) fre, real (kind=kind_phys), dimension(1:2), intent(out) ftd, real (kind=kind_phys), dimension(1:2), intent(out) fti, real (kind=kind_phys), intent(out) gdir, real (kind=kind_phys), dimension(1:2), intent(out) frev, real (kind=kind_phys), dimension(1:2), intent(out) freg, real (kind=kind_phys), intent(inout) bgap, real (kind=kind_phys), intent(inout) wgap )

private

Parameters

[in]	iloc	grid index
[in]	jloc	grid index
[in]	ist	surface type
[in]	ib	waveband number
[in]	ic	0=unit incoming direct; 1=unit incoming diffuse
[in]	vegtyp	vegetation type
[in]	cosz	cosine of direct zenith angle (0-1)
[in]	vai	one-sided leaf+stem area index (m2/m2)
[in]	fwet	fraction of lai, sai that is wetted (-)
[in]	t	surface temperature (k)
[in]	albgrd	direct albedo of underlying surface (-)
[in]	albgri	diffuse albedo of underlying surface (-)
[in]	rho	leaf+stem reflectance
[in]	tau	leaf+stem transmittance
[in]	fveg	green vegetation fraction [0.0-1.0]
[out]	fab	flux abs by veg layer (per unit incoming flux)
[out]	fre	flux refl above veg layer (per unit incoming flux)
[out]	ftd	down dir flux below veg layer (per unit in flux)
[out]	fti	down dif flux below veg layer (per unit in flux)
[out]	gdir	projected leaf+stem area in solar direction
[out]	frev	flux reflected by veg layer (per unit incoming flux)
[out]	freg	flux reflected by ground (per unit incoming flux)

Referenced by albedo().

Here is the caller graph for this function: