[cig-commits] r22099 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-05-17 14:14:54 -0700 (Fri, 17 May 2013)
New Revision: 22099

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/shared/read_compute_parameters.f90
Log:
added an if statement on UNDO_ATT to the modification of NSTEP


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/shared/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/shared/read_compute_parameters.f90	2013-05-17 20:41:46 UTC (rev 22098)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/shared/read_compute_parameters.f90	2013-05-17 21:14:54 UTC (rev 22099)
@@ -228,7 +228,7 @@
   NSTEP = 100 * (int(RECORD_LENGTH_IN_MINUTES * 60.d0 / (100.d0*DT)) + 1)
 
 !! DK DK UNDO_ATT make sure NSTEP is a multiple of NT_500
-  if(mod(NSTEP,NT_500) /= 0) NSTEP = (NSTEP/NT_500 + 1)*NT_500
+  if(UNDO_ATT .and. mod(NSTEP,NT_500) /= 0) NSTEP = (NSTEP/NT_500 + 1)*NT_500
 
 ! if doing benchmark runs to measure scaling of the code for a limited number of time steps only
   if (DO_BENCHMARK_RUN_ONLY) NSTEP = NSTEP_FOR_BENCHMARK