subroutine calwxt_revised	(	integer, intent(in)	lm,
		integer, intent(in)	lp1,
		real, dimension(lm), intent(in)	t,
		real, dimension(lm), intent(in)	q,
		real, dimension(lm), intent(in)	pmid,
		real, dimension(lp1), intent(in)	pint,
		real, intent(in)	d608,
		real, intent(in)	rog,
		real, intent(in)	epsq,
		real, dimension(lp1), intent(in)	zint,
		real, dimension(lm), intent(in)	twet,
		integer, intent(out)	iwx
	)

Referenced by calpreciptype().