diff --git a/Source/dump.f90 b/Source/dump.f90 index c5e2668397b..bb2a3290afd 100644 --- a/Source/dump.f90 +++ b/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)