subroutine calwxt_bourg	(	integer, intent(in)	lm,
		integer, intent(in)	lp1,
		real, dimension(2), intent(in)	rn,
		real, intent(in)	g,
		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, dimension(lp1), intent(in)	zint,
		integer, intent(out)	ptype
	)

Referenced by calpreciptype().