[cig-commits] [commit] devel: changed i4 to i6 to avoid overflow for very slow runs with full range-checking options (6cdae0e)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/38da48351ad4c6f04247e1cba0937d9af1861b43...6cdae0ed5ea07b56888b1cff02668016232a3e26

>---------------------------------------------------------------

commit 6cdae0ed5ea07b56888b1cff02668016232a3e26
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Wed Jul 16 02:30:48 2014 +0200

    changed i4 to i6 to avoid overflow for very slow runs with full range-checking options


>---------------------------------------------------------------

6cdae0ed5ea07b56888b1cff02668016232a3e26
 src/specfem2D/check_stability.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/specfem2D/check_stability.F90 b/src/specfem2D/check_stability.F90
index e2c234c..0899e9a 100644
--- a/src/specfem2D/check_stability.F90
+++ b/src/specfem2D/check_stability.F90
@@ -245,7 +245,7 @@
       iminutes = (int_tCPU - 3600*ihours) / 60
       iseconds = int_tCPU - 3600*ihours - 60*iminutes
       write(IOUT,*) 'Elapsed time in seconds = ',tCPU
-      write(IOUT,"(' Elapsed time in hh:mm:ss = ',i4,' h ',i2.2,' m ',i2.2,' s')") ihours,iminutes,iseconds
+      write(IOUT,"(' Elapsed time in hh:mm:ss = ',i6,' h ',i2.2,' m ',i2.2,' s')") ihours,iminutes,iseconds
       write(IOUT,*) 'Mean elapsed time per time step in seconds = ',tCPU/dble(it)
 
       ! compute estimated remaining simulation time
@@ -256,7 +256,7 @@
       iseconds_remain = int_t_remain - 3600*ihours_remain - 60*iminutes_remain
       write(IOUT,*) 'Time steps remaining = ',NSTEP - it
       write(IOUT,*) 'Estimated remaining time in seconds = ',t_remain
-      write(IOUT,"(' Estimated remaining time in hh:mm:ss = ',i4,' h ',i2.2,' m ',i2.2,' s')") &
+      write(IOUT,"(' Estimated remaining time in hh:mm:ss = ',i6,' h ',i2.2,' m ',i2.2,' s')") &
              ihours_remain,iminutes_remain,iseconds_remain
 
       ! compute estimated total simulation time
@@ -266,7 +266,7 @@
       iminutes_total = (int_t_total - 3600*ihours_total) / 60
       iseconds_total = int_t_total - 3600*ihours_total - 60*iminutes_total
       write(IOUT,*) 'Estimated total run time in seconds = ',t_total
-      write(IOUT,"(' Estimated total run time in hh:mm:ss = ',i4,' h ',i2.2,' m ',i2.2,' s')") &
+      write(IOUT,"(' Estimated total run time in hh:mm:ss = ',i6,' h ',i2.2,' m ',i2.2,' s')") &
              ihours_total,iminutes_total,iseconds_total
 
       if(it < NSTEP) then