subroutine ugwp_lsatdis_naz	(	integer	levs,
		integer	ksrc,
		integer	nw,
		integer	naz,
		real	kxw,
		real, dimension(nw)	taub_spect,
		real, dimension(nw)	ch,
		real, dimension(naz)	xaz,
		real, dimension(naz)	yaz,
		real	fcor,
		real	c2f2,
		real, dimension(levs )	dp,
		real, dimension(levs )	zmid,
		real, dimension(levs+1)	zint,
		real, dimension(levs )	pmid,
		real, dimension(levs+1)	pint,
		real, dimension(levs )	rho,
		real, dimension(levs+1)	ui,
		real, dimension(levs+1)	vi,
		real, dimension(levs+1)	ti,
		real, dimension(levs+1)	kvg,
		real, dimension(levs+1)	ktg,
		real, dimension(levs+1)	krad,
		real, dimension(levs+1)	kion,
		real, dimension(levs+1)	bn2i,
		real, dimension(levs+1)	bvi,
		real, dimension(levs+1)	rhoi,
		real, dimension(levs )	ax,
		real, dimension(levs )	ay,
		real, dimension(levs )	eps,
		real, dimension(levs+1)	ked,
		real, dimension(levs+1)	tau1
	)

References ugwp_limit_1d(), and ugwp_lsatdis_az1().

Referenced by gw_solver_linsatdis().

Here is the call graph for this function: