FDS Source: allow LP_TAG to work with SURFACE INTEGRAL statistic for single particle

Author: ericvmueller

Source/dump.f90

@@ -6656,6 +6656,7 @@ SUBROUTINE UPDATE_DEVICES_1(T,DT,NM)
                PARTICLE_LOOP: DO IP=1,NLP
                   LP=>LAGRANGIAN_PARTICLE(IP)
                   IF (LP%CLASS_INDEX/=DV%PART_CLASS_INDEX) CYCLE PARTICLE_LOOP
+                  IF (DV%LP_TAG>0 .AND. DV%LP_TAG/=LP%TAG) CYCLE PARTICLE_LOOP
                   LPC=>LAGRANGIAN_PARTICLE_CLASS(LP%CLASS_INDEX)
                   SURF_INDEX = LPC%SURF_INDEX
                   BC => BOUNDARY_COORD(LP%BC_INDEX)