From 025cd22a8ce74d0afff7e43e917022496da45c5b Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 2 Aug 2021 14:02:36 -0400 Subject: [PATCH] Started working on getting SyMBA to recognize pl-pl collisions --- src/symba/symba_collision.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 218eb9274..7c0a05c91 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -70,9 +70,10 @@ module subroutine symba_collision_check_plplenc(self, system, param, t, dt, irec call system%mergesub_list%append(pl, lmask) ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step - pl%lcollision(ind1(k)) = .true. - pl%lcollision(ind2(k)) = .true. + pl%lcollision([ind1(k), ind2(k)]) = .true. + pl%ldiscard([ind1(k), ind2(k)]) = .true. end do + end if end associate end select