diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90 index 8d6c73f12..977aa2b15 100644 --- a/src/modules/swiftest_classes.f90 +++ b/src/modules/swiftest_classes.f90 @@ -544,9 +544,9 @@ module swiftest_classes type :: swiftest_storage(nframes) !! An class that establishes the pattern for various storage objects - integer(I4B), len :: nframes !! Total number of frames that can be stored - type(swiftest_storage_frame), dimension(nframes) :: frame !! Array of stored frames - integer(I4B) :: iframe = 0 !! The current frame number + integer(I4B), len :: nframes = 10 !! Total number of frames that can be stored + type(swiftest_storage_frame), dimension(nframes) :: frame !! Array of stored frames + integer(I4B) :: iframe = 0 !! The current frame number contains procedure :: dump => io_dump_storage end type swiftest_storage diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90 index dc4ca0d41..f5616510d 100644 --- a/src/symba/symba_step.f90 +++ b/src/symba/symba_step.f90 @@ -278,7 +278,6 @@ module subroutine symba_step_reset_system(self, param) nenc_old = system%plplenc_list%nenc call system%plplenc_list%setup(0_I8B) call system%plplcollision_list%setup(0_I8B) - if (allocated(system%encounter_history)) deallocate(system%encounter_history) if (npl > 0) then pl%lcollision(1:npl) = .false. call pl%reset_kinship([(i, i=1, npl)]) @@ -313,8 +312,6 @@ module subroutine symba_step_reset_system(self, param) tp%lfirst = param%lfirstkick pl%lfirst = param%lfirstkick - if (allocated(system%encounter_history)) deallocate(system%encounter_history) - allocate(symba_encounter_storage(8) :: system%encounter_history) end associate end select end select diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index 2d228f45f..f3eaa5ef6 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -945,7 +945,6 @@ module subroutine symba_util_resize_storage(self, nnew) end subroutine symba_util_resize_storage - module subroutine symba_util_resize_tp(self, nnew) !! author: David A. Minton !!