diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index c2a837599..0e090601e 100644 --- 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)