psi_businger_1971()

subroutine module_sf_mynn::psi_businger_1971	(	real(kind_phys), intent(out)	psi_m,
		real(kind_phys), intent(out)	psi_h,
		real(kind_phys), intent(in)	zl )