subroutine get_spectra_tau_okw	(	integer	nw,
		integer	im,
		integer	levs,
		real, dimension(im, levs)	trig_okw,
		real, dimension(im)	xlatd,
		real, dimension(im)	sinlat,
		real, dimension(im)	coslat,
		real, dimension(im)	taub,
		integer, dimension(im)	klev,
		integer, dimension(im)	if_src,
		integer	nf_src
	)

Referenced by cires_ugwp_module::cires_ugwp_driver().