subroutine subs_diag_geo	(	integer	nx,
		integer	ny,
		real, dimension(ny)	lat,
		real, dimension(nx)	lon,
		real, dimension(ny)	rlat,
		real, dimension(nx)	rlon,
		real	dy,
		real	dx,
		real, dimension(ny)	cosv,
		real, dimension(ny-1)	rlatc,
		real, dimension(ny)	brcos,
		real, dimension(ny)	brcos2,
		real, dimension(ny)	dlam1,
		real, dimension(ny)	dlam2,
		real	dlat,
		real, dimension(ny)	divJp,
		real, dimension(ny)	divJm
	)

Referenced by trig3d_fjets(), and trig3d_okubo().