[cig-commits] [commit] devel, master: minor changes in scripts for NOISE_TOMOGRAPHY (035814f)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit 035814fd5b9ae5e0c2c528bc2f6727b683dcd272
Author: Yang Luo <yangl at princeton.edu>
Date:   Mon Apr 4 16:07:41 2011 +0000

    minor changes in scripts for NOISE_TOMOGRAPHY


>---------------------------------------------------------------

035814fd5b9ae5e0c2c528bc2f6727b683dcd272
 noise_examples/test_global/adj_traveltime_filter.f90 | 6 +++---
 noise_examples/test_regional/NOISE_clean_create      | 1 -
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/noise_examples/test_global/adj_traveltime_filter.f90 b/noise_examples/test_global/adj_traveltime_filter.f90
index 8935bc2..8311a53 100644
--- a/noise_examples/test_global/adj_traveltime_filter.f90
+++ b/noise_examples/test_global/adj_traveltime_filter.f90
@@ -6,11 +6,11 @@ program adj_traveltime
 
 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 @@ integer :: I_final(100), index_final(100)
 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)
diff --git a/noise_examples/test_regional/NOISE_clean_create b/noise_examples/test_regional/NOISE_clean_create
index bb03b61..f3231e0 100755
--- a/noise_examples/test_regional/NOISE_clean_create
+++ b/noise_examples/test_regional/NOISE_clean_create
@@ -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