From 2ea96cd7bfd0cab6df008088bac6625a99a261a1 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 8 Dec 2022 18:25:05 -0500 Subject: [PATCH] Save fraggle snapshot to the symba storage object --- src/symba/symba_util.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)