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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:58:48 -0800 (Fri, 07 Dec 2007)
New Revision: 8587

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
arrays for storing seismograms are now of size min(NSTEP,NTSTEP_BETWEEN_OUTPUT_INFO).

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-09-25 13:05:41 UTC (rev 8586)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:58:48 UTC (rev 8587)
@@ -375,8 +375,7 @@
 
   read(IIN,"(a80)") datlin
   read(IIN,*) NTSTEP_BETWEEN_OUTPUT_INFO
-  NTSTEP_BETWEEN_OUTPUT_SEISMO = NTSTEP_BETWEEN_OUTPUT_INFO
-
+  
   read(IIN,"(a80)") datlin
   read(IIN,*) output_postscript_snapshot,output_color_image,colors,numbers
 
@@ -409,7 +408,9 @@
   read(IIN,"(a80)") datlin
   read(IIN,*) NSTEP,deltat
   write(IOUT,703) NSTEP,deltat,NSTEP*deltat
-
+  
+  NTSTEP_BETWEEN_OUTPUT_SEISMO = min(NSTEP,NTSTEP_BETWEEN_OUTPUT_INFO)
+  
 !
 !----  read source information
 !