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)