Removed the encounter list stuff that I won't actually use

MintonGroup · Dec 4, 2022 · a1b6ca6 · a1b6ca6
1 parent 01d8a1c
commit a1b6ca6
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90
@@ -69,15 +69,6 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
                plplenc_list%x2(:,k) = pl%rh(:,j)
                plplenc_list%v1(:,k) = pl%vb(:,i) - cb%vb(:)
                plplenc_list%v2(:,k) = pl%vb(:,j) - cb%vb(:)
-               plplenc_list%Gmass1(k) = pl%Gmass(i)
-               plplenc_list%Gmass2(k) = pl%Gmass(j)
-               if (param%lclose) then
-                  plplenc_list%radius1(k) = pl%radius(i)
-                  plplenc_list%radius2(k) = pl%radius(j)
-               end if
-               plplenc_list%name1(k) = pl%info(i)%name
-               plplenc_list%name2(k) = pl%info(j)%name
-
                pl%lencounter(i) = .true.
                pl%lencounter(j) = .true.
                pl%levelg(i) = irec
@@ -87,9 +78,6 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
                pl%nplenc(i) = pl%nplenc(i) + 1
                pl%nplenc(j) = pl%nplenc(j) + 1
             end do
-            ienc_frame = ienc_frame + 1
-            call system%resize_storage(ienc_frame)
-            system%encounter_history%frame(ienc_frame) = plplenc_list
          end if
 
       end associate