rsipath()

subroutine module_microphysics::rsipath	(	integer	im,
		integer	ix,
		integer	ix2,
		integer	levs,
		real, dimension(ix,levs)	prsl,
		real, dimension(ix,levs+1)	prsi,
		real, dimension(ix,levs)	t,
		real, dimension(ix,levs)	q,
		real, dimension(ix2,levs)	clw,
		real, dimension(ix2,levs)	f_ice,
		real, dimension(ix2,levs)	f_rain,
		real, dimension(ix2,levs)	f_rime,
		real	flgmin,
		real, dimension(ix,levs)	cwatp,
		real, dimension(ix,levs)	cicep,
		real, dimension(ix,levs)	rainp,
		real, dimension(ix,levs)	snowp,
		real, dimension(ix,levs)	recwat,
		real, dimension(ix,levs)	rerain,
		real, dimension(ix,levs)	resnow,
		logical	lprnt,
		integer	ipr
	)