simplified encounter saves

MintonGroup · Sep 17, 2021 · 85b296b · 85b296b
1 parent 2268173
commit 85b296b
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90
@@ -175,8 +175,8 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
             call symba_encounter_check_all_triangular(npl, nplm, pl%xh, pl%vh, pl%rhill, dt, irec, lvdotr, index1, index2, nenc)
             lany_encounter = nenc > 0
             if (lany_encounter) then
-               call move_alloc(lvdotr, plplenc_list%lvdotr)					
-               call move_alloc(index1, plplenc_list%index1) 					
+               call move_alloc(lvdotr, plplenc_list%lvdotr)
+               call move_alloc(index1, plplenc_list%index1)
                call move_alloc(index2, plplenc_list%index2)
             end if
          end if
@@ -185,10 +185,8 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
             do k = 1, nenc
                i = plplenc_list%index1(k)
                j = plplenc_list%index2(k)
-               call util_index_eucl_ij_to_k(npl, i, j, kenc)
-               plplenc_list%id1(k) = pl%id(plplenc_list%index1(k))					
-               plplenc_list%id2(k) = pl%id(plplenc_list%index2(k))					
-               plplenc_list%status(k) = ACTIVE
+               plplenc_list%id1(k) = pl%id(i)
+               plplenc_list%id2(k) = pl%id(j)
                plplenc_list%level(k) = irec
                pl%lencounter(i) = .true.
                pl%lencounter(j) = .true.