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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-02-01 05:24:56 -0800 (Fri, 01 Feb 2013)
New Revision: 21314

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90
Log:
removed a useless "if" test


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90	2013-02-01 09:42:24 UTC (rev 21313)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90	2013-02-01 13:24:56 UTC (rev 21314)
@@ -293,13 +293,8 @@
              ! make sure we never write more than the maximum number of time steps
              ! subtract offset of the source to make sure travel time is correct
              do isample = 1,seismo_current
-                if(iorientation == 1) then
-                   write(11,*) sngl(dble(seismo_offset+isample-1)*deltat - t0),' ', &
-                                sngl(buffer_binary(isample,iorientation))
-                else
-                   write(11,*) sngl(dble(seismo_offset+isample-1)*deltat - t0),' ', &
-                                sngl(buffer_binary(isample,iorientation))
-                endif
+                 write(11,*) sngl(dble(seismo_offset+isample-1)*deltat - t0),' ', &
+                              sngl(buffer_binary(isample,iorientation))
              enddo
 
              close(11)