[cig-commits] r21316 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-02-01 05:33:04 -0800 (Fri, 01 Feb 2013)
New Revision: 21316

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90
Log:
fixed a small problem when writing the source time function file source.txt: intermediate Runge-Kutta substeps were also written


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90	2013-02-01 13:29:55 UTC (rev 21315)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90	2013-02-01 13:33:04 UTC (rev 21316)
@@ -182,8 +182,8 @@
     enddo
 
     ! output relative time in third column, in case user wants to check it as well
-    ! if (myrank == 0 .and. i_source==1 ) write(55,*) sngl(time-t0-tshift_src(1)),real(source_time_function(1,it),4),sngl(time)
-    if (myrank == 0) then
+    ! if (myrank == 0 .and. i_source == 1) write(55,*) sngl(time-t0-tshift_src(1)),real(source_time_function(1,it),4),sngl(time)
+    if (myrank == 0 .and. i_source == 1 .and. i_stage == 1) then
         ! note: earliest start time of the simulation is: (it-1)*deltat - t0
         write(55,*) sngl(time-t0),sngl(stf_used),sngl(time)
     endif