[cig-commits] r21693 - in seismo/3D/SPECFEM3D/trunk: DATA examples examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA examples/Mount_StHelens/DATA examples/homogeneous_halfspace_HEX27/DATA examples/homogeneous_halfspace_HEX8/DATA examples/homogeneous_poroelastic/DATA examples/layered_halfspace/DATA examples/meshfem3D_examples/many_interfaces/DATA examples/meshfem3D_examples/simple_model/DATA examples/meshfem3D_examples/socal1D/DATA examples/splay_faults/DATA examples/tomographic_model/DATA examples/tpv102/DATA examples/tpv103/DATA examples/tpv15/DATA examples/tpv16/DATA examples/tpv5/DATA examples/waterlayered_halfspace/DATA src/decompose_mesh src/generate_databases src/meshfem3D src/shared src/specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sun Mar 31 14:40:05 PDT 2013
Author: dkomati1
Date: 2013-03-31 14:40:05 -0700 (Sun, 31 Mar 2013)
New Revision: 21693
Added:
seismo/3D/SPECFEM3D/trunk/examples/view_all_parameter_files_to_modify_them.csh
Modified:
seismo/3D/SPECFEM3D/trunk/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX27/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/many_interfaces/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/simple_model/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/socal1D/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90
seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases_par.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90
seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90
seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
Log:
suppressed PML_WIDTH_MIN and PML_WIDTH_MAX
Modified: seismo/3D/SPECFEM3D/trunk/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 0.09160
Modified: seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .true.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 0.09160
Modified: seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 0.09160
Modified: seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 0.09160
Modified: seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .true.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 0.09160
Modified: seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX27/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX27/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX27/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/many_interfaces/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/many_interfaces/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/many_interfaces/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/simple_model/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/simple_model/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/simple_model/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/socal1D/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/socal1D/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/socal1D/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Added: seismo/3D/SPECFEM3D/trunk/examples/view_all_parameter_files_to_modify_them.csh
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/view_all_parameter_files_to_modify_them.csh (rev 0)
+++ seismo/3D/SPECFEM3D/trunk/examples/view_all_parameter_files_to_modify_them.csh 2013-03-31 21:40:05 UTC (rev 21693)
@@ -0,0 +1,7 @@
+#!/bin/csh
+
+# this list of files is obtained using " find . -iname \*Par_file\* -exec ls -1 {} \; | grep -v Mesh_Par_file | grep -v Par_file_faults "
+# and adding ../DATA/Par_file manually to the list
+
+vi ../DATA/Par_file ./noise_tomography/DATA/Par_file_step3 ./noise_tomography/DATA/Par_file_step2 ./noise_tomography/DATA/Par_file_step1 ./tpv15/DATA/Par_file ./homogeneous_halfspace_HEX8/DATA/Par_file ./tpv16/DATA/Par_file ./tpv102/DATA/Par_file ./tpv5/DATA/Par_file ./splay_faults/DATA/Par_file ./homogeneous_poroelastic/DATA/Par_file ./tpv103/DATA/Par_file ./BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file ./BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file ./layered_halfspace/DATA/Par_file ./meshfem3D_examples/simple_model/DATA/Par_file ./meshfem3D_examples/socal1D/example_utm/Par_file_utm ./meshfem3D_examples/socal1D/DATA/Par_file ./meshfem3D_examples/many_interfaces/DATA/Par_file ./tomographic_model/DATA/Par_file ./homogeneous_halfspace_HEX27/DATA/Par_file ./waterlayered_halfspace/DATA/Par_file ./CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file ./CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file ./CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file ./CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file ./CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file ./Mount_StHelens/DATA/Par_file
+
Property changes on: seismo/3D/SPECFEM3D/trunk/examples/view_all_parameter_files_to_modify_them.csh
___________________________________________________________________
Name: svn:executable
+ *
Modified: seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file 2013-03-31 21:40:05 UTC (rev 21693)
@@ -60,10 +60,6 @@
# C-PML top surface
PML_INSTEAD_OF_FREE_SURFACE = .false.
-# C-PML thickness min/max
-PML_WIDTH_MIN = 10000.0d0
-PML_WIDTH_MAX = 25000.0d0
-
# C-PML dominant frequency
f0_FOR_PML = 12.7
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -141,7 +141,7 @@
! for read_parameter_files
double precision :: DT
- double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
integer :: NPROC,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP, &
UTM_PROJECTION_ZONE,SIMULATION_TYPE,NGNOD,NGNOD2D
integer :: NSOURCES,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -43,7 +43,7 @@
ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE, &
ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION, &
LOCAL_PATH,TOMOGRAPHY_PATH,PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE, &
- PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL
+ f0_FOR_PML,IMODEL
implicit none
@@ -81,7 +81,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! reads in (CUBIT) mesh files: mesh_file,nodes_coord_file, ...
call read_mesh_files()
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -265,7 +265,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! check that the code is running with the requested nb of processes
if(sizeprocs /= NPROC) then
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases_par.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases_par.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases_par.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -59,7 +59,7 @@
integer :: NSOURCES,NGNOD,NGNOD2D,MOVIE_TYPE
integer :: NTSTEP_BETWEEN_FRAMES,NTSTEP_BETWEEN_OUTPUT_INFO,NTSTEP_BETWEEN_READ_ADJSRC
- double precision :: DT,HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: DT,HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical :: ATTENUATION,USE_OLSEN_ATTENUATION,APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,SAVE_FORWARD,USE_FORCE_POINT_SOURCE
logical :: ANISOTROPY,ABSORBING_CONDITIONS,SAVE_MESH_FILES,ABSORB_INSTEAD_OF_FREE_SURFACE
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -1296,7 +1296,7 @@
! vp: P-velocity
! delta: thickness of the C-PML layer
- use generate_databases_par, only: CUSTOM_REAL,NPOWER,CPML_Rcoef,damping_factor,PML_WIDTH_MIN,PML_WIDTH_MAX
+ use generate_databases_par, only: CUSTOM_REAL,NPOWER,CPML_Rcoef,damping_factor
implicit none
@@ -1314,29 +1314,12 @@
call exit_mpi(myrank,'C-PML error: NPOWER must be greater than or equal to 1')
endif
-!!$ JC JC (from Daniel in his PML_init.f90 file) dominant wavelength has to be set differently
-!!$ determines dominant wavelength based on maximum model speed and source half time duration
-!!$ hdur_max = maxval(hdur(:))
-!!$ if( hdur_max > 0.0 ) then
-!!$ dominant_wavelength = model_speed_max * 2.0 * hdur_max
-!!$ else
-!!$ dominant_wavelength = 0._CUSTOM_REAL
-!!$ endif
-
! checks coordinates of C-PML points and thickness of C-PML layer
if( delta < dist ) then
print*,'C-PML point ',iglob
print*,'distance to C-PML/mesh interface ',dist
print*,'C-PML thickness ',delta
call exit_mpi(myrank,'C-PML error: distance to C-PML/mesh interface is bigger than thickness of C-PML layer')
- else if( delta < PML_WIDTH_MIN .or. delta > PML_WIDTH_MAX ) then
- print*,'C-PML thickness min/max ',PML_WIDTH_MIN,PML_WIDTH_MAX
- print*,'C-PML thickness ',delta
- call exit_mpi(myrank,'C-PML error: thickness of C-PML layer is out of bounds')
-!!$ else if( delta < dominant_wavelength/2.0 ) then ! JC JC
-!!$ print*,'dominant wavelength/2 ',dominant_wavelength/2.0
-!!$ print*,'C-PML thickness ',delta
-!!$ call exit_mpi(myrank,'C-PML error: thickness of C-PML layer must be set according to dominant wavelength')
endif
end function pml_damping_profile_l
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -101,7 +101,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
integer NTSTEP_BETWEEN_FRAMES,NTSTEP_BETWEEN_OUTPUT_INFO,NGNOD,NGNOD2D
double precision DT
- double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
logical ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
@@ -132,7 +132,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
if(NGNOD /= 8) stop 'error: check_mesh_quality only supports NGNOD == 8 for now'
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -341,7 +341,7 @@
logical ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
integer MOVIE_TYPE,IMODEL
- character(len=256) OUTPUT_FILES,LOCAL_PATH,TOMOGRAPHY_PATH,PML_WIDTH_MIN,PML_WIDTH_MAX
+ character(len=256) OUTPUT_FILES,LOCAL_PATH,TOMOGRAPHY_PATH
! ************** PROGRAM STARTS HERE **************
@@ -382,7 +382,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! read the mesh parameter file
! nullify(subregions,material_properties)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -89,7 +89,7 @@
! for read_parameter_files
double precision :: DT
- double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
integer :: NPROC,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP, &
UTM_PROJECTION_ZONE,SIMULATION_TYPE,NGNOD,NGNOD2D
integer :: NSOURCES,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY
@@ -185,7 +185,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
print *, 'Slice list: '
print *, node_list(1:num_node)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -90,7 +90,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
integer NTSTEP_BETWEEN_FRAMES,NTSTEP_BETWEEN_OUTPUT_INFO,NGNOD,NGNOD2D
double precision DT
- double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
logical ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
@@ -139,7 +139,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! get the base pathname for output files
call get_value_string(OUTPUT_FILES, 'OUTPUT_FILES', OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)))
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -34,7 +34,7 @@
SIMULATION_TYPE,SAVE_FORWARD,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
implicit none
@@ -45,7 +45,7 @@
integer NOISE_TOMOGRAPHY,NGNOD,NGNOD2D,MOVIE_TYPE
integer IMODEL
- double precision DT,HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision DT,HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION,APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,ABSORBING_CONDITIONS,SAVE_FORWARD
logical MOVIE_SURFACE,MOVIE_VOLUME,CREATE_SHAKEMAP,SAVE_DISPLACEMENT,USE_HIGHRES_FOR_MOVIES
@@ -132,10 +132,6 @@
if(err_occurred() /= 0) return
call read_value_logical(PML_INSTEAD_OF_FREE_SURFACE, 'model.PML_INSTEAD_OF_FREE_SURFACE')
if(err_occurred() /= 0) return
- call read_value_double_precision(PML_WIDTH_MIN, 'model.PML_WIDTH_MIN')
- if(err_occurred() /= 0) return
- call read_value_double_precision(PML_WIDTH_MAX, 'model.PML_WIDTH_MAX')
- if(err_occurred() /= 0) return
call read_value_double_precision(f0_FOR_PML, 'model.f0_FOR_PML')
if(err_occurred() /= 0) return
!call read_value_logical(ROTATE_PML_ACTIVATE, 'solver.ROTATE_PML_ACTIVATE')
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -97,7 +97,7 @@
! for read_parameter_files
double precision :: DT
- double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
integer :: NPROC,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP, &
UTM_PROJECTION_ZONE,SIMULATION_TYPE,NGNOD,NGNOD2D
integer :: NSOURCES,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY
@@ -223,7 +223,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! checks if number of MPI process as specified
if (sizeprocs /= NPROC) then
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -103,7 +103,7 @@
! for read_parameter_files
double precision :: DT
- double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
integer :: NPROC,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP, &
UTM_PROJECTION_ZONE,SIMULATION_TYPE,NGNOD,NGNOD2D
integer :: NSOURCES,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY
@@ -162,7 +162,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
! checks if number of MPI process as specified
if (sizeprocs /= NPROC) then
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -50,7 +50,7 @@
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
- PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
+ PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
!! DK DK added this for now (March 2013) because CPML is not yet implemented for USE_DEVILLE_PRODUCTS;
!! DK DK we will soon add it (in a month or so)
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2013-03-31 19:08:44 UTC (rev 21692)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2013-03-31 21:40:05 UTC (rev 21693)
@@ -172,7 +172,7 @@
integer :: NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP,UTM_PROJECTION_ZONE
integer :: IMODEL,NGNOD,NGNOD2D
- double precision :: DT,OLSEN_ATTENUATION_RATIO,f0_FOR_PML,PML_WIDTH_MIN,PML_WIDTH_MAX
+ double precision :: DT,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical :: ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,ABSORBING_CONDITIONS,ANISOTROPY, &
More information about the CIG-COMMITS
mailing list