From 0b449b6094bc6b8116b1c7700238d0fc2587ce80 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Sun, 15 Jan 2023 08:58:01 -0500 Subject: [PATCH] Temporarily removed the "rebuilding encounter list" until I understand its implications better --- src/swiftest/swiftest_util.f90 | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/src/swiftest/swiftest_util.f90 b/src/swiftest/swiftest_util.f90 index c1efe888f..ecd3708ed 100644 --- a/src/swiftest/swiftest_util.f90 +++ b/src/swiftest/swiftest_util.f90 @@ -1869,21 +1869,21 @@ module subroutine swiftest_util_rearray_pl(self, nbody_system, param) call plplenc_old%copy(nbody_system%plpl_encounter) end if - ! Re-build the encounter list - ! Be sure to get the level info if this is a SyMBA nbody_system - select type(nbody_system) - class is (symba_nbody_system) - select type(pl) - class is (symba_pl) - select type(tp) - class is (symba_tp) - lencounter = pl%encounter_check(param, nbody_system, param%dt, nbody_system%irec) - if (tp%nbody > 0) then - lencounter = tp%encounter_check(param, nbody_system, param%dt, nbody_system%irec) - end if - end select - end select - end select + ! ! Re-build the encounter list + ! ! Be sure to get the level info if this is a SyMBA nbody_system + ! select type(nbody_system) + ! class is (symba_nbody_system) + ! select type(pl) + ! class is (symba_pl) + ! select type(tp) + ! class is (symba_tp) + ! lencounter = pl%encounter_check(param, nbody_system, param%dt, nbody_system%irec) + ! if (tp%nbody > 0) then + ! lencounter = tp%encounter_check(param, nbody_system, param%dt, nbody_system%irec) + ! end if + ! end select + ! end select + ! end select ! Re-index the encounter list as the index values may have changed if (nenc_old > 0) then