plumerise()

subroutine module_smoke_plumerise::plumerise	(	integer	m1,
		integer	m2,
		integer	m3,
		integer	ia,
		integer	iz,
		integer	ja,
		integer	jz,
		real(kind=kind_phys), dimension(m1,m2,m3)	up,
		real(kind=kind_phys), dimension(m1,m2,m3)	vp,
		real(kind=kind_phys), dimension(m1,m2,m3)	wp,
		real(kind=kind_phys), dimension(m1,m2,m3)	theta,
		real(kind=kind_phys), dimension(m1,m2,m3)	pp,
		real(kind=kind_phys), dimension(m1,m2,m3)	dn0,
		real(kind=kind_phys), dimension(m1,m2,m3)	rv,
		real(kind=kind_phys), dimension(m1)	zt_rams,
		real(kind=kind_phys), dimension(m1)	zm_rams,
		integer, intent(in)	wind_eff_opt,
		real(kind=kind_phys)	frp_inst,
		integer, intent(out)	k1,
		integer, intent(out)	k2,
		logical, intent(in)	dbg_opt,
		real(kind=kind_phys)	g,
		real(kind=kind_phys)	cp,
		real(kind=kind_phys)	rgas,
		real(kind=kind_phys)	cpor,
		character(*), intent(inout)	errmsg,
		integer, intent(inout)	errflg,
		integer, intent(in)	icall,
		integer, intent(in)	mpiid,
		real(kind_phys), intent(in)	lat,
		real(kind_phys), intent(in)	long,
		real(kind_phys), intent(in)	curr_secs,
		real(kind_phys), intent(in)	alpha,
		real(kind_phys), intent(in)	frp_min )