twostream()

subroutine, private module_sf_noahmplsm::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: