hadvance_plumerise()

subroutine module_smoke_plumerise::hadvance_plumerise	(	integer	iac,
		integer	m1,
		real(kind=kind_phys)	dt,
		real(kind=kind_phys), dimension(m1)	wc,
		real(kind=kind_phys), dimension(m1)	wt,
		real(kind=kind_phys), dimension(m1)	wp,
		integer	mintime )