zolrib()

real*8 function module_sf_noahmplsm::zolrib	(	real (kind=kind_phys), intent(in)	ri,
		real (kind=kind_phys), intent(in)	za,
		real (kind=kind_phys), intent(in)	z0,
		real (kind=kind_phys), intent(in)	zt,
		real (kind=kind_phys), intent(in)	logz0,
		real (kind=kind_phys), intent(in)	logzt,
		real (kind=kind_phys), intent(inout)	zol1,
		integer, intent(in)	psi_opt
	)

References li_etal_2010().

Here is the call graph for this function: