[cig-commits] r18990 - seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D

[rietmann at geodynamics.org]

Author: rietmann
Date: 2011-09-29 03:21:47 -0700 (Thu, 29 Sep 2011)
New Revision: 18990

Modified:
   seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/iterate_time.f90
Log:
working iterate time i think

Modified: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/iterate_time.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/iterate_time.f90	2011-09-29 10:21:44 UTC (rev 18989)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/iterate_time.f90	2011-09-29 10:21:47 UTC (rev 18990)
@@ -63,8 +63,7 @@
 ! ************* MAIN LOOP OVER THE TIME STEPS *************
 ! *********************************************************
 
-  ! do it = 1,NSTEP
-  do it = 1,150
+  do it = 1,NSTEP
 
     ! simulation status output and stability check
     if(mod(it,NTSTEP_BETWEEN_OUTPUT_INFO) == 0 .or. it == 5) then