subroutine trig3d_okubo	(	integer	nx,
		integer	ny,
		integer	nz,
		real, dimension(nx, ny, nz)	U,
		real, dimension(nx, ny, nz)	V,
		real, dimension(nx, ny, nz)	T,
		real, dimension(nx, ny, nz)	Q,
		real, dimension(nx, ny, nz)	P3d,
		real, dimension(nx, ny )	PS,
		real, dimension(nx, ny, nz)	delp,
		real, dimension(nx, ny, nz)	delz,
		real, dimension(nx)	lon,
		real, dimension(ny)	lat,
		real, dimension(nz)	pmid,
		real, dimension(nx, ny, nz)	trig3d_okw
	)

References get_xy_pt(), get_xyd_wind(), and subs_diag_geo().

Referenced by cires_3d_triggers().

Here is the call graph for this function: