Save fraggle snapshot to the symba storage object

MintonGroup · Dec 8, 2022 · 2ea96cd · 2ea96cd
1 parent 127e736
commit 2ea96cd
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -1296,7 +1296,7 @@ module subroutine symba_util_take_encounter_snapshot(self, param, t)
       class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters 
       real(DP),                   intent(in)    :: t     !! current time
       ! Arguments
-      type(encounter_snapshot) :: snapshot
+      type(fraggle_encounter_snapshot) :: snapshot
       integer(I4B) :: i, npl_snap, ntp_snap
 
       associate(npl => self%pl%nbody,  ntp => self%tp%nbody)
@@ -1380,6 +1380,10 @@ module subroutine symba_util_take_encounter_snapshot(self, param, t)
                   end select
                end select
 
+               if (self%plplenc_list%lcollision) then
+                  allocate(snapshot%colliders, source=self%colliders)
+                  allocate(snapshot%fragments, source=self%fragments)
+               end if
 
                ! Save the snapshot
                call symba_util_save_storage(self,snapshot,t)