[cig-commits] r8554 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:55:59 -0800 (Fri, 07 Dec 2007)
New Revision: 8554

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
changed i6 to i7 to avoid problems after 999999 time steps


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-07-04 19:34:08 UTC (rev 8553)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:55:59 UTC (rev 8554)
@@ -1885,9 +1885,9 @@
 
     write(IOUT,*)
     if(time >= 1.d-3 .and. time < 1000.d0) then
-      write(IOUT,"('Time step number ',i6,'   t = ',f9.4,' s')") it,time
+      write(IOUT,"('Time step number ',i7,'   t = ',f9.4,' s')") it,time
     else
-      write(IOUT,"('Time step number ',i6,'   t = ',1pe12.6,' s')") it,time
+      write(IOUT,"('Time step number ',i7,'   t = ',1pe12.6,' s')") it,time
     endif
 
     if(any_elastic) then