moninobukini()

subroutine clm_lake::moninobukini ( real(kind_lake), intent(in)  ur, real(kind_lake), intent(in)  thv, real(kind_lake), intent(in)  dthv, real(kind_lake), intent(in)  zldis, real(kind_lake), intent(in)  z0m, real(kind_lake), intent(out)  um, real(kind_lake), intent(out)  obu  )

private

Parameters

[in]	ur	Initialization of the Monin-Obukhov length. The scheme is based on the work of Zeng et al. (1998): Intercomparison of bulk aerodynamic algorithms for the computation of sea surface fluxes using TOGA CORE and TAO data. J. Climate, Vol. 11, 2628-2644.
[in]	ur	wind speed at reference height [m/s]
[in]	thv	virtual potential temperature (kelvin)
[in]	dthv	diff of vir. poten. temp. between ref. height and surface
[in]	zldis	reference height "minus" zero displacement heght [m]
[in]	z0m	roughness length, momentum [m]
[out]	um	wind speed including the stability effect [m/s]
[out]	obu	monin-obukhov length (m)