subroutine get_xyd_wind	(	real, dimension(nx, ny)	V,
		real, dimension(nx, ny)	Vx,
		real, dimension(nx, ny)	Vy,
		real, dimension(nx, ny)	Vyd,
		integer	nx,
		integer	ny,
		real, dimension(ny)	dlam1,
		real	dlat,
		real, dimension(ny)	divJp,
		real, dimension(ny)	divJm
	)

Referenced by trig3d_fjets(), and trig3d_okubo().