subroutine gw_solver_wmsdis	(	integer	im,
		integer	levs,
		real	dtp,
		integer	kdt,
		integer	me,
		real, dimension(im)	taub,
		integer, dimension(im)	klev,
		integer, dimension(im)	if_src,
		integer	nf_src,
		integer	nw,
		real, dimension(nw )	ch,
		integer	naz,
		real, dimension(nw )	spf,
		real, dimension(naz)	xaz,
		real, dimension(naz)	yaz,
		real, dimension(im)	fcor,
		real, dimension(im)	c2f2,
		real, dimension(im, levs)	u,
		real, dimension(im, levs)	v,
		real, dimension(im, levs)	t,
		real, dimension(im, levs)	q,
		real, dimension(im, levs+1)	prsi,
		real, dimension(im, levs)	delp,
		real, dimension(im, levs)	prsl,
		real, dimension(im, levs)	prslk,
		real, dimension(im, levs+1)	phii,
		real, dimension(im, levs)	phil,
		real, dimension(im, levs)	ax,
		real, dimension(im, levs)	ay,
		real, dimension(im, levs)	eps,
		real, dimension(im, levs)	ked,
		real, dimension(im, levs)	tauz
	)

References cires_ugwp_module::kion, cires_ugwp_module::krad, cires_ugwp_module::ktg, cires_ugwp_module::kvg, cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_eps, cires_ugwp_module::max_kdis, mflow_tauz(), and ugwp_wmsdis_naz().

Referenced by cires_ugwp_module::cires_ugwp_driver().

Here is the call graph for this function: