Merge pull request #15488 from cxp484/FireX

FireX: Merge with firemodels/master

Author: cxp484

Source/dump.f90

@@ -7817,6 +7817,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)