From 7cb3c0c843281b342b538f066b776e8a4e5f51c0 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 10 Mar 2023 18:00:06 -0500 Subject: [PATCH] Put the substep counter where it belongs --- src/walltime/walltime_implementations.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/walltime/walltime_implementations.f90 b/src/walltime/walltime_implementations.f90 index aaf18f85b..0a9824d78 100644 --- a/src/walltime/walltime_implementations.f90 +++ b/src/walltime/walltime_implementations.f90 @@ -48,7 +48,6 @@ module subroutine walltime_report(self, message, unit) character(len=*), intent(in) :: message !! Message to prepend to the wall time terminal output integer(I4B), intent(in) :: unit !! Output file unit for report text to be directed ! Internals - character(len=*), parameter :: nosubstepfmt = '" Total wall time: ", es12.5, "; Interval wall time: ", es12.5 ' character(len=*), parameter :: substepfmt = '" Total wall time: ", es12.5, "; Interval wall time: ", es12.5, ";' //& ' Interval wall time/step: ", es12.5' character(len=STRMAX) :: fmt @@ -103,7 +102,6 @@ module subroutine walltime_start_main(self) call system_clock(self%count_start_main, self%count_rate, self%count_max) self%main_is_started = .true. self%wall_main = 0.0_DP - self%nsubsteps = self%nsubsteps + 1 return end subroutine walltime_start_main @@ -134,6 +132,7 @@ module subroutine walltime_start(self) else ! Start a new step timer call system_clock(self%count_start_step) end if + self%nsubsteps = self%nsubsteps + 1 return end subroutine walltime_start