subroutine rayleigh_damp::rayleigh_damp_run	(	logical, intent(in)	lsidea,
		integer, intent(in)	IM,
		integer, intent(in)	IX,
		integer, intent(in)	KM,
		real(kind=kind_phys), dimension(ix,km), intent(inout)	A,
		real(kind=kind_phys), dimension(ix,km), intent(inout)	B,
		real(kind=kind_phys), dimension(ix,km), intent(inout)	C,
		real(kind=kind_phys), dimension(ix,km), intent(in)	U1,
		real(kind=kind_phys), dimension(ix,km), intent(in)	V1,
		real(kind=kind_phys), intent(in)	DT,
		real(kind=kind_phys), intent(in)	CP,
		integer, intent(in)	LEVR,
		real(kind=kind_phys), dimension(im), intent(in)	pgr,
		real(kind=kind_phys), dimension(ix,km), intent(in)	PRSL,
		real(kind=kind_phys), intent(in)	PRSLRD0,
		real(kind=kind_phys), intent(in)	ral_ts,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)