Fixed bookkeeping term for collision energy

MintonGroup · Aug 12, 2021 · e2adfd0 · e2adfd0
1 parent 12dd019
commit e2adfd0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90
@@ -320,7 +320,7 @@ module subroutine symba_discard_pl(self, system, param)
                   if (param%lenergy) then
                      call system%get_energy_and_momentum(param)
                      Eorbit_after = system%te
-                     system%Ecollisions = Eorbit_after - Eorbit_before
+                     system%Ecollisions = system%Ecollisions + (Eorbit_after - Eorbit_before)
                   end if
                end if