zolri2()

real*8 function module_sf_noahmplsm::zolri2	(	real (kind=kind_phys), intent(inout)	zol2,
		real (kind=kind_phys), intent(in)	ri2,
		real (kind=kind_phys), intent(in)	za,
		real (kind=kind_phys), intent(in)	z0,
		real (kind=kind_phys), intent(in)	zt,
		integer, intent(in)	psi_opt
	)