Set temporary snapshot to be non-allocatable when saving

MintonGroup · Dec 8, 2022 · 51d0853 · 51d0853
1 parent 954764f
commit 51d0853
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -1340,12 +1340,11 @@ 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(symba_encounter_snapshot), allocatable  :: snapshot
+      type(symba_encounter_snapshot) :: snapshot
       integer(I4B) :: i, npl_snap, ntp_snap
 
       associate(npl => self%pl%nbody,  ntp => self%tp%nbody)
 
-         allocate(symba_encounter_snapshot :: snapshot)
          snapshot%t = t
 
          if (npl + ntp == 0) return