Ensured that collision tracking is always turned on in SyMBA

MintonGroup · Dec 14, 2022 · d20f558 · d20f558
1 parent 27a2d52
commit d20f558
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 12 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -268,7 +268,7 @@ module subroutine io_dump_system(self, param)
       select type(param)
       class is (symba_parameters)
          if (param%lenc_save_trajectory .or. param%lenc_save_closest) call param%encounter_history%dump(param)
-         if (param%lfragmentation) call param%collision_history%dump(param)
+         call param%collision_history%dump(param)
       end select
 
       ! Dump the system history to file

diff --git a/src/setup/setup.f90 b/src/setup/setup.f90
@@ -87,17 +87,15 @@ module subroutine setup_construct_system(system, param)
                   end associate
                end if
 
-               if (param%lclose) then
-                  allocate(collision_storage :: param%collision_history)
-                  associate (collision_history => param%collision_history)
-                     allocate(fraggle_io_parameters :: collision_history%nc)
-                     call collision_history%reset()
-                     select type(nc => collision_history%nc)
-                     class is (fraggle_io_parameters)
-                        nc%file_number = param%iloop / param%dump_cadence
-                     end select
-                  end associate
-               end if
+               allocate(collision_storage :: param%collision_history)
+               associate (collision_history => param%collision_history)
+                  allocate(fraggle_io_parameters :: collision_history%nc)
+                  call collision_history%reset()
+                  select type(nc => collision_history%nc)
+                  class is (fraggle_io_parameters)
+                     nc%file_number = param%iloop / param%dump_cadence
+                  end select
+               end associate
             end select
 
          end select