Merge pull request #462 from ElmerCSC/fix_SaveScalars

Fix parallel boundary statistics in SaveScalars
ElmerCSC · May 6, 2024 · f081163 · f081163
2 parents 02c7701 + 46cd273
commit f081163
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/fem/src/modules/SaveData/SaveScalars.F90 b/fem/src/modules/SaveData/SaveScalars.F90
@@ -2916,6 +2916,7 @@ SUBROUTINE BoundaryStatistics(Var, OperName, GotCoeff, &
     TYPE(ValueList_t), POINTER :: Material
     LOGICAL :: Stat, Permutated, NodalVar    
     INTEGER :: i,j,j2,k,p,q,t,DIM,bc,n,nd,hits,istat
+    INTEGER :: tmpDofs
     INTEGER, TARGET :: Indexes(100)
 
     IF( ASSOCIATED( Var % Perm ) ) THEN
@@ -2993,7 +2994,8 @@ SUBROUTINE BoundaryStatistics(Var, OperName, GotCoeff, &
           IF( .NOT. FindMinMax .AND. IsParallel ) THEN
             IF(ASSOCIATED( Var % Solver) ) THEN
               IF( ASSOCIATED( Var % SOlver % Matrix ) ) THEN
-                IF( Var % Solver % Matrix % ParallelInfo % NeighbourList(NoDofs*(j2-1)+1) % Neighbours(1) /= ParEnv % MyPE ) CYCLE
+                tmpDofs=Var % Solver % Variable % Dofs
+                IF( Var % Solver % Matrix % ParallelInfo % NeighbourList(tmpDofs*(j2-1)+1) % Neighbours(1) /= ParEnv % MyPE ) CYCLE
               END IF
             END IF
           END IF