subroutine ugwp_wmsdis_az1	(	integer	levs,
		integer	ksrc,
		integer	nw,
		real	kxw,
		real, dimension(nw)	ch,
		real, dimension(nw)	dch,
		real, dimension(nw)	taub_sp,
		real	tau_bulk,
		real	spnorm,
		real	fcor,
		real	c2f2,
		real, dimension(levs)	zm,
		real, dimension(levs+1)	zi,
		real, dimension(levs)	rho,
		real, dimension(levs+1)	um,
		real, dimension(levs+1)	tm,
		real, dimension(levs+1)	bn2,
		real, dimension(levs+1)	bn,
		real, dimension(levs+1)	rhoi,
		real, dimension(levs+1)	bnrho,
		real, dimension(levs)	dzirho,
		real, dimension(levs)	dzpi,
		real, dimension(levs+1)	kvg,
		real, dimension(levs+1)	ktg,
		real, dimension(levs+1)	krad,
		real, dimension(levs+1)	kion,
		real, dimension(levs+1)	kmol,
		real, dimension(levs )	eps,
		real, dimension(levs+1)	ked,
		real, dimension(levs+1)	tau
	)

References cires_ugwp_module::cd_ulim, cires_ugwp_module::f_coriol, cires_ugwp_module::f_kds, cires_ugwp_module::f_nonhyd, cires_ugwp_module::ipr_ktgw, cires_ugwp_module::ipr_mol, cires_ugwp_module::ipr_spgw, cires_ugwp_module::ipr_turb, cires_ugwp_module::khp, cires_ugwp_module::linsat, cires_ugwp_module::rhp1, cires_ugwp_module::rhp2, and cires_ugwp_module::rhp4.

Referenced by ugwp_wmsdis_naz().