MPI for 2D parabolic system on conforming P4est mesh

AUTHORS.md

@@ -37,6 +37,7 @@ are listed in alphabetical order:
 * Gregor Gassner
 * Lucas Gemein
 * Sven Goldberg
+* T. Jeremy P. Karpowski
 * Joshua Lampert
 * Tristan Montoya
 * Julia Odenthal

src/callbacks_step/analysis_surface_integral_2d.jl

@@ -250,6 +250,9 @@ function analyze(surface_variable::AnalysisSurfaceIntegral, du, u, t,
             j_node += j_node_step
         end
     end
+    if mpi_isparallel()
+        surface_integral = MPI.Allreduce!(Ref(surface_integral), +, mpi_comm())[]
+    end
     return surface_integral
 end
 
@@ -320,6 +323,9 @@ function analyze(surface_variable::AnalysisSurfaceIntegral{Variable}, du, u, t,
             j_node += j_node_step
         end
     end
+    if mpi_isparallel()
+        surface_integral = MPI.Allreduce!(Ref(surface_integral), +, mpi_comm())[]
+    end
     return surface_integral
 end
 end # muladd