damp_grav_wave()

subroutine module_smoke_plumerise::damp_grav_wave	(	integer	ifrom,
		integer	nm1,
		integer	deltak,
		real(kind=kind_phys)	dt,
		real(kind=kind_phys), dimension(nm1)	zt,
		real(kind=kind_phys), dimension(nm1)	zm,
		real(kind=kind_phys), dimension(nm1)	w,
		real(kind=kind_phys), dimension(nm1)	t,
		real(kind=kind_phys), dimension(nm1)	tt,
		real(kind=kind_phys), dimension(nm1)	qv,
		real(kind=kind_phys), dimension(nm1)	qh,
		real(kind=kind_phys), dimension(nm1)	qi,
		real(kind=kind_phys), dimension(nm1)	qc,
		real(kind=kind_phys), dimension(nm1)	te,
		real(kind=kind_phys), dimension(nm1)	pe,
		real(kind=kind_phys), dimension(nm1)	qvenv )