fa_zc_plumerise()

subroutine module_smoke_plumerise::fa_zc_plumerise	(	integer	m1,
		real(kind=kind_phys), dimension(m1)	scp,
		real(kind=kind_phys), dimension(m1)	scr1,
		real(kind=kind_phys), dimension(m1)	vt3dc,
		real(kind=kind_phys), dimension(m1)	vt3df,
		real(kind=kind_phys), dimension(m1)	vt3dg,
		real(kind=kind_phys), dimension(m1)	vt3dk,
		real(kind=kind_phys), dimension(m1)	vctr1,
		real(kind=kind_phys), dimension(m1)	vctr2
	)