entrainment()

subroutine module_smoke_plumerise::entrainment	(	type(plumegen_coms), pointer	coms,
		integer	m1,
		real(kind=kind_phys), dimension(m1)	w,
		real(kind=kind_phys), dimension(m1)	wt,
		real(kind=kind_phys), dimension(m1)	radius,
		real(kind=kind_phys)	alpha )