[cig-commits] r14235 - in seismo/3D/ADJOINT_TOMO/flexwin: . latex latex/figures scripts scripts/prepare_scripts/socal user_files/socal_3D
carltape at geodynamics.org
carltape at geodynamics.org
Thu Mar 5 14:10:33 PST 2009
Author: carltape
Date: 2009-03-05 14:10:33 -0800 (Thu, 05 Mar 2009)
New Revision: 14235
Added:
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T06_rs.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T24_rs.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_CLC_window.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_FMP_window.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9983429_T06_rs.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_criteria.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_seis_nowin.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/KIS_BO_091502B.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/SHR_BO_200511211536A.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/composites_global.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/examples_global.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/stats_T06.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_composite.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_overlap.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_global_data.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_separation.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_results.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.pdf
seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.tex
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m14
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m15
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m16
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m99
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m14
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m15
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m16
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m99
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_09s
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_12s
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m14
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m15
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m16
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m99
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m14.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m15.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m16.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m99.f90
Removed:
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90
seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90
Modified:
seismo/3D/ADJOINT_TOMO/flexwin/latex/AM-allcitations.bib
seismo/3D/ADJOINT_TOMO/flexwin/latex/figures_paper.tex
seismo/3D/ADJOINT_TOMO/flexwin/latex/flexwin_paper.pdf
seismo/3D/ADJOINT_TOMO/flexwin/scripts/pick_all_windows.pl
seismo/3D/ADJOINT_TOMO/flexwin/scripts/prepare_scripts/socal/process_data_and_syn.pl
seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
Log:
Updated socal user files. Added comments on paper proofs and updated references. Added a variable to seismo_subs.f90 fout that specifies how far to look outside the window to make the cross-correlation measurement. The value is set as 0.5, which is the same it has always been.
Modified: seismo/3D/ADJOINT_TOMO/flexwin/latex/AM-allcitations.bib
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/latex/AM-allcitations.bib 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/latex/AM-allcitations.bib 2009-03-05 22:10:33 UTC (rev 14235)
@@ -114,13 +114,15 @@
Volume = {167},
Year = {2006}}
+
@article{LawrenceShearer2008,
- Author = {Lawrence, J.F. and Shearer, P.M.},
- Date-Added = {2008-11-10 18:18:29 +0100},
- Date-Modified = {2008-11-10 18:21:30 +0100},
- Journal = {Geophys. J. Int.},
- Title = {Imaging mantle transition zone thickness with SdS-SS finite-frequency sensitivity kernels},
- Year = {2008}}
+ AUTHOR = {J. F. Lawrence and P. M. Shearer},
+ JOURNAL = gji,
+ PAGES = {143--158},
+ TITLE = {{Imaging mantle transition zone thickness with $SdS$-$SS$ finite-frequency sensitivity kernels}},
+ VOLUME = {174},
+ YEAR = {2008}
+}
@article{SiglochNolet2006,
Author = {Sigloch, K. and Nolet, G.},
@@ -143,25 +145,24 @@
Year = {2008}}
@article{vanDecarCrosson1990,
- Author = {vanDecar, J.C. and Crosson, R.S.},
+ Author = {VanDecar, J.C. and Crosson, R.S.},
Date-Added = {2008-11-10 18:12:39 +0100},
Date-Modified = {2008-11-10 18:14:04 +0100},
Journal = bssa,
- Number = {1},
Pages = {150--169},
Title = {Determination of teleseismic relative phase arrival times using multi-channel cross-correlation and least squares},
Volume = {80},
Year = {1990}}
@article{LawrenceEtal2006,
- Author = {Lawrence, J.F. and Shearer, P.M. and Masters, G.},
- Date-Added = {2008-11-10 18:10:44 +0100},
- Date-Modified = {2008-11-10 18:12:25 +0100},
- Journal = {Geophy. Res. Lett.},
- Number = {L07315},
- Title = {Mapping attenuation beneath North America using waveform cross-correlation and cluster analysis},
- Volume = {33},
- Year = {2006}}
+ AUTHOR = {J. F. Lawrence and P. M. Shearer and G. Masters},
+ JOURNAL = grl,
+ TITLE = {{Mapping attenuation beneath North America using waveform cross-correlation and cluster analysis}},
+ VOLUME = {33},
+ EID = {L07315},
+ DOI = {10.1029/2006GL025813},
+ YEAR = {2006}
+}
@article{vanHeijstWoodhouse1997,
Author = {Van Heijst, H.J. and Woodhouse, J.H.},
@@ -174,31 +175,29 @@
Year = {1997}}
@article{LebedevEtal2005,
- Author = {Lebedev, S. and Nolet, G. and Meier, T. and van der Hilst, R.D.},
- Date-Added = {2008-11-10 18:05:10 +0100},
- Date-Modified = {2008-11-10 18:06:39 +0100},
- Journal = {Geophys. J. Int.},
- Pages = {951--964},
- Title = {Automated multimode inversion of surface and S waveforms},
- Volume = {162},
- Year = {2005}}
+ AUTHOR = {S. Lebedev and G. Nolet and T. Meier and R. D. {van der Hilst}},
+ JOURNAL = gji,
+ PAGES = {951--964},
+ TITLE = {{Automated multimode inversion of surface and $S$ waveforms}},
+ VOLUME = {162},
+ YEAR = {2005}
+}
@article{VisserEtal2007,
- Author = {Visser, K and Lebedev, S. and Trampert, J. and Kennett, B.L.N.},
- Date-Added = {2008-11-10 18:02:23 +0100},
- Date-Modified = {2008-11-10 18:04:11 +0100},
- Journal = {Geophy. Res. Lett.},
- Number = {L03302},
- Title = {Global Love wave overtone measurements},
- Volume = {34},
- Year = {2007}}
+ AUTHOR = {K. Visser and S. Lebedev and J. Trampert and B. L. N. Kennett},
+ JOURNAL = grl,
+ TITLE = {{Global Love wave overtone measurements}},
+ VOLUME = {34},
+ EID = {L03302},
+ DOI = {10.1029/2006GL028671},
+ YEAR = {2007}
+}
@article{WithersEtal1998,
Author = {Withers, M. and Aster, R. and Young, C. and Beiriger, J. and Harris, M. and Moore, S. and Trujillo, J.},
Date-Added = {2008-11-07 13:24:26 +0100},
Date-Modified = {2008-11-07 13:25:59 +0100},
Journal = bssa,
- Number = {1},
Pages = {96--106},
Title = {A comparison of select trigger algorithms for automated global seismic phase and event detection},
Volume = {88},
@@ -213,7 +212,7 @@
Pages = {173--194},
Publisher = {Springer},
Series = {Lecture Notes in Earth Sciences},
- Title = {Single station real-time P and S phase pickers for seismic observatories},
+ Title = {{Single station real-time P and S phase pickers for seismic observatories}},
Volume = {98},
Year = {2003}}
@@ -228,24 +227,24 @@
Year = {1994}}
@article{BaiKennett2000,
- Author = {Bai, C.Y. and Kennett, B.L.N.},
- Date-Added = {2008-11-07 13:02:09 +0100},
- Date-Modified = {2008-11-07 13:03:30 +0100},
- Journal = bssa,
- Pages = {187--198},
- Title = {Automatic phase detection and identification by full use of a single three component broadband seismogram},
- Volume = {90},
- Year = {2000}}
+ AUTHOR = {C. Bai and B. L. N. Kennett},
+ JOURNAL = bssa,
+ PAGES = {187--198},
+ TITLE = {{Automatic phase-detection and identification by full use of a single three-component broadband seismogram}},
+ VOLUME = {90},
+ YEAR = {2000}
+}
@incollection{AsterRowe2000,
- Author = {Aster, R. and Rowe, A.},
- Booktitle = {Advances in seismic event location},
- Date-Added = {2008-11-07 12:59:16 +0100},
- Date-Modified = {2008-11-07 13:01:35 +0100},
- Pages = {231--263},
- Publisher = {Kluwer Academic Publishers},
- Title = {Automatic phase pick refinement and similar event association in large seismic datasets},
- Year = {2000}}
+ AUTHOR = {R. Aster and C. Rowe},
+ TITLE = {{Automatic phase pick refinement and similar event association in large seismic datasets}},
+ BOOKTITLE = {Advances in Seismic Event Location},
+ PUBLISHER = {Kluwer},
+ ADDRESS = {Dordrecht, Netherlands},
+ EDITOR = {C. H. Thurber and N. Rabinowitz},
+ PAGES = {231--263},
+ YEAR = {2000}
+}
@article{Allen1982,
Author = {Allen, R.V.},
@@ -303,7 +302,7 @@
Date-Modified = {2008-03-25 15:56:24 +0100},
Journal = {Nature},
Pages = {266--268},
- Title = {Using seismic waves to image Earth's internal structure},
+ Title = {{Using seismic waves to image Earth's internal structure}},
Volume = {451},
Year = {2008}}
@@ -425,15 +424,14 @@
Year = {2004}}
@article{ChenEtal2007,
- Author = {Chen, M. and Tromp, J. and Helmberger, D. and Kanamori, H.},
- Date-Added = {2008-03-22 19:31:06 +0100},
- Date-Modified = {2008-03-22 19:32:28 +0100},
- Doi = {10.1029/2006JB004394},
- Journal = {J. Geophys. Res.},
- Title = {{Waveform modeling of the slab beneath Japan}},
- Volume = {112},
- Year = {2007},
- Bdsk-Url-1 = {http://dx.doi.org/10.1029/2006JB004394}}
+ AUTHOR = {M. Chen and J. Tromp and D. Helmberger and H. Kanamori},
+ TITLE = {{Waveform modeling of the slab beneath Japan}},
+ JOURNAL = jgr,
+ VOLUME = {112},
+ YEAR = {2007},
+ EID = {B02305},
+ DOI = {10.1029/2006JB004394}
+}
@article{ZhaoEtal1992,
Author = {Zhao, D. and Horiuchi, S. and Hasegawa, A.},
@@ -445,26 +443,25 @@
Volume = {212},
Year = {1992}}
+
@article{ZhaoEtal1994,
- Author = {Zhao, D. and Hasegawa, A. and Kanamori, H.},
- Date-Added = {2008-03-22 19:25:56 +0100},
- Date-Modified = {2008-03-22 19:30:32 +0100},
- Doi = {10.1029/2000JB000073},
- Journal = {J. Geophys. Res.},
- Title = {{Deep structure of Japan subduction zone as derived from local, regional, and teleseismic events}},
- Volume = {99},
- Year = {1994},
- Bdsk-Url-1 = {http://dx.doi.org/10.1029/2000JB000073}}
+ AUTHOR = {D. Zhao and A. Hasegawa and H. Kanamori},
+ TITLE = {{Deep structure of Japan subduction zone as derived from local, regional, and teleseismic events}},
+ JOURNAL = jgr,
+ PAGES = {22,313--22,329},
+ VOLUME = {99},
+ NUMBER = {B11},
+ YEAR = {1994}
+}
@article{ChenEtal2007b,
- Author = {Chen, P. and Zhao, L. and Jordan, T.H.},
- Date-Added = {2008-03-22 16:11:35 +0100},
- Date-Modified = {2008-03-22 16:12:24 +0100},
- Journal = bssa,
- Pages = {1094--1120},
- Title = {{Full 3D tomography for the crustal structure of the Los Angeles region}},
- Volume = {97},
- Year = {2007}}
+ AUTHOR = {P. Chen and L. Zhao and T. H. Jordan},
+ JOURNAL = bssa,
+ PAGES = {1094--1120},
+ TITLE = {{Full 3D tomography for the crustal structure of the Los Angeles region}},
+ VOLUME = {97},
+ YEAR = {2007}
+}
@article{Takeuchi2007,
Author = {Takeuchi, N.},
@@ -538,15 +535,14 @@
Bdsk-Url-1 = {http://dx.doi.org/10.1029/2006GC001248}}
@article{ZhouEtal2006,
- Author = {Zhou, Y. and Nolet, G. and Dahlen, F.A. and Laske, G.},
- Date-Added = {2008-03-22 15:48:44 +0100},
- Date-Modified = {2008-03-22 15:50:46 +0100},
- Doi = {10.1029/2005JB003677},
- Journal = {J. Geophys. Res.},
- Title = {Global upper-mantle structure from finite-frequency surface-wave tomography},
- Volume = {111},
- Year = {2006},
- Bdsk-Url-1 = {http://dx.doi.org/10.1029/2005JB003677}}
+ AUTHOR = {Y. Zhou and G. Nolet and F. A. Dahlen and G. Laske},
+ JOURNAL = jgr,
+ TITLE = {{Global upper-mantle structure from finite-frequency surface-wave tomography}},
+ VOLUME = {111},
+ EID = {B04304},
+ DOI = {10.1029/2005JB003677},
+ YEAR = {2006}
+}
@article{ZhouEtal2005,
Author = {Zhou, Y. and Dahlen, F.A. and Nolet, G. and Laske, G.},
@@ -1809,13 +1805,15 @@
Year = 2001}
@article{DahlenEtal2000,
- Author = {Dahlen, F.A. and Hung, S.-H. and Nolet G.},
- Journal = gji,
- Pages = {157--174},
- Title = {Fr{\'e}chet kernels for finite-frequency traveltimes -- {I}. Theory},
- Volume = 141,
- Year = 2000}
+ AUTHOR = {F. A. Dahlen and S.-H. Hung and G. Nolet},
+ JOURNAL = gji,
+ PAGES = {157--174},
+ TITLE = {{Fr\'{e}chet kernels for finite-frequency traveltimes---I. Theory}},
+ VOLUME = {141},
+ YEAR = {2000}
+}
+
@article{DahlenZhou2006,
Author = {Dahlen, F.A. and Zhou, Y.},
Journal = gji,
@@ -1905,13 +1903,15 @@
Year = 1996}
@article{Debayle1999,
- Author = {Debayle, E.},
- Journal = gji,
- Pages = {747-754},
- Title = {SV-wave azimuthal anisotropy in the {A}ustralian upper mantle: preliminary results from automated {R}ayleigh waveform inversion},
- Volume = 137,
- Year = 1999}
+ AUTHOR = {E. Debayle},
+ JOURNAL = gji,
+ PAGES = {747--754},
+ TITLE = {{$SV$-wave azimuthal anisotropy in the Australian upper mantle: preliminary results from automated Rayleigh waveform inversion}},
+ VOLUME = {137},
+ YEAR = {1999}
+}
+
@article{DebayleKennett2000a,
Author = {Debayle, E. and Kennett, B.L.N.},
Journal = epsl,
@@ -2127,7 +2127,6 @@
@article{DziewonskiAnderson1981,
Author = {Dziewonski, A,M. and Anderson, D.L.},
Journal = pepi,
- Number = 4,
Pages = {297--356},
Title = {Preliminary {R}eference {E}arth {M}odel},
Volume = 25,
@@ -2672,7 +2671,6 @@
@article{HardebeckShearer2003,
Author = {J. L. Hardebeck and P. M. Shearer},
Journal = bssa,
- Number = {6},
Pages = {2434--2444},
Title = {{Using $S$/$P$ amplitude ratios to constrain the focal mechanisms of small earthquakes}},
Volume = {93},
@@ -3444,7 +3442,7 @@
Journal = jvgr,
Number = {1--4},
Pages = {355--402},
- Title = {Volcano-stratigraphy and geochemistry of collision-related volcanism on the {E}rzurum--{K}ars {P}lateau, northeastern {T}urkey},
+ Title = {Volcano-stratigraphy and geochemistry of collision-related volcanism on the {E}rzurum--{K}ars {P}lateau, northeastern {T}urkey},
Volume = 85,
Year = 1998}
@@ -3452,7 +3450,7 @@
Author = {Khair, K. and Tsokas, G.N.},
Journal = jgr,
Pages = {25,469--25,478},
- Title = {Nature of the {L}evantine (eastern {M}editerranean) crust from multiple-source {W}erner deconvolution of {B}ouguer gravity anomalies},
+ Title = {Nature of the {L}evantine (eastern {M}editerranean) crust from multiple-source {W}erner deconvolution of {B}ouguer gravity anomalies},
Volume = 104,
Year = 1999}
@@ -3506,12 +3504,13 @@
Year = 1995}
@article{KomatitschVilotte1998,
- Author = {Komatitsch, D. and Vilotte, J.-P.},
- Journal = bssa,
- Pages = {368--392},
- Title = {The spectral element method: {A}n efficient tool to simulate the seismic response of 2D and 3D geological structures},
- Volume = 88,
- Year = 1998}
+ AUTHOR = {D. Komatitsch and J.-P. Vilotte},
+ JOURNAL = bssa,
+ PAGES = {368--392},
+ TITLE = {{The spectral element method: An efficient tool to simulate the seismic response of 2D and 3D geological structures}},
+ VOLUME = {88},
+ YEAR = {1998}
+}
@article{KomatitschTromp2002a,
Author = {Komatitsch, D. and Tromp, J.},
@@ -3847,7 +3846,6 @@
@article{LiuTromp2006,
Author = {Liu, Q. and Tromp, J.},
Journal = bssa,
- Number = 6,
Pages = {2383--2397},
Title = {Finite-frequency kernels based on adjoint methods},
Volume = 96,
@@ -4635,13 +4633,13 @@
Year = 2002}
@article{MontelliEtal2004a,
- Author = {Montelli, R. and Nolet, G. and Dahlen, F.A. and Masters, G. and Engdahl, E.R. and Hung, S-H.},
- Journal = sci,
- Note = {10.1126/science.1092485},
- Pages = {338-343},
- Title = {Finite-frequency tomography reveals a variety of plumes in the mantle},
- Volume = 303,
- Year = 2004}
+ AUTHOR = {R. Montelli and G. Nolet and F. A. Dahlen and G. Masters and E. R. Engdahl and S.-H. Hung},
+ TITLE = {{Finite-frequency tomography reveals a variety of plumes in the mantle}},
+ JOURNAL = sci,
+ VOLUME = {303},
+ YEAR = {2004},
+ PAGES = {338--343}
+}
@article{MontelliEtal2004b,
Author = { Montelli,R. and Nolet,G. and Masters,G. and Dahlen,F. A. and Hung,S.-H. },
@@ -5444,12 +5442,13 @@
Year = 1999}
@article{RitsemaVanHeijst2002,
- Author = {Ritsema, J. and van Heijst, H.J.},
- Journal = gji,
- Pages = {482--489},
- Title = {Constraints on the correlation of $P$- and $S$-wave velocity heterogeneity in the mantle from $P$, $PP$, $PPP$ and $PKPab$ traveltimes},
- Volume = 149,
- Year = 2002}
+ AUTHOR = {J. Ritsema and H.-J. van Heijst},
+ JOURNAL = gji,
+ PAGES = {482--489},
+ TITLE = {{Constraints on the correlation of $P$- and $S$-wave velocity heterogeneity in the mantle from $P$, $PP$, $PPP$ and $PKP$ab traveltimes}},
+ VOLUME = {149},
+ YEAR = {2002}
+}
@article{RitsemaAllen2003,
Author = {Ritsema, J. and Allen, R.M.},
@@ -6203,9 +6202,8 @@
@article{TapeEtal2007,
Author = {Tape, C. and Liu, Q. and Tromp, J.},
Journal = gji,
- Number = 3,
Pages = {1105--1129},
- Title = {Finite-frequency tomography using adjoint methods. Methodology and examples using membrane surface waves},
+ Title = {{Finite-frequency tomography using adjoint methods---Methodology and examples using membrane surface waves}},
Volume = 168,
Year = 2007}
@@ -6220,7 +6218,6 @@
@article{Tarantola1984,
Author = {Tarantola, A.},
Journal = geophys,
- Number = 8,
Pages = {1259--1266},
Title = {Inversion of seismic reflection data in the acoustic approximation},
Volume = 49,
@@ -6497,7 +6494,6 @@
@article{Wald95,
Author = {Wald, L. A. and Hutton, L. K. and Given, D. D.},
Journal = srl,
- Number = 1,
Pages = {9--19},
Title = {{The Southern California Network Bulletin: 1990--1993 summary}},
Volume = 66,
@@ -6792,17 +6788,16 @@
@article{YoshizawaKennett2002b,
Author = {Yoshizawa, K. and Kennett, B.L.N.},
Journal = gji,
- Number = 1,
Pages = {118--133},
- Title = {Non-linear waveform inversion for surface waves with a neighbourhood algorithm --- application to multimode dispersion measurements},
+ Title = {Non-linear waveform inversion for surface waves with a neighbourhood algorithm---application to multimode dispersion measurements},
Volume = 149,
Year = 2002}
@article{YuanEtal1997,
- Author = {Yuan, X.H. and Ni, J. and Kind, R. and Mechie, J. and Sandvol, E.},
+ Author = {Yuan, X.H. and Ni, J. and Kind, R. and Mechie, J. and Sandvol, E.},
Journal = jgr,
Pages = {27,491--27,500},
- Title = {Lithospheric and upper mantle structure of southern {T}ibet from a seismological passive source experiment},
+ Title = {Lithospheric and upper mantle structure of southern {T}ibet from a seismological passive source experiment},
Volume = 102,
Year = 1997}
@@ -6979,13 +6974,15 @@
Volume = 141,
Year = 2004}
+
@article{ZhaoEtal2005,
- Author = {Zhao, L. and Jordan, T.H. and Olsen, K.B. and Chen, P.},
- Journal = bssa,
- Pages = {2066--2080},
- Title = {Frechet kernels for imaging regional earth structure based on three-dimensional reference models},
- Volume = 95,
- Year = 2005}
+ AUTHOR = {L. Zhao and T. H. Jordan and K. B. Olsen and P. Chen},
+ JOURNAL = bssa,
+ TITLE = {{Fr\'{e}chet kernels for imaging regional earth structure based on three-dimensional reference models}},
+ VOLUME = {95},
+ PAGES = {2066--2080},
+ YEAR = {2005}
+}
@article{ZhaoJordan2006,
Author = {Zhao, L. and Jordan, T.H.},
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T06_rs.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T06_rs.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T24_rs.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/200511211536A_T24_rs.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_CLC_window.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_CLC_window.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_FMP_window.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9818433_FMP_window.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9983429_T06_rs.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/9983429_T06_rs.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_criteria.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_criteria.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_seis_nowin.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/ABKT_II_LHZ_seis_nowin.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/KIS_BO_091502B.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/KIS_BO_091502B.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/SHR_BO_200511211536A.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/SHR_BO_200511211536A.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/composites_global.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/composites_global.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/examples_global.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/examples_global.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/stats_T06.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/stats_T06.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_composite.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_composite.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_overlap.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_overlap.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_global_data.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_global_data.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_separation.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_rejection_separation.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_results.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures/window_results.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Modified: seismo/3D/ADJOINT_TOMO/flexwin/latex/figures_paper.tex
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/latex/figures_paper.tex 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/latex/figures_paper.tex 2009-03-05 22:10:33 UTC (rev 14235)
@@ -110,7 +110,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/050295B.050-150/ABKT_II_LHZ_seis_nowin.pdf}
+\center \includegraphics[width=6in]{figures/ABKT_II_LHZ_seis_nowin.pdf}
\caption{\label{fg:stalta}
Synthetic seismogram and its corresponding envelope and STA:LTA timeseries.
The seismogram was calculated using SPECFEM3D and the
@@ -127,7 +127,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/fig/window_composite.pdf}
+\center \includegraphics[width=6in]{figures/window_composite.pdf}
\caption{\label{fg:win_composite}
(a)~Window creation process. The thick black line represents the STA:LTA
waveform $E(t)$, and the thick horizontal dashed line its water level $w_E(t)$.
@@ -149,7 +149,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=5in]{figures/fig/window_rejection_separation.pdf}
+\center \includegraphics[width=5in]{figures/window_rejection_separation.pdf}
\caption{\label{fg:separation}
Rejection of candidate windows based on the separation of distinct phases.
(a)~Heights of pairs of local maxima above their intervening minimum.
@@ -166,7 +166,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/fig/window_rejection_global_data.pdf}
+\center \includegraphics[width=6in]{figures/window_rejection_global_data.pdf}
\caption{\label{fg:win_rej_data}
Window rejection applied to real data.
Top panel: observed (black) and synthetic (red) seismograms for the 050295B event
@@ -182,7 +182,7 @@
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/050295B.050-150/ABKT_II_LHZ_criteria.pdf}
+\center \includegraphics[width=6in]{figures/ABKT_II_LHZ_criteria.pdf}
\caption{\label{fg:criteria}
Time-dependent fit based criteria
for the 050295B event recorded at ABKT. The time-dependence of these criteria
@@ -199,7 +199,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=5in]{figures/fig/window_overlap.pdf}
+\center \includegraphics[width=5in]{figures/window_overlap.pdf}
\caption{\label{fg:stageE}
The selection of the best non-overlapping window
combinations. Each grey box represents a distinct group of windows.
@@ -211,7 +211,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/fig/window_results.pdf}
+\center \includegraphics[width=6in]{figures/window_results.pdf}
\caption{\label{fg:res_abkt}
Window selection results for event 050295B
from Table~\ref{tb:events} recorded at ABKT ($37.93$\degN,
@@ -232,7 +232,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/fig/examples_global.pdf}
+\center \includegraphics[width=6in]{figures/examples_global.pdf}
\caption{\label{fg:examples}
(a)~Window selection results for event 101895B from Table~\ref{tb:events} recorded
at LBTB ($25.01$\degS, $25.60$\degE, $\Delta=113$\deg, radial component).
@@ -247,7 +247,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage
\begin{figure}
-\center \includegraphics[width=6in]{figures/fig/composites_global.pdf}
+\center \includegraphics[width=6in]{figures/composites_global.pdf}
\caption{\label{fg:composites}
(a)-(c)~Summary plots of windowing results for event 101895B in Table~\ref{tb:events}.
(a)~Global map showing great-circle paths to stations.
@@ -265,7 +265,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=5.7in]{figures/japan/ERM_II_051502B}
+%\includegraphics[width=5.7in]{figures/ERM_II_051502B}
%\caption{\label{fg:ERM_II_051502B}
%Window selection results for event 051502B from Table~\ref{tb:events} recorded at station ERM ($42.01$\degN, $143.16$\degE, $\Delta=24.83$\deg).
%(a)~Event and station map: event is 051502B indicated by the beach ball with the
@@ -281,7 +281,7 @@
\begin{figure}
%\center
-\includegraphics[width=5.7in]{figures/japan/KIS_BO_091502B}
+\includegraphics[width=5.7in]{figures/KIS_BO_091502B.pdf}
\caption{\label{fg:KIS_BO_091502B}
Window selection results for event 091502B from Table~\ref{tb:events} recorded at station KIS ($\Delta=11.79$\deg).
%(a)~Event and station map: event 091502B is indicated by the beach ball with the CMT focal mechanism, station KIS is marked by the red triangle and all the other stations which recorded this event are marked by grey triangles.
@@ -297,7 +297,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=5.7in]{figures/japan/SHR_BO_200511211536A}
+\includegraphics[width=5.7in]{figures/SHR_BO_200511211536A.pdf}
\caption{\label{fg:SHR_BO_200511211536A}
Window selection results for event 20051121536A from Table~\ref{tb:events} recorded at station SHR ($\Delta=17.47$\deg).
%(a)~Event and station map: event 20051121536A is indicated by the beach ball with the CMT focal mechanism, station SHR is marked by the red triangle and all the other stations which recorded this event are marked by grey triangles.
@@ -313,7 +313,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/japan/200511211536A_T06_rs}
+\includegraphics[width=6in]{figures/200511211536A_T06_rs.pdf}
\caption{\label{fg:200511211536A_T06_rs}
Summary plots of windowing results for event 200511211536A in Table~\ref{tb:events}, for the period range \trange{6}{30}.
(a)~Map showing paths to each station with at least one measurement window.
@@ -325,7 +325,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/japan/200511211536A_T24_rs}
+\includegraphics[width=6in]{figures/200511211536A_T24_rs.pdf}
\caption{\label{fg:200511211536A_T24_rs}
Summary plots of windowing results for event 200511211536A in Table~\ref{tb:events}, for the period range \trange{24}{120}.
}
@@ -334,7 +334,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/japan/stats_T06}
+\includegraphics[width=6in]{figures/stats_T06.pdf}
\caption{\label{fg:T06_rs}
Summary statistics of windowing results for events 051502B, 200511211536A and 091502B in Table~\ref{tb:events}, for the period range \trange{6}{30}.
}
@@ -345,7 +345,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=6in]{figures/japan/051502B_T06_rs}
+%\includegraphics[width=6in]{figures/051502B_T06_rs}
%\caption{\label{fg:051502B_T06_rs}
%Summary plots of windowing results for event 051502B in Table~\ref{tb:events}, for the period range \trange{6}{30}.
%Same as Figure~\ref{fg:200511211536A_T06_rs}.
@@ -355,7 +355,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=6in]{figures/japan/091502B_T06_rs}
+%\includegraphics[width=6in]{figures/091502B_T06_rs}
%\caption{\label{fg:091502B_T06_rs}
%Summary plots of windowing results for event 091502B in Table~\ref{tb:events}, for the period range \trange{6}{30}.
%Same as Figure~\ref{fg:200511211536A_T06_rs}.
@@ -365,7 +365,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=6in]{figures/japan/091502B_T06_rs}
+%\includegraphics[width=6in]{figures/091502B_T06_rs}
%\caption{\label{fg:091502B_T06_rs}
%Summary plots of windowing results for event 051502B in Table~\ref{tb:events},
%for the period range \trange{6}{30}. Same as Figure~\ref{fg:200511211536A_T06_rs).
@@ -378,7 +378,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/socal/9818433_CLC_window.pdf}
+\includegraphics[width=6in]{figures/9818433_CLC_window.pdf}
\caption{\label{fg:socal_CLC}
Window selection results for event 9818433 from Table~\ref{tb:events} recorded at station CLC ($\Delta = 211.7$~km).
%(a)~Source and station information for event 9818433 and station CLC.
@@ -400,7 +400,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/socal/9818433_FMP_window.pdf}
+\includegraphics[width=6in]{figures/9818433_FMP_window.pdf}
\caption{\label{fg:socal_FMP}
Window selection results for event 9818433 from Table~\ref{tb:events} recorded at station FMP ($\Delta = 52.2$~km).
Same caption as Figure~\ref{fg:socal_CLC}, only for a different station.
@@ -410,7 +410,7 @@
\clearpage
\begin{figure}
%\center
-\includegraphics[width=6in]{figures/socal/9983429_T06_rs.pdf}
+\includegraphics[width=6in]{figures/9983429_T06_rs.pdf}
\caption{\label{fg:socal_rs_T06}
Summary plots of windowing results for event 9983429 in Table~\ref{tb:events}, for the period range \trange{6}{30}.
(a)~Map showing paths to each station with at least one measurement window.
@@ -423,7 +423,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=7in]{figures/socal/9983429_T02_rs.pdf}
+%\includegraphics[width=7in]{figures/9983429_T02_rs.pdf}
%\caption{\label{fg:socal_rs_T02}
%(THIS FIGURE COULD IN THEORY BE CUT OUT, IF SPACE IS SHORT.)
%Summary plots of windowing results for event 9983429 in Table~\ref{tb:events}, for the period range \trange{2}{30}.
@@ -435,7 +435,7 @@
%\clearpage
%\begin{figure}
%%\center
-%\includegraphics[width=7in]{figures/socal/9818433_T06_CLC_adj.pdf}
+%\includegraphics[width=7in]{figures/9818433_T06_CLC_adj.pdf}
%\caption{\label{fg:socal_adj}
%Adjoint sources constructed based on the windows picked in Figure~\ref{fg:socal_CLC}d, with the specification of a cross-correlation traveltime measurement. The adjoint sources for this measurement are simply a weighted version of the synthetic velocity traces. The number to the left of each subplot is the $\pm$ height of the $y$-axis. The cross-correlation measurements for traveltime ($\Delta T$) and amplitude ($\Delta \ln A$) are listed above each time window.
%}
Modified: seismo/3D/ADJOINT_TOMO/flexwin/latex/flexwin_paper.pdf
===================================================================
(Binary files differ)
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.pdf
===================================================================
(Binary files differ)
Property changes on: seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.pdf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.tex
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.tex (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/latex/proofs_carl.tex 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,157 @@
+%
+%=====================================================
+%
+% Carl Tape, 26-June-2007
+% socal_source_notes.tex
+% last printed xxx
+%
+% Notes on sources for in southern California tomography.
+%
+%=====================================================
+
+\documentclass[11pt,titlepage,fleqn]{article}
+
+\usepackage{amsmath}
+\usepackage{amssymb}
+\usepackage{latexsym}
+\usepackage[round]{natbib}
+\usepackage{xspace}
+\usepackage{graphicx}
+%\usepackage{epsfig}
+
+\usepackage{pifont} % search for \dings
+
+%\usepackage{fancyhdr}
+%\pagestyle{fancy}
+
+%=====================================================
+% SPACING COMMANDS (Latex Companion, p. 52)
+%=====================================================
+
+\usepackage{setspace}
+
+\renewcommand{\baselinestretch}{1.3}
+
+\textwidth 460pt
+\textheight 690pt
+\oddsidemargin 0pt
+\evensidemargin 0pt
+
+% see Latex Companion, p. 85
+\voffset -50pt
+\topmargin 0pt
+\headsep 20pt
+\headheight 15pt
+\headheight 0pt
+\footskip 30pt
+\hoffset 0pt
+
+\include{NEWCOMMANDS}
+
+%=====================================================
+\begin{document}
+%=====================================================
+
+\begin{center}
+
+\noindent
+{\large \bf Carl's response to GJI proofs}
+
+\end{center}
+
+\noindent Carl Tape
+
+\noindent \today
+
+%-----------------------------
+
+\section{Corrections to text}
+
+\begin{enumerate}
+\item p.~17, line 38. Please change the clause ``seismograms do not agree well with the observed seismograms, especially in the later part of the signal'' to this: ``seismograms agree with the observed seismograms only in the early part of the signal''
+
+\item p.~17. line 50. $\ldots$ curve, and it is more conspicuous $\ldots$
+
+\item p.~17. line 64. Do not split ``record T'' across the column (or line).
+\end{enumerate}
+
+%-----------------------------
+
+\section{Corrections to figures}
+
+There was significant loss and a font error in Figure 17. I have attached an EPS version of this file, shown used here in \refFig{fig1}. There should be no loss in converting to PDF for this figure in either the low-res or high-res version of the proofs.
+
+%-----------------------------
+
+\section{Corrections to references}
+
+Three points were raised (Q4, Q5, Q6) regarding the references. Unfortunately, we have identified a number of typos, and we list all corrections below, followed by the corrected list of references.
+
+\begin{enumerate}
+\item \citet{AsterRowe2000} is now correct. Note that the book title should be capitalized.
+
+\item \citet{BaiKennett2000} needs two hyphens in the title, and there should be no ``Y'' in the first author's name.
+
+\item Add the EID for \citet{ChenEtal2007}.
+
+\item The title of \citet{DahlenEtal2000} needs ``traveltimes---I. Theory''.
+
+\item The title of \citet{Debayle1999} should begin with ``$SV$-wave''.
+
+\item Capitalize ``2D'' and ``3D'' in the title of \citet{KomatitschVilotte1998}.
+
+\item Add the DOI for \citet{LawrenceEtal2006}.
+
+\item \citet{LawrenceShearer2008} is now correct. Note the ``{\em SdS-SS}'' in the title.
+
+\item Note the ``$S$'' in the title of \citet{LebedevEtal2005}.
+
+\item Remove the DOI for \citet{MontelliEtal2004a}.
+
+\item Capitalize seismic letters in title of \citet{RitsemaVanHeijst2002}. Hyphenate ``H.-J.''.
+
+\item Capitalize ``Earth'' for \citet{Romanowicz2008}.
+
+\item Capitalize ``P'' and ``S'' for \citet{SleemanVanEck2003}.
+
+\item The title in \citet{TapeEtal2007} needs ``methods---Methodology''.
+
+\item Add DOI for \citet{VisserEtal2007}, and capitalize ``Love'' in title.
+
+\item Replace DOI with page numbers in \citet{ZhaoEtal1994}.
+
+\item Add accent mark to Fr\'{e}chet in \citet{ZhaoEtal2005}.
+
+\item Add EID for \citet{ZhouEtal2006}.
+
+\item I have removed the journal issue number everywhere except for JGR. Please remove the number from these references: \citet{DziewonskiAnderson1981,HardebeckShearer2003,LiuTromp2006,TapeEtal2007,Tarantola1984,vanDecarCrosson1990,Wald95,WithersEtal1998,YoshizawaKennett2002b}.
+
+\item There needs to be a distinction between \citet{ChenEtal2007b} and \citet{ChenEtal2007} --- these are not the same first authors, so a distinction needs to be made throughout the paper as ``M. Chen'' and ``P. Chen''. (I do not know how to do this in Latex, so it remains incorrect here.)
+
+\end{enumerate}
+
+%-----------------------------
+
+%\pagebreak
+\bibliographystyle{agu}
+\bibliography{AM-allcitations}
+
+%=====================================================
+
+\clearpage\pagebreak
+
+\begin{figure}
+\includegraphics[width=17cm]{figures/socal/9983429_T06_rs.eps}
+\caption[]
+{{
+Note the quality of this figure within the PDF. Also note that the label \trange{6}{30} follows the comma in the header line, which is not the case in the proof.
+\label{fig1}
+}}
+\end{figure}
+
+%---------------------
+
+
+%=====================================================
+\end{document}
+%=====================================================
Modified: seismo/3D/ADJOINT_TOMO/flexwin/scripts/pick_all_windows.pl
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/scripts/pick_all_windows.pl 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/scripts/pick_all_windows.pl 2009-03-05 22:10:33 UTC (rev 14235)
@@ -4,7 +4,7 @@
#
# pick_all_windows.pl
# Carl Tape
-# 09-Oct-2008
+# 01-Feb-2009
#
# The script reads in a set of data directories, each labeled as an event ID,
# and it copies the data and synthetics into the windowing code, runs the code,
@@ -38,9 +38,9 @@
# prepare_meas_all.pl
#
# EXAMPLES:
-# pick_all_windows.pl m13 0 6/30 1/204 1/1/1/0 1 0 # make plots and WINDOWS file, T = 6-30s
-# pick_all_windows.pl m13 0 3/30 1/204 1/1/1/0 1 0 # make plots and WINDOWS file, T = 3-30s
-# pick_all_windows.pl m13 0 2/30 1/204 1/1/1/1 1 0 # make plots and WINDOWS file, T = 2-30s
+# pick_all_windows.pl m16 0 6/30 1/300 1/1/1/0 1 0 # make plots and WINDOWS file, T = 6-30s
+# pick_all_windows.pl m16 0 3/30 1/300 1/1/1/0 1 0 # make plots and WINDOWS file, T = 3-30s
+# pick_all_windows.pl m16 0 2/30 1/300 1/1/1/1 1 0 # make plots and WINDOWS file, T = 2-30s
#
# pick_all_windows.pl m00 0 6/30 179/179 1/1/0/0 1 0 # make plots only, T = 6-30s
# pick_all_windows.pl m00 0 6/30 179/179 0/0/1/0 1 0 # make WINDOWS file, T = 6-30s
@@ -125,7 +125,8 @@
# data and synthetic files (MUST BE MODIFIED FOR EACH USER)
if ($idataset == 1) {
- $suffix_syn = "semd.sac.d.${Ttag}";
+ #$suffix_syn = "semd.sac.d.${Ttag}";
+ $suffix_syn = "semd.sac.${smodel}.${Ttag}";
$suffix_dat = "sac.d.${Ttag}";
} elsif ($idataset == 2) {
@@ -143,8 +144,8 @@
$dir_win_run_meas = "${dir_win_run}/MEASURE";
# NEW: EVENT LIST
-$eid_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_${smodel}";
-$eid_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_m12";
+#$eid_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_${smodel}";
+$eid_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_iterate";
if (not -f $eid_list) {die("check if eid_list ${eid_list} exist or not\n")}
open(IN,$eid_list); @eids = <IN>; close(IN);
$nevent0 = @eids;
@@ -428,7 +429,6 @@
#-----------------------------------------
close(CSH);
if($iexecute==1) {system("csh -f $cshfile");}
+print "csh -f pick_all_windows.csh\n\n";
-print "\n ";
-
#=================================================================
Modified: seismo/3D/ADJOINT_TOMO/flexwin/scripts/prepare_scripts/socal/process_data_and_syn.pl
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/scripts/prepare_scripts/socal/process_data_and_syn.pl 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/scripts/prepare_scripts/socal/process_data_and_syn.pl 2009-03-05 22:10:33 UTC (rev 14235)
@@ -3,7 +3,7 @@
#==========================================================
#
# Carl Tape
-# 01-Oct-2008
+# 22-Nov-2008
# process_data_and_syn.pl
#
# This script processes data and 3D-Socal-SEM synthetics for Southern California.
@@ -20,54 +20,66 @@
# Trange band-pass filter
#
# ORDER OF OPERATIONS:
-# ~/UTILS/process_data_and_syn.pl 1 m10 1 0 d d 20 6/30 PROCESSED # data, initial pre-processing
-# ~/UTILS/process_data_and_syn.pl 1 m10 0 1 d d 20 6/30 PROCESSED # syn, initial pre-processing
-# ~/UTILS/process_data_and_syn.pl 2 m10 1 1 d d 20 6/30 PROCESSED # both, create cut files
-# ~/UTILS/process_data_and_syn.pl 3 m10 1 0 d d 20 6/30 PROCESSED # data, execute cut file
-# ~/UTILS/process_data_and_syn.pl 3 m10 0 1 d d 20 6/30 PROCESSED # syn, execute cut file
+# ~/UTILS/process_data_and_syn.pl 1 m16 1 0 d 6/30 # data, initial pre-processing
+# ~/UTILS/process_data_and_syn.pl 1 m16 0 1 d 6/30 # syn, initial pre-processing
+# ~/UTILS/process_data_and_syn.pl 2 m16 1 1 d 6/30 # both, create cut files
+# ~/UTILS/process_data_and_syn.pl 3 m16 1 0 d 6/30 # data, execute cut file
+# ~/UTILS/process_data_and_syn.pl 3 m16 0 1 d 6/30 # syn, execute cut file
#
-# ~/UTILS/process_data_and_syn.pl 4 m10 1 0 d d 20 6/30 PROCESSED # data, bandpass T=6-30
-# ~/UTILS/process_data_and_syn.pl 4 m10 0 1 d d 20 6/30 PROCESSED # syn, bandpass T=6-30
+# ~/UTILS/process_data_and_syn.pl 4 m16 1 0 d 6/30 # data, bandpass T=6-30
+# ~/UTILS/process_data_and_syn.pl 4 m16 0 1 d 6/30 # syn, bandpass T=6-30
#
-# ~/UTILS/process_data_and_syn.pl 4 m10 1 0 d d 20 2/30 PROCESSED # data, bandpass T=2-30
-# ~/UTILS/process_data_and_syn.pl 4 m10 0 1 d d 20 2/30 PROCESSED # syn, bandpass T=2-30
+# ~/UTILS/process_data_and_syn.pl 4 m16 1 0 d 3/30 # data, bandpass T=3-30
+# ~/UTILS/process_data_and_syn.pl 4 m16 0 1 d 3/30 # syn, bandpass T=3-30
#
+# ~/UTILS/process_data_and_syn.pl 4 m16 1 0 d 2/30 # data, bandpass T=2-30
+# ~/UTILS/process_data_and_syn.pl 4 m16 0 1 d 2/30 # syn, bandpass T=2-30
+#
# Chino Hills synthetics for Hiroo:
-# ~/UTILS/process_data_and_syn.pl 4 m10 0 1 d d 20 50/150 PROCESSED
+# ~/UTILS/process_data_and_syn.pl 4 m16 0 1 d 50/150
#
#==========================================================
-if (@ARGV < 9) {die("Usage: process_data_and_syn.pl iprocess smodel idata isyn syn_ext dat_ext sps Tmin/Tmax pdir\n")}
-($iprocess,$smodel,$idata,$isyn,$syn_ext,$dat_ext,$sps,$Trange,$pdir) = @ARGV;
+if (@ARGV < 6) {die("Usage: process_data_and_syn.pl iprocess smodel idata isyn dat_ext Tmin/Tmax\n")}
+($iprocess,$smodel,$idata,$isyn,$dat_ext,$Trange) = @ARGV;
-$iexecute = 0;
-$ilist = 1;
-$iprocess0 = 0;
+#-------------------------------------
+# USER INPUT
# USER PARAMETERS
-$tfac = 1.0; # factor to extend lengths of records (should be > 1.0)
-$itest = 0; # test directories or not
-$bmin = -40; # minimum time before origin time
+$sps = 20; # samples per second for interpolation/sub-sampling
+$tfac = 1.0; # factor to extend lengths of records (should be > 1.0)
+$bmin = -40; # minimum allowable time before origin time for cut records
+
+$pdir = "PROCESSED"; # tag for processed directories
+$syn_ext = $smodel; # KEY: include model index for comparison among synthetics from different models
$syn_suffix0 = "semd.sac"; # suffix for synthetic files
$syn_suffix = "${syn_suffix0}.${syn_ext}";
$dat_suffix0 = "sac"; # suffix for data files
$dat_suffix = "${dat_suffix0}.${dat_ext}";
+$iexecute = 0; # execute CSH file immediately
+$ilist = 1; # read EIDs from a list (=1) or grab all CMTSOLUTION files (=0)
+
+# EID list
+$CMT_list = "/net/sierra/raid1/carltape/socal/socal_3D/SYN/model_${smodel}";
+$dir_source = "/net/sierra/raid1/carltape/results/SOURCES/socal_16";
+$dirCMT = "${dir_source}/v16_files";
+$CMT_list = "${dir_source}/EIDs_only_loc";
+#$CMT_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_${smodel}";
+#$CMT_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_m12";
+
# directories
-#$CMT_list = "/net/sierra/raid1/carltape/socal/socal_3D/SYN/model_${smodel}";
-$dir_source = "/net/sierra/raid1/carltape/results/SOURCES/socal_10";
-$dirCMT = "${dir_source}/v10_files";
-#$CMT_list = "${dir_source}/EIDs_only_eid";
-$CMT_list = "/net/sierra/raid1/carltape/results/EID_LISTS/syn_run_${smodel}";
$dirdat0 = "/net/sierra/raid1/carltape/socal/socal_3D/DATA/FINAL";
$dirsyn0 = "/net/sierra/raid1/carltape/socal/socal_3D/SYN/model_${smodel}";
#$dirsyn0 = "/net/sierra/raid1/carltape/socal/socal_3D/SYN/model_pre_${smodel}";
-
# STATIONS file
#$stafile = "/net/denali/home1/carltape/gmt/stations/seismic/Matlab_output/STATIONS";
$stafile = "/net/denali/home1/carltape/gmt/stations/seismic/Matlab_output/STATIONS_CALIFORNIA_TOMO_INNER_specfem";
#$stafile = "/net/denali/home1/carltape/gmt/stations/seismic/Matlab_output/STATIONS_CALIFORNIA_TOMO_OUTER_specfem";
+#-------------------------------------
+
# check if the files exist
if (not -f $stafile) {print "\n check if $stafile exists";}
if (not -f ${CMT_list}) {print "\n check if CMT_list ${CMT_list} exists";}
@@ -78,6 +90,7 @@
$sTmax = sprintf("T%3.3i",$Tmax);
$Ttag = "${sTmin}_${sTmax}";
$pdirbpass = "${pdir}_${Ttag}";
+$ftag = "${Ttag}_${smodel}";
# grab all the CMT solution files or read in the list of event IDs
if($ilist == 1) {
@@ -104,11 +117,11 @@
# write the C-shell script to file
if($idata==1 && $isyn==1) {
- $cshfile = "process_data_and_syn_${Ttag}.csh";
+ $cshfile = "process_data_and_syn_${ftag}.csh";
} elsif($idata==1 && $isyn==0) {
- $cshfile = "process_data_${Ttag}.csh";
+ $cshfile = "process_data_${ftag}.csh";
} elsif($idata==0 && $isyn==1) {
- $cshfile = "process_syn_${Ttag}.csh";
+ $cshfile = "process_syn_${ftag}.csh";
} else {
die("check idata and isyn\n");
}
@@ -122,7 +135,7 @@
$imin = 1; $imax = $ncmt; # default
#$imin = 1; $imax = 10;
-#$imin = 95; $imax = $imin;
+#$imin = 213; $imax = $imin;
#----------------------------------------------------------------------
@@ -177,12 +190,31 @@
# synthetics -- this will convolve with the source half-duration (prior to interpolating)
if ($isyn == 1) {
+
if (-e $dirsyn) {
+
+ # this block is required if you are also converting ASCII files to SAC
+ ($nsemd,undef,undef) = split(" ",`ls -1 $dirsyn/*semd | wc`); # number of ascii files
+ ($nsacd,undef,undef) = split(" ",`ls -1 $dirsyn/*sac | wc`); # number of sac files
+ print "nsemd = $nsemd, nsacd = $nsacd\n";
+ if ($nsemd*$nsacd > 0) {
+ if ($nsemd == $nsacd) {
+ print CSH "rm $dirsyn/*semd\n";
+ print CSH "sleep 5s\n";
+ } else {
+ die("error in converting to SAC files\n");
+ }
+ }
+
if (not -e ${dirsyn_pro_1}) {
print CSH "cd $dirsyn\n";
- #print CSH "mv $pdir ${pdir}_OLD\n";
- #print CSH "\\rm -rf $pdir\n";
- print CSH "process_trinet_syn_new.pl -S -m $cmtfile -h -a $stafile -s $sps -p -d $pdir -x ${syn_ext} *.${syn_suffix0} \n";
+ # converting to SAC is so slow on the cluster -- even in parallel -- that we must do it here
+ if($nsemd > 0 && $nsacd==0) {
+ print CSH "process_trinet_syn_new.pl -m $cmtfile -a $stafile *semd\n";
+ print CSH "sleep 5s\n";
+ } else {
+ print CSH "process_trinet_syn_new.pl -S -m $cmtfile -h -a $stafile -s $sps -p -d $pdir -x ${syn_ext} *.${syn_suffix0}\n";
+ }
} else {
print "dir ${dirsyn_pro_1} already exists\n";
}
@@ -238,11 +270,22 @@
} else {
+ # check that the number of unprocessed files matches the number of processed files
+ $ns1 = `ls -1 ${dirsyn}/*.sac | wc | awk '{print \$1}'`; chomp($ns1);
+ $nd1 = `ls -1 ${dirdat}/*.sac | wc | awk '{print \$1}'`; chomp($nd1);
+ $ns2 = `ls -1 ${dirsyn_pro_1}/*.sac.${smodel} | wc | awk '{print \$1}'`; chomp($ns2);
+ $nd2 = `ls -1 ${dirdat_pro_1}/*.sac.d | wc | awk '{print \$1}'`; chomp($nd2);
+ print "-- ndata1 $nd1 -- ndata2 $nd2 -- nsyn1 $ns1 -- nsyn2 $ns2 --\n";
+ if( ($nd1 != $nd2) || ($ns1 != $ns2)) {
+ print "mismatch of expected records\n";
+ die("RESOLVE MISMATCH\n");
+ }
+
print "\nWriting to cutfiles ...\n";
open(CUTDAT,">${cutfile_dat}");
open(CUTSYN,">${cutfile_syn}");
- # grab all DATA files
+ # grab all the initially processed DATA files
@files = glob("${dirdat_pro_1}/*");
$nfile = @files;
print "\n $nfile data files to line up with synthetics\n";
@@ -269,8 +312,17 @@
$tlend = $ed - $bd;
$tlens = $es - $bs;
+ # if the end time of the data is less than the origin time, STOP and move the record to REJECTED
+ if ($ed < 0) {
+ close(CUTDAT); close(CUTSYN); `rm ${cutfile_dat} ${cutfile_syn}`;
+ print "move unprocessed data file to REJECTED\n";
+ print "end time is $ed\n";
+ die("data record ends before 0 -- REJECTED\n")
+ }
+
# dt should be the same for both records ALREADY
if (log($deltad/$deltas) > 0.01) {
+ close(CUTDAT); close(CUTSYN); `rm ${cutfile_dat} ${cutfile_syn}`;
print "$datfile $synfile\n";
print "DT values are not close enough: $deltad, $deltas\n";
die("fix the DT values\n");
@@ -292,7 +344,6 @@
# print the cut times if the begin time is before the end time
if ($b < $e) {
- #print CUT "$datfile $synfile $b $e $npt $dt\n";
print CUTDAT "$datfile $b $e $npt $dt\n";
print CUTSYN "$synfile_base $b $e $npt $dt\n";
}
@@ -340,7 +391,7 @@
# read cut file
open(IN,"${cutfile_dat}"); @lines = <IN>; close(IN); $nlines = @lines;
- $sacfile = "sacdat.mac";
+ $sacfile = "sacdat_${ftag}.mac";
`echo echo on > $sacfile`;
`echo readerr badfile fatal >> $sacfile`;
@@ -396,7 +447,7 @@
# read cut file
open(IN,"${cutfile_syn}"); @lines = <IN>; close(IN); $nlines = @lines;
- $sacfile = "sacsyn.mac";
+ $sacfile = "sacsyn_${ftag}.mac";
`echo echo on > $sacfile`;
`echo readerr badfile fatal >> $sacfile`;
@@ -405,8 +456,15 @@
$line = $lines[$j-1]; chomp($line);
($synfile_base,$b,$e,$npt,$dt) = split(" ",$line);
+ # KEY: use the suffix of the present model -- the cut file may have been
+ # generated using a different set of synthetics
+ # THIS FILE FORMAT MIGHT DIFFER FOR DIFFERENT USERS
+ # HERE: PHOB.NC.BHE.semd.sac.m12
+ ($tag1,$tag2,$tag3,$tag4,$tag5,$tag6) = split("\\.",$synfile_base);
+ $synfile_base_new = "${tag1}.${tag2}.${tag3}.${tag4}.${tag5}.${smodel}";
+
# KEY: indicate the base directory
- $synfile = "${dirsyn_pro_1}/${synfile_base}";
+ $synfile = "${dirsyn_pro_1}/${synfile_base_new}";
if (not -f $synfile) {
print "synfile $synfile does not exist\n";
#die("synfile $synfile does not exist");
@@ -511,8 +569,10 @@
if($iprocess==0) {close(SYN);}
#======================
+print CSH "echo done with $cshfile\n";
close(CSH);
print "closing $cshfile\n";
+if(($iprocess==1) || ($iprocess==4)) {print "csh -f $cshfile\n";}
if($iexecute==1) {system("csh -f $cshfile");}
print "\n ";
Modified: seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -293,6 +293,8 @@
! check sample rates are equal
if( abs(dt1-dt2).gt.1e-05) then
write(*,*)
+ write(*,*) 'dt1-syn, dt2-dat, abs(dt1-dt2):'
+ write(*,*) dt1, dt2, abs(dt1-dt2)
write(*,*)' !!! sampling rates differ, program stop !!!'
write(*,*)
stop
@@ -675,7 +677,7 @@
! local variables
integer :: nlen
integer :: i_left, i_right, i, j, id_left, id_right
- double precision :: cc, norm, norm_s, fout
+ double precision :: cc, norm, norm_s
! initialise shift and cross correlation to zero
ishift = 0
@@ -694,14 +696,11 @@
! left and right limits of index (time) shift search
! NOTE: This looks OUTSIDE the time window of interest to compute TSHIFT and CC.
- ! If fout=0.5, then it looks outside by a time of 0.5*(window width).
- ! Perhaps fout should be a parameter, or it should be tied to the max
- ! allowable time-shift specified by the user.
+ ! How far to look outside, in theory, should be another parameter.
! However, it does not matter as much if the data and synthetics are
! zeroed outside the windows, as currently done in calc_criteria.
- fout = 0.5
- i_left = -1*int(fout*nlen)
- i_right = int(fout*nlen)
+ i_left = -1*int(nlen/2.0)
+ i_right = int(nlen/2.0)
! i is the index to shift to be applied to DATA (d)
do i = i_left, i_right
@@ -731,7 +730,7 @@
! i i1+i i2+i id_left id_right
! -11 9 30 9 30
! -5 15 36 15 36
- ! 0 20 41 20 41 <== ORIGINAL WINDOW
+ ! 0 20 41 20 41
! 5 25 46 25 46
! 10 31 52 31 52
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 3.0
-TSHIFT_REFERENCE = 1.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m01 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m02 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m03 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m04 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m05 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m06 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m07_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m08_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m09_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 2.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m10_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 2.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 2.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m11_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 2.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m12_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 2.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m14
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m14 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m14 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m15
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m15 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m15 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m16
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m16 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m16 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 2.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m99
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m99 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T030_m99 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 1.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,68 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .false.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 2.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 1.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_Daniel 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,68 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .false.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 2.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 1.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 5.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 5.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 5.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 5.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 6.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m00_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 6.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 2.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.07
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.85
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.0
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 5.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T002_T040_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 2.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.07
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.85
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.0
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 5.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 4.0
-TSHIFT_REFERENCE = 2.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m01_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m02_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m03_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m04_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m05 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m06 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m07_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m08_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m09_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m10_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 3.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 3.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .true.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 3.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.11
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 3.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.0
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.80
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 2.5
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 4.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 1.3
-C_1 (small windows) = 4.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 4.0
-C_3b (separation time) = 2.5
-C_4a (curtail on left) = 2.0
-C_4b (curtail on right) = 6.0
-
-WEIGHT_SPACE_COVERAGE = 0.70
-WEIGHT_AVERAGE_CC = 0.25
-WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m14
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m14 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m14 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m15
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m15 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m15 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m16
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m16 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m16 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 3.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m99
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m99 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T003_T030_m99 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .true.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 3.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.11
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.0
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.80
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 2.5
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 4.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 1.3
+C_1 (small windows) = 4.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 4.0
+C_3b (separation time) = 2.5
+C_4a (curtail on left) = 2.0
+C_4b (curtail on right) = 6.0
+
+WEIGHT_SPACE_COVERAGE = 0.70
+WEIGHT_AVERAGE_CC = 0.25
+WEIGHT_N_WINDOWS = 0.05
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 8.0
-TSHIFT_REFERENCE = 4.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.5
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 3.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 0.5
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 5.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_09s
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_09s (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_09s 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 6.0
+TSHIFT_REFERENCE = 3.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_12s
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_12s (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m00_12s 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 8.0
+TSHIFT_REFERENCE = 4.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m01 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 5.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m02 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 5.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m03 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 5.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m04 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 5.0
+TSHIFT_REFERENCE = 2.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m05 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m06 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 1.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m07_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m08_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m09_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m10_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 4.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.5
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 3.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 0.5
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m11_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 4.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.5
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 3.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 0.5
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m12_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,71 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 30.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# maximum allowable time shift from reference TSHIFT
-TSHIFT_BASE = 4.0
-TSHIFT_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# maximum allowable amplitude measurement relative to reference DLNA
-DLNA_BASE = 1.5
-DLNA_REFERENCE = 0.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 3.0
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 0.5
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m13 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m14
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m14 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m14 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m15
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m15 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m15 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m16
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m16 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m16 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 4.0
+TSHIFT_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m99
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m99 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T030_m99 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,71 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 30.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# maximum allowable time shift from reference TSHIFT
+TSHIFT_BASE = 8.0
+TSHIFT_REFERENCE = 4.0
+
+# -------------------------------------------------------------
+# maximum allowable amplitude measurement relative to reference DLNA
+DLNA_BASE = 1.5
+DLNA_REFERENCE = 0.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 3.0
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 0.5
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.7
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .false.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level
-STALTA_BASE = 0.23
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 3.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.7
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.0
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 1.5
-C_2 (prominence) = 0.3
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 1.5
-C_4b (curtail on right) = 4.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 1.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_Daniel 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .false.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level
+STALTA_BASE = 0.23
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 3.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.7
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.0
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 1.5
+C_2 (prominence) = 0.3
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 1.5
+C_4b (curtail on right) = 4.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 1.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 10.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m00_orig 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 10.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 5.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m01 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 5.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 5.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m02 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 5.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 5.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m03 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 5.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m04 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m05 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.22
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.74
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 3.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m06 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.22
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.74
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 3.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,69 +0,0 @@
-# -------------------------------------------------------------
-#
-# This is the parameter file for FLEXWIN. It is based on the
-# same syntax as the Par_file for SPECFEM. Variable names are
-# put first, values are placed after the 34th column.
-#
-# Comment lines and blank lines are significant. If you
-# change the layout of this file or add/remove parameters
-# you must also modify the user_variables module and the
-# read_parameter_file subroutine at the start of seismo_subs.f90.
-#
-# -------------------------------------------------------------
-
-# -------------------------------------------------------------
-# boolean parameters
-DEBUG = .true.
-MAKE_SEISMO_PLOTS = .true.
-MAKE_WINDOW_FILES = .true.
-BODY_WAVE_ONLY = .false.
-
-# -------------------------------------------------------------
-# period min/max for filtering
-RUN_BANDPASS = .false.
-WIN_MIN_PERIOD = 6.00
-WIN_MAX_PERIOD = 40.00
-
-# -------------------------------------------------------------
-# E(t) water level (0.23)
-STALTA_BASE = 0.18
-
-# -------------------------------------------------------------
-# TSHIFT
-TSHIFT_BASE = 4.0
-
-# -------------------------------------------------------------
-# limit on CC for window acceptance
-CC_BASE = 0.71
-
-# -------------------------------------------------------------
-# limit on dlnA (dA/A) for window acceptance
-DLNA_BASE = 1.5
-
-# -------------------------------------------------------------
-# boolean switch for check_data_quality
-DATA_QUALITY = .true.
-
-# if DATA_QUALITY = .true. and if two different measurements of
-# signal-to-noise ratios exceeds these two base levels,
-# then the data time series (and syn) is kept
-SNR_INTEGRATE_BASE = 3.0
-SNR_MAX_BASE = 2.5
-
-# -------------------------------------------------------------
-# limit on signal to noise ratio in a particular window.
-WINDOW_SNR_BASE = 2.5
-
-# -------------------------------------------------------------
-# Fine tuning constants
-C_0 (internal minima) = 0.7
-C_1 (small windows) = 2.0
-C_2 (prominence) = 0.0
-C_3a (separation height) = 3.0
-C_3b (separation time) = 2.0
-C_4a (curtail on left) = 2.5
-C_4b (curtail on right) = 12.0
-
-WEIGHT_SPACE_COVERAGE = 1.0
-WEIGHT_AVERAGE_CC = 0.0
-WEIGHT_N_WINDOWS = 0.0
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/PAR_FILE_T006_T040_m07 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,69 @@
+# -------------------------------------------------------------
+#
+# This is the parameter file for FLEXWIN. It is based on the
+# same syntax as the Par_file for SPECFEM. Variable names are
+# put first, values are placed after the 34th column.
+#
+# Comment lines and blank lines are significant. If you
+# change the layout of this file or add/remove parameters
+# you must also modify the user_variables module and the
+# read_parameter_file subroutine at the start of seismo_subs.f90.
+#
+# -------------------------------------------------------------
+
+# -------------------------------------------------------------
+# boolean parameters
+DEBUG = .true.
+MAKE_SEISMO_PLOTS = .true.
+MAKE_WINDOW_FILES = .true.
+BODY_WAVE_ONLY = .false.
+
+# -------------------------------------------------------------
+# period min/max for filtering
+RUN_BANDPASS = .false.
+WIN_MIN_PERIOD = 6.00
+WIN_MAX_PERIOD = 40.00
+
+# -------------------------------------------------------------
+# E(t) water level (0.23)
+STALTA_BASE = 0.18
+
+# -------------------------------------------------------------
+# TSHIFT
+TSHIFT_BASE = 4.0
+
+# -------------------------------------------------------------
+# limit on CC for window acceptance
+CC_BASE = 0.71
+
+# -------------------------------------------------------------
+# limit on dlnA (dA/A) for window acceptance
+DLNA_BASE = 1.5
+
+# -------------------------------------------------------------
+# boolean switch for check_data_quality
+DATA_QUALITY = .true.
+
+# if DATA_QUALITY = .true. and if two different measurements of
+# signal-to-noise ratios exceeds these two base levels,
+# then the data time series (and syn) is kept
+SNR_INTEGRATE_BASE = 3.0
+SNR_MAX_BASE = 2.5
+
+# -------------------------------------------------------------
+# limit on signal to noise ratio in a particular window.
+WINDOW_SNR_BASE = 2.5
+
+# -------------------------------------------------------------
+# Fine tuning constants
+C_0 (internal minima) = 0.7
+C_1 (small windows) = 2.0
+C_2 (prominence) = 0.0
+C_3a (separation height) = 3.0
+C_3b (separation time) = 2.0
+C_4a (curtail on left) = 2.5
+C_4b (curtail on right) = 12.0
+
+WEIGHT_SPACE_COVERAGE = 1.0
+WEIGHT_AVERAGE_CC = 0.0
+WEIGHT_N_WINDOWS = 0.0
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,179 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
- double precision :: Nlam, dtresh, vref
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- !if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
- endif
-
-!!$ ! allow 100 seconds to possibly capture additional phases
-!!$ if(time.gt. (Sw_end+100.0) ) then
-!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
-!!$ endif
-
- endif
-
- enddo
-
- ! --------------------------------
- ! if the distance to the station is less than N wavelengths, then reject records
- ! by reasing the entire water level
-
- Nlam = 1.7 ! number of wavelengths
- vref = 2.0 ! reference velocity, km/s
- dtresh = Nlam*WIN_MIN_PERIOD*vref
- if (dist_km .le. dtresh ) then
- if(DEBUG) then
- write(*,*) 'REJECT by raising water level: station is too close for this period range'
- write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
- write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
- endif
- do i = 1,npts
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- enddo
- endif
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
- ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
- ! (see Liu et al., 2004, p. 1755; note comment above)
- if(time.ge.Pnl_start .and. time.lt.Sw_start) then
- !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
- TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
- endif
- if(time.ge.Sw_start .and. time.le.Sw_end) then
- !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
- TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
- endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m00_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+ ! (see Liu et al., 2004, p. 1755; note comment above)
+ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+ endif
+ if(time.ge.Sw_start .and. time.le.Sw_end) then
+ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m01_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m02_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m03_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m04_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m05_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,135 +0,0 @@
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- if(time.gt.S_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m06_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,135 @@
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ write(*,*) 'DEBUG : P_pick = ', sngl(P_pick)
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,161 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow for 100s to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m07_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,161 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow for 100s to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,161 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow for 100s to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m08_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,161 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow for 100s to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,161 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow for 100s to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m09_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,161 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow for 100s to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,161 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- ! for qinya's scsn picking
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow for 100s to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m10_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,161 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ ! for qinya's scsn picking
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow for 100s to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,179 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
- double precision :: Nlam, dtresh, vref
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow for 100s to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
- ! --------------------------------
- ! if the distance to the station is less than N wavelengths, then reject records
- ! by reasing the entire water level
-
- Nlam = 1.7 ! number of wavelengths
- vref = 2.0 ! reference velocity, km/s
- dtresh = Nlam*WIN_MIN_PERIOD*vref
- if (dist_km .le. dtresh ) then
- if(DEBUG) then
- write(*,*) 'REJECT by raising water level: station is too close for this period range'
- write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
- write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
- endif
- do i = 1,npts
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- enddo
- endif
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m11_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow for 100s to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,179 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
- double precision :: Nlam, dtresh, vref
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow 100 seconds to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
- ! --------------------------------
- ! if the distance to the station is less than N wavelengths, then reject records
- ! by reasing the entire water level
-
- Nlam = 1.7 ! number of wavelengths
- vref = 2.0 ! reference velocity, km/s
- dtresh = Nlam*WIN_MIN_PERIOD*vref
- if (dist_km .le. dtresh ) then
- if(DEBUG) then
- write(*,*) 'REJECT by raising water level: station is too close for this period range'
- write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
- write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
- endif
- do i = 1,npts
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- enddo
- endif
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12_orig.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12_orig.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m12_orig.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Deleted: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90 2009-03-05 20:06:42 UTC (rev 14234)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -1,181 +0,0 @@
-! -------------------------------------------------------------
-! edit here to change T0 and T1 on some condition
-! Note, this function is called AFTER the seismogram has been
-! read but before it is filtered.
-! -------------------------------------------------------------
-
-subroutine modify_T0_T1_on_condition
- use seismo_variables
-
- ! do nothing
-
- ! adjust fstart and fend accordingly
- !FSTART=1./WIN_MAX_PERIOD
- !FEND=1./WIN_MIN_PERIOD
-
-end subroutine modify_T0_T1_on_condition
-
-! -------------------------------------------------------------
-! Edit here to change the time dependent properties of the selection criteria
-! Note, this function is called AFTER the seismogram has been read.
-! -------------------------------------------------------------
-subroutine set_up_criteria_arrays
- use seismo_variables
-
- integer :: i
- double precision :: time
-
- double precision :: Pnl_start, S_end, Sw_start, Sw_end
- double precision :: Nlam, dtresh, vref
-
-!===========================
-
-! -----------------------------------------------------------------
-! This is the basic version of the subroutine - no variation with time
-! -----------------------------------------------------------------
- do i = 1, npts
- time = b+(i-1)*dt
- DLNA_LIMIT(i) = DLNA_BASE
- CC_LIMIT(i) = CC_BASE
- TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
- STALTA_W_LEVEL(i) = STALTA_BASE
- S2N_LIMIT(i) = WINDOW_S2N_BASE
- enddo
-
-!!$ if (.not. BODY_WAVE_ONLY) then
-!!$ Pnl_start = -5.0 + dist_km/7.8
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ else
-!!$ Pnl_start = P_pick - 5.0
-!!$ S_end = S_pick + 5.0
-!!$ Sw_start = -15.0 + dist_km/3.5
-!!$ Sw_end = 35.0 + dist_km/3.1
-!!$ endif
-
- ! regional (Qinya's formulation):
- ! -------------------------------------------------------------
- ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
- ! that are listed in the publication should not be there
- ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
-
- Sw_start = -15.0 + dist_km/3.5
- Sw_end = 35.0 + dist_km/3.1
-
- if (BODY_WAVE_ONLY) then
- !Pnl_start = P_pick - 5.0
- !S_end = S_pick + 5.0
- Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
- S_end = S_pick + 2.5*WIN_MIN_PERIOD
-
- else
- Pnl_start = -5.0 + dist_km/7.8
- S_end = Sw_start
- endif
-
- ! variables for signal to noise ratio criteria.
- signal_end = Sw_end
- noise_end = Pnl_start
- if(DEBUG) then
- if (BODY_WAVE_ONLY) then
- write(*,*) 'DEBUG : P_pick = ', P_pick
- write(*,*) 'DEBUG : S_pick = ', S_pick
- endif
- write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
- write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
- endif
-
- ! --------------------------------
- ! modulate criteria in time
- do i = 1, npts
- time = b+(i-1)*dt ! time
-
- ! raises STA/LTA water level before P wave arrival.
- if(time.lt.Pnl_start) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- ! raises STA/LTA water level after surface wave arrives
- ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
- ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
- if (BODY_WAVE_ONLY) then
- !if(time.gt.S_end) then
- if(time.gt.Sw_end) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- else
-!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
-!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
-!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
-!!$ endif
-!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
-!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
-!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
-!!$ endif
-
- ! double the STA/LTA water level after the surface waves
- !if(time.gt.Sw_end) then
- ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
- !endif
-
- ! allow 100 seconds to possibly capture additional phases
- if(time.gt. (Sw_end+100.0) ) then
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- endif
-
- endif
-
- enddo
-
- ! --------------------------------
- ! if the distance to the station is less than N wavelengths, then reject records
- ! by reasing the entire water level
-
- Nlam = 1.7 ! number of wavelengths
- vref = 2.0 ! reference velocity, km/s
- dtresh = Nlam*WIN_MIN_PERIOD*vref
- if (dist_km .le. dtresh ) then
- if(DEBUG) then
- write(*,*) 'REJECT by raising water level: station is too close for this period range'
- write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
- write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
- endif
- do i = 1,npts
- STALTA_W_LEVEL(i) = 10.*STALTA_BASE
- enddo
- endif
-
-! The following is for check_window quality_s2n
-
-! -----------------------------------------------------------------
-! Start of user-dependent portion
-
-! This is where you modulate the time dependence of the selection
-! criteria. You have access to the following parameters from the
-! seismogram itself:
-!
-! dt, b, kstnm, knetwk, kcmpnm
-! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
-! num_phases, ph_names, ph_times
-!
-! Example of modulation:
-!-----------------------
-! To increase s2n limit after arrival of R1 try
-!
-! R_vel=3.2
-! R_time=dist_km/R_vel
-! do i = 1, npts
-! time=b+(i-1)*dt
-! if (time.gt.R_time) then
-! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
-! endif
-! enddo
-!
-! End of user-dependent portion
-! -----------------------------------------------------------------
-
-end subroutine set_up_criteria_arrays
-! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m13.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m14.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m14.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m14.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m15.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m15.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m15.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m16.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m16.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m16.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,181 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ ! NOTE: CHT is effectively no longer using BODY_WAVE mode at all,
+ ! but for the 2s data, we do not look AFTER the surface waves for exotic phases.
+ if (BODY_WAVE_ONLY) then
+ !if(time.gt.S_end) then
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ !if(time.gt.Sw_end) then
+ ! STALTA_W_LEVEL(i) = 2.0*STALTA_BASE
+ !endif
+
+ ! allow 100 seconds to possibly capture additional phases
+ if(time.gt. (Sw_end+100.0) ) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
Added: seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m99.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m99.f90 (rev 0)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/socal_3D/user_functions_m99.f90 2009-03-05 22:10:33 UTC (rev 14235)
@@ -0,0 +1,179 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition
+! Note, this function is called AFTER the seismogram has been
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+subroutine modify_T0_T1_on_condition
+ use seismo_variables
+
+ ! do nothing
+
+ ! adjust fstart and fend accordingly
+ !FSTART=1./WIN_MAX_PERIOD
+ !FEND=1./WIN_MIN_PERIOD
+
+end subroutine modify_T0_T1_on_condition
+
+! -------------------------------------------------------------
+! Edit here to change the time dependent properties of the selection criteria
+! Note, this function is called AFTER the seismogram has been read.
+! -------------------------------------------------------------
+subroutine set_up_criteria_arrays
+ use seismo_variables
+
+ integer :: i
+ double precision :: time
+
+ double precision :: Pnl_start, S_end, Sw_start, Sw_end
+ double precision :: Nlam, dtresh, vref
+
+!===========================
+
+! -----------------------------------------------------------------
+! This is the basic version of the subroutine - no variation with time
+! -----------------------------------------------------------------
+ do i = 1, npts
+ time = b+(i-1)*dt
+ DLNA_LIMIT(i) = DLNA_BASE
+ CC_LIMIT(i) = CC_BASE
+ TSHIFT_LIMIT(i) = TSHIFT_BASE ! WIN_MIN_PERIOD/2.0
+ STALTA_W_LEVEL(i) = STALTA_BASE
+ S2N_LIMIT(i) = WINDOW_S2N_BASE
+ enddo
+
+!!$ if (.not. BODY_WAVE_ONLY) then
+!!$ Pnl_start = -5.0 + dist_km/7.8
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ else
+!!$ Pnl_start = P_pick - 5.0
+!!$ S_end = S_pick + 5.0
+!!$ Sw_start = -15.0 + dist_km/3.5
+!!$ Sw_end = 35.0 + dist_km/3.1
+!!$ endif
+
+ ! regional (Qinya's formulation):
+ ! -------------------------------------------------------------
+ ! see Liu et al. (2004), p. 1755, but note that the PARENTHESES
+ ! that are listed in the publication should not be there
+ ! THESE ARE PROBABLY NOT ACCURATE ENOUGH FOR LONGER PATHS.
+
+ Sw_start = -15.0 + dist_km/3.5
+ Sw_end = 35.0 + dist_km/3.1
+
+ if (BODY_WAVE_ONLY) then
+ !Pnl_start = P_pick - 5.0
+ !S_end = S_pick + 5.0
+ Pnl_start = P_pick - 2.5*WIN_MIN_PERIOD
+ S_end = S_pick + 2.5*WIN_MIN_PERIOD
+
+ else
+ Pnl_start = -5.0 + dist_km/7.8
+ S_end = Sw_start
+ endif
+
+ ! variables for signal to noise ratio criteria.
+ signal_end = Sw_end
+ noise_end = Pnl_start
+ if(DEBUG) then
+ if (BODY_WAVE_ONLY) then
+ write(*,*) 'DEBUG : P_pick = ', P_pick
+ write(*,*) 'DEBUG : S_pick = ', S_pick
+ endif
+ write(*,*) 'DEBUG : signal_end = ', sngl(signal_end)
+ write(*,*) 'DEBUG : noise_end = ', sngl(noise_end)
+ endif
+
+ ! --------------------------------
+ ! modulate criteria in time
+ do i = 1, npts
+ time = b+(i-1)*dt ! time
+
+ ! raises STA/LTA water level before P wave arrival.
+ if(time.lt.Pnl_start) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ ! raises STA/LTA water level after surface wave arrives
+ if (BODY_WAVE_ONLY) then
+ if(time.gt.S_end) then
+ !if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ endif
+
+ else
+!!$ ! set time- and distance-specific Tshift and DlnA to mimic Qinya's criteria
+!!$ ! (see Liu et al., 2004, p. 1755; note comment above)
+!!$ if(time.ge.Pnl_start .and. time.lt.Sw_start) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/80.0
+!!$ endif
+!!$ if(time.ge.Sw_start .and. time.le.Sw_end) then
+!!$ !DLNA_LIMIT(i) = 1.5 ! ratio is 2.5, and dlna is ratio-1
+!!$ TSHIFT_LIMIT(i) = 3.0 + dist_km/50.0
+!!$ endif
+
+ ! double the STA/LTA water level after the surface waves
+ if(time.gt.Sw_end) then
+ STALTA_W_LEVEL(i) = 10.0*STALTA_BASE
+ endif
+
+!!$ ! allow 100 seconds to possibly capture additional phases
+!!$ if(time.gt. (Sw_end+100.0) ) then
+!!$ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+!!$ endif
+
+ endif
+
+ enddo
+
+ ! --------------------------------
+ ! if the distance to the station is less than N wavelengths, then reject records
+ ! by reasing the entire water level
+
+ Nlam = 1.7 ! number of wavelengths
+ vref = 2.0 ! reference velocity, km/s
+ dtresh = Nlam*WIN_MIN_PERIOD*vref
+ if (dist_km .le. dtresh ) then
+ if(DEBUG) then
+ write(*,*) 'REJECT by raising water level: station is too close for this period range'
+ write(*,*) 'dist_km, dtresh = Nlam*WIN_MIN_PERIOD, Nlam, WIN_MIN_PERIOD :'
+ write(*,'(4f12.4)') dist_km, dtresh, Nlam, WIN_MIN_PERIOD
+ endif
+ do i = 1,npts
+ STALTA_W_LEVEL(i) = 10.*STALTA_BASE
+ enddo
+ endif
+
+! The following is for check_window quality_s2n
+
+! -----------------------------------------------------------------
+! Start of user-dependent portion
+
+! This is where you modulate the time dependence of the selection
+! criteria. You have access to the following parameters from the
+! seismogram itself:
+!
+! dt, b, kstnm, knetwk, kcmpnm
+! evla, evlo, stla, stlo, evdp, azimuth, backazimuth, dist_deg, dist_km
+! num_phases, ph_names, ph_times
+!
+! Example of modulation:
+!-----------------------
+! To increase s2n limit after arrival of R1 try
+!
+! R_vel=3.2
+! R_time=dist_km/R_vel
+! do i = 1, npts
+! time=b+(i-1)*dt
+! if (time.gt.R_time) then
+! S2N_LIMIT(i)=2*WINDOW_S2N_BASE
+! endif
+! enddo
+!
+! End of user-dependent portion
+! -----------------------------------------------------------------
+
+end subroutine set_up_criteria_arrays
+! -------------------------------------------------------------
More information about the CIG-COMMITS
mailing list