Made sure to set the recursion level correctly when creating collisio…

…nal fragments
MintonGroup · Dec 14, 2022 · 4355bae · 4355bae
1 parent c9aee22
commit 4355bae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -683,15 +683,15 @@ module subroutine symba_util_rearray_pl(self, system, param)
          allocate(levelg_orig_pl, source=pl%levelg)
          allocate(levelm_orig_pl, source=pl%levelm)
          allocate(nplenc_orig_pl, source=pl%nplenc)
-         lencounter = pl%encounter_check(param, system, param%dt, 0) 
+         lencounter = pl%encounter_check(param, system, param%dt, system%irec) 
          if (system%tp%nbody > 0) then
             select type(tp => system%tp)
             class is (symba_tp)
                allocate(ntpenc_orig_pl, source=pl%ntpenc)
                allocate(levelg_orig_tp, source=tp%levelg)
                allocate(levelm_orig_tp, source=tp%levelm)
                allocate(nplenc_orig_tp, source=tp%nplenc)
-               lencounter = tp%encounter_check(param, system, param%dt, 0)
+               lencounter = tp%encounter_check(param, system, param%dt, system%irec)
                call move_alloc(levelg_orig_tp, tp%levelg)
                call move_alloc(levelm_orig_tp, tp%levelm)
                call move_alloc(nplenc_orig_tp, tp%nplenc)