Put the substep counter where it belongs

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