Started working on getting SyMBA to recognize pl-pl collisions

MintonGroup · Aug 2, 2021 · 025cd22 · 025cd22
1 parent f40f7a1
commit 025cd22
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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