set_flam_vert()

subroutine module_smoke_plumerise::set_flam_vert	(	real(kind=kind_phys), dimension(2), intent(in)	ztopmax,
		integer, intent(out)	k1,
		integer, intent(out)	k2,
		integer, intent(in)	nkp,
		real(kind=kind_phys), dimension(nkp), intent(in)	zzcon
	)