[cig-commits] r14593 - seismo/3D/ADJOINT_TOMO/flexwin

[alessia at geodynamics.org]

Author: alessia
Date: 2009-04-04 00:51:58 -0700 (Sat, 04 Apr 2009)
New Revision: 14593

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
Log:
removed unused variable in seismo_subs.f90

Modified: seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2009-04-04 07:51:15 UTC (rev 14592)
+++ seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2009-04-04 07:51:58 UTC (rev 14593)
@@ -534,7 +534,7 @@
   use seismo_variables
 
   double precision :: TOL, Cs, Cl, sta, lta, noise
-  integer :: i, n_extend, n_sample
+  integer :: i, n_extend 
   double precision, dimension(:), allocatable :: extended_syn
 
 ! set the Cs Cl for STA/LTA ratio using the Bai & Kennett (2001) expressions