From 0fb233de9f20f06139eea826f3d0082693be2269 Mon Sep 17 00:00:00 2001 From: Nick Featherstone Date: Mon, 9 Sep 2024 12:05:26 -0600 Subject: [PATCH] Fixed bug where max_iterations was being passed to finalize_timings. --- src/Physics/Sphere_Driver.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Physics/Sphere_Driver.F90 b/src/Physics/Sphere_Driver.F90 index 26076e73..bdda3f97 100755 --- a/src/Physics/Sphere_Driver.F90 +++ b/src/Physics/Sphere_Driver.F90 @@ -72,7 +72,7 @@ End Subroutine Initialize_TimeStepping Subroutine Main_Loop_Sphere() Implicit None Integer :: last_iteration, first_iteration, i, iret - Integer :: io=15, ierr + Integer :: io=15, ierr, iteration_count Real*8 :: captured_time, max_time_seconds Logical :: terminate_file_exists Character*14 :: tmstr @@ -310,7 +310,8 @@ Subroutine Main_Loop_Sphere() Write(tmstr,fmtstr)captured_time Call stdout%print('captured time: '//tmstr) - Write(tmstr,fmtstr)(last_iteration-first_iteration)/StopWatch(loop_time)%elapsed + iteration_count = last_iteration-first_iteration + Write(tmstr,fmtstr)(iteration_count)/StopWatch(loop_time)%elapsed Call stdout%print(' ') Call stdout%print(' iter/sec: '//tmstr) @@ -318,7 +319,7 @@ Subroutine Main_Loop_Sphere() Endif - Call Finalize_Timing(n_r,l_max,max_iterations) + Call Finalize_Timing(n_r,l_max,iteration_count) End Subroutine Main_Loop_Sphere ! Signal handler function