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

[liuqy at geodynamics.org]

Author: liuqy
Date: 2009-11-03 15:25:05 -0800 (Tue, 03 Nov 2009)
New Revision: 15929

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/user_functions.f90
Log:

change noise_end definition, add safeguard of larger than beginning time,
count WIN_MIN_PERIOD (instead of WIN_MAX_PERIOD) time before P arrival.

- noise_end=ph_times(1)-WIN_MAX_PERIOD
+ noise_end=max(ph_times(1)-WIN_MIN_PERIOD,b+dt)



Modified: seismo/3D/ADJOINT_TOMO/flexwin/user_functions.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_functions.f90	2009-11-03 22:43:17 UTC (rev 15928)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_functions.f90	2009-11-03 23:25:05 UTC (rev 15929)
@@ -48,7 +48,7 @@
   ! if DATA_QUALITY=.true.
   if (DATA_QUALITY) then
     noise_start=b
-    noise_end=ph_times(1)-WIN_MAX_PERIOD
+    noise_end=max(ph_times(1)-WIN_MIN_PERIOD,b+dt)
     signal_start=noise_end
     signal_end=b+(npts-1)*dt
   endif