diff --git a/src/walltime/walltime_implementations.f90 b/src/walltime/walltime_implementations.f90 index c0804b664..dcf1a2a60 100644 --- a/src/walltime/walltime_implementations.f90 +++ b/src/walltime/walltime_implementations.f90 @@ -51,7 +51,7 @@ module subroutine walltime_report(self, message, unit, nsubsteps) ! 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' + ' Interval wall time/step: ", es12.5' character(len=STRMAX) :: fmt integer(I8B) :: count_delta_step, count_delta_main, count_now