scl_dyn_entrain()

subroutine module_smoke_plumerise::scl_dyn_entrain	(	integer, intent(in)	m1,
		integer, intent(in)	nkp,
		real(kind=kind_phys), intent(inout)	wbar,
		real(kind=kind_phys), dimension(nkp), intent(in)	w,
		real(kind=kind_phys), intent(inout)	adiabat,
		real(kind=kind_phys), intent(in)	alpha,
		real(kind=kind_phys), dimension(nkp), intent(in)	radius,
		real(kind=kind_phys), dimension(nkp), intent(inout)	tt,
		real(kind=kind_phys), dimension(nkp), intent(in)	t,
		real(kind=kind_phys), dimension(nkp), intent(in)	te,
		real(kind=kind_phys), dimension(nkp), intent(inout)	qvt,
		real(kind=kind_phys), dimension(nkp), intent(in)	qv,
		real(kind=kind_phys), dimension(nkp), intent(in)	qvenv,
		real(kind=kind_phys), dimension(nkp), intent(inout)	qct,
		real(kind=kind_phys), dimension(nkp), intent(in)	qc,
		real(kind=kind_phys), dimension(nkp), intent(inout)	qht,
		real(kind=kind_phys), dimension(nkp), intent(in)	qh,
		real(kind=kind_phys), dimension(nkp), intent(inout)	qit,
		real(kind=kind_phys), dimension(nkp), intent(in)	qi,
		real(kind=kind_phys), dimension(nkp), intent(in)	vel_e,
		real(kind=kind_phys), dimension(nkp), intent(in)	vel_p,
		real(kind=kind_phys), dimension(nkp), intent(inout)	vel_t,
		real(kind=kind_phys), dimension(nkp), intent(in)	rad_p,
		real(kind=kind_phys), dimension(nkp), intent(inout)	rad_t )