ragrb()

subroutine __module_sf_noahmplsm_f90__::ragrb ( type (noahmp_parameters), intent(in) parameters, integer, intent(in) iter, real (kind=kind_phys), intent(in) vai, real (kind=kind_phys), intent(in) rhoair, real (kind=kind_phys), intent(in) hg, real (kind=kind_phys), intent(in) tah, real (kind=kind_phys), intent(in) zpd, real (kind=kind_phys), intent(in) z0mg, real (kind=kind_phys), intent(in) z0hg, real (kind=kind_phys), intent(in) hcan, real (kind=kind_phys), intent(in) uc, real (kind=kind_phys), intent(in) z0h, real (kind=kind_phys), intent(in) fv, real (kind=kind_phys), intent(in) cwp, integer, intent(in) vegtyp, real (kind=kind_phys), intent(in) mpe, real (kind=kind_phys), intent(in) tv, real (kind=kind_phys), intent(inout) mozg, real (kind=kind_phys), intent(inout) fhg, real (kind=kind_phys), intent(inout) fhgh, integer, intent(in) iloc, integer, intent(in) jloc, real (kind=kind_phys) ramg, real (kind=kind_phys) rahg, real (kind=kind_phys) rawg, real (kind=kind_phys) rb )

private

Parameters

[in]	iloc	grid index
[in]	jloc	grid index
[in]	iter	iteration index
[in]	vegtyp	vegetation physiology type
[in]	vai	total lai + stem area index, one sided
[in]	rhoair	density air (kg/m3)
[in]	hg	ground sensible heat flux (w/m2)
[in]	tv	vegetation temperature (k)
[in]	tah	air temperature at height z0h+zpd (k)
[in]	zpd	zero plane displacement (m)
[in]	z0mg	roughness length, momentum, ground (m)
[in]	hcan	canopy height (m) [note: hcan >= z0mg]
[in]	uc	wind speed at top of canopy (m/s)
[in]	z0h	roughness length, sensible heat (m)
[in]	z0hg	roughness length, sensible heat, ground (m)
[in]	fv	friction velocity (m/s)
[in]	cwp	canopy wind parameter
[in]	mpe	prevents overflow error if division by zero
[in,out]	mozg	monin-obukhov stability parameter
[in,out]	fhg	stability correction
[in,out]	fhgh	stability correction, canopy
	ramg	aerodynamic resistance for momentum (s/m)
	rahg	aerodynamic resistance for sensible heat (s/m)
	rawg	aerodynamic resistance for water vapor (s/m)
	rb	bulk leaf boundary layer resistance (s/m)

Definition at line 4937 of file module_sf_noahmplsm.F90.

Referenced by vege_flux().

Here is the caller graph for this function: