[cig-commits] r18169 - in seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples: test_global test_regional

[yangl at geodynamics.org]

Author: yangl
Date: 2011-04-04 09:07:41 -0700 (Mon, 04 Apr 2011)
New Revision: 18169

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_global/adj_traveltime_filter.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_regional/NOISE_clean_create
Log:
minor changes in scripts for NOISE_TOMOGRAPHY

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_global/adj_traveltime_filter.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_global/adj_traveltime_filter.f90	2011-04-04 15:57:44 UTC (rev 18168)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_global/adj_traveltime_filter.f90	2011-04-04 16:07:41 UTC (rev 18169)
@@ -6,11 +6,11 @@
 
 implicit none
 
-integer, parameter :: nstep = 31599
+integer, parameter :: nstep = 799
 double precision, parameter :: dt = 0.19d0
 double precision, parameter :: C_crit = 0.5d0
 
-double precision, parameter :: length_time_window = 2000.0d0
+double precision, parameter :: length_time_window = 60.0d0
 integer, parameter :: taper_type = 1
 integer, parameter :: i_skip_window =1
 double precision, parameter :: factor = 5d-2
@@ -36,7 +36,7 @@
 double precision, allocatable :: taper(:),corre(:), adj_temp(:),data_trace_temp(:),syn_trace_temp(:)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-integer,parameter :: filter_flag = 1 
+integer,parameter :: filter_flag = 0
 integer :: ifreq, nfreq
 real :: F1,F2,D(8),G,DELT
 !real  freq_low(2),freq_high(2)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_regional/NOISE_clean_create
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_regional/NOISE_clean_create	2011-04-04 15:57:44 UTC (rev 18168)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/EXAMPLES/noise_examples/test_regional/NOISE_clean_create	2011-04-04 16:07:41 UTC (rev 18169)
@@ -3,7 +3,6 @@
 DIR_LOCAL=$1
 iproc=$PBS_VNODENUM
 
-##### other files can be collected in the same way
 if [ $(($iproc % 8)) = 0 ]; then
    rm -rf   $DIR_LOCAL
    mkdir -p $DIR_LOCAL