Fixed issue in which lfirst flag was not set to .true. for the initia…

…l loop timing
MintonGroup · Sep 20, 2021 · 3fb9f93 · 3fb9f93
1 parent 88c72d6
commit 3fb9f93
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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