From 6ae9c8291bc6722a83bc15bbe6ca9e65f7996355 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 15 Jun 2021 17:32:50 -0400 Subject: [PATCH] Fixed uninitialized aoblcb when test particles are being calculated --- src/obl/obl.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/obl/obl.f90 b/src/obl/obl.f90 index 1a6b77d09..ee15d6652 100644 --- 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)