Merge pull request #577 from feathern/timing_fix

Timing Bug Fix
geodynamics · Sep 9, 2024 · 6790d65 · 6790d65
2 parents ad02113 + 0fb233d
commit 6790d65
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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,15 +310,16 @@ 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)
 
             Call stdout%print('//////////////////////////////////////////////')
 
 
         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