From 27e898ec6a5ab52c16b2d3f06a5e8e3c96c53024 Mon Sep 17 00:00:00 2001 From: David Minton Date: Tue, 25 May 2021 13:53:30 -0400 Subject: [PATCH] Removed extra addition of escaped angular momentum --- src/io/io_conservation_report.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/io/io_conservation_report.f90 b/src/io/io_conservation_report.f90 index 350dba858..820569bd3 100644 --- a/src/io/io_conservation_report.f90 +++ b/src/io/io_conservation_report.f90 @@ -48,7 +48,6 @@ module subroutine io_conservation_report(t, symba_plA, npl, j2rp2, j4rp4, param, Eorbit_now = ke_orbit_now + ke_spin_now + pe_now Ltot_now(:) = Lorbit_now(:) + Lspin_now(:) + Lescape(:) Mtot_now = dMcb + sum(mass(2:npl)) + Mcb_initial + Mescape - Ltot_now(:) = Lescape(:) + Ltot_now(:) if (lfirst) then Eorbit_orig = Eorbit_now Mtot_orig = Mtot_now