From d20f5584f8552807dd3ef6e67987c77049a55aeb Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 14 Dec 2022 18:18:44 -0500 Subject: [PATCH] Ensured that collision tracking is always turned on in SyMBA --- src/io/io.f90 | 2 +- src/setup/setup.f90 | 20 +++++++++----------- 2 files changed, 10 insertions(+), 12 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index 79b72bb77..1f7852ea2 100644 --- 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 index 57679f622..c9ff0dc7d 100644 --- 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