Minor cosmetic changes

MintonGroup · Dec 5, 2022 · f707a46 · f707a46
1 parent 06c7726
commit f707a46
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
       !!
-Original file line number
+Diff line change
@@ Expand Up / @@ -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
           !!
@@ Expand Down @@