From 3fb9f93071aaadcf3725a42dd30a49df339c1fa5 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 20 Sep 2021 18:19:26 -0400 Subject: [PATCH] Fixed issue in which lfirst flag was not set to .true. for the initial loop timing --- src/kick/kick.f90 | 2 +- src/modules/walltime_classes.f90 | 1 - src/symba/symba_kick.f90 | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index edc054caf..078003a2a 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -15,7 +15,7 @@ module subroutine kick_getacch_int_pl(self, param) class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters ! Internals type(interaction_timer), save :: itimer - logical, save :: lfirst + logical, save :: lfirst = .true. character(len=STRMAX) :: tstr, nstr, cstr, mstr, lstyle character(len=1) :: schar diff --git a/src/modules/walltime_classes.f90 b/src/modules/walltime_classes.f90 index 4ecc912d1..a06f1103e 100644 --- a/src/modules/walltime_classes.f90 +++ b/src/modules/walltime_classes.f90 @@ -272,7 +272,6 @@ module subroutine walltime_interaction_time_this_loop(self, param, pl, ninteract integer(I8B), intent(in) :: ninteractions !! Current number of interactions (used to normalize the timed loop) self%is_on = .true. - self%step_counter = 0 select case(self%stage) case(1) self%stage1_ninteractions = ninteractions diff --git a/src/symba/symba_kick.f90 b/src/symba/symba_kick.f90 index 9d2e10666..9d9915f7c 100644 --- a/src/symba/symba_kick.f90 +++ b/src/symba/symba_kick.f90 @@ -15,7 +15,7 @@ module subroutine symba_kick_getacch_int_pl(self, param) class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameter ! Internals type(interaction_timer), save :: itimer - logical, save :: lfirst + logical, save :: lfirst = .true. character(len=STRMAX) :: tstr, nstr, cstr, mstr character(len=11) :: lstyle character(len=1) :: schar