Fixed uninitialized aoblcb when test particles are being calculated

MintonGroup · Jun 15, 2021 · 6ae9c82 · 6ae9c82
1 parent bc1acc4
commit 6ae9c82
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/obl/obl.f90 b/src/obl/obl.f90
@@ -28,6 +28,7 @@
             aobl(:, i) = fac1 * xh(:, i)
             aobl(3, i) = fac2 * xh(3, i) + aobl(3, i)
          end do
+         aoblcb(:) = 0.0_DP
          select type(self)
          class is (swiftest_pl)
             associate(Mpl => self%Gmass)