From e08f725691745f60d28c769869a729ea36c0ff8e Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 9 Dec 2022 19:16:34 -0500 Subject: [PATCH] Helpful comments --- src/symba/symba_util.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index d54027696..9b6d11463 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -1304,6 +1304,7 @@ module subroutine symba_util_take_collision_snapshot(self, param, t, stage) select case(stage) case("before") + ! Saves the states of the bodies involved in the collision before the collision is resolved associate (idx => self%colliders%idx, ncoll => self%colliders%ncoll) allocate(symba_pl :: self%colliders%pl) select type(pl => self%colliders%pl) @@ -1324,7 +1325,6 @@ module subroutine symba_util_take_collision_snapshot(self, param, t, stage) allocate(snapshot%colliders, source=self%colliders) allocate(snapshot%fragments, source=self%fragments) !call symba_util_save_storage(self,snapshot,t) - deallocate(snapshot) end select return