subroutine get_unit_vector	(	real, intent(in)	u,
		real, intent(in)	v,
		real, intent(out)	u_n,
		real, intent(out)	v_n,
		real, intent(out)	mag
	)

Referenced by ugwp_taub_oro().