[cig-commits] r21695 - in seismo/3D/SPECFEM3D/trunk: DATA 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:51:32 PDT 2013
Author: dkomati1
Date: 2013-03-31 14:51:31 -0700 (Sun, 31 Mar 2013)
New Revision: 21695
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/create_regions_mesh.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/finalize_databases.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/get_absorbing_boundary.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/save_header_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/compute_forces_acoustic_calling_routine.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
Log:
renamed ABSORB_INSTEAD_OF_FREE_SURFACE to STACEY_INSTEAD_OF_FREE_SURFACE
Modified: seismo/3D/SPECFEM3D/trunk/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ACOUSTIC/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/BENCHMARK_CLAERBOUT_ADJOINT/ELASTIC/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_FREE_SURFACE/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .true.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_acoustic/HOMO8_NOFREESURFACE/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .true.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_with_CPML/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .true.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_FREE_SURFACE_without_CPML/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/CPML/purely_elastic/HOMO8_NOFREESURFACE_with_PML/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .true.
Modified: seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/Mount_StHelens/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX27/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_poroelastic/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/layered_halfspace/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/many_interfaces/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/simple_model/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .false.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/meshfem3D_examples/socal1D/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/splay_faults/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tomographic_model/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv102/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv103/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv15/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv16/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/tpv5/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/examples/waterlayered_halfspace/DATA/Par_file 2013-03-31 21:51:31 UTC (rev 21695)
@@ -52,7 +52,7 @@
STACEY_ABSORBING_CONDITIONS = .true.
# absorbing top surface (defined in mesh as 'free_surface_file')
-ABSORB_INSTEAD_OF_FREE_SURFACE = .false.
+STACEY_INSTEAD_OF_FREE_SURFACE = .false.
# C-PML boundary conditions for a regional simulation
PML_CONDITIONS = .false.
Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/decompose_mesh.F90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -150,7 +150,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
logical :: ATTENUATION,USE_OLSEN_ATTENUATION,PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical :: ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH
integer :: IMODEL
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -40,7 +40,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION, &
ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE, &
- STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_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, &
f0_FOR_PML,IMODEL
@@ -79,7 +79,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -315,7 +315,7 @@
nspec2D_xmin,nspec2D_xmax,nspec2D_ymin,nspec2D_ymax, &
nspec2D_bottom,nspec2D_top,ANISOTROPY)
- use generate_databases_par, only: ABSORB_INSTEAD_OF_FREE_SURFACE,NGNOD,NGNOD2D
+ use generate_databases_par, only: STACEY_INSTEAD_OF_FREE_SURFACE,NGNOD,NGNOD2D
use create_regions_mesh_ext_par
implicit none
@@ -413,7 +413,7 @@
! absorbing faces
num_abs_boundary_faces = nspec2D_xmin + nspec2D_xmax + nspec2D_ymin + nspec2D_ymax + nspec2D_bottom
! adds faces of free surface if it also absorbs
- if( ABSORB_INSTEAD_OF_FREE_SURFACE ) num_abs_boundary_faces = num_abs_boundary_faces + nspec2D_top
+ if( STACEY_INSTEAD_OF_FREE_SURFACE ) num_abs_boundary_faces = num_abs_boundary_faces + nspec2D_top
! allocates arrays to store info for each face (assumes NGLLX=NGLLY=NGLLZ)
allocate( abs_boundary_ispec(num_abs_boundary_faces), &
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/finalize_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/finalize_databases.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/finalize_databases.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -102,7 +102,7 @@
if( myrank == 0 ) then
call save_header_file(NSPEC_AB,NGLOB_AB,NPROC, &
- ATTENUATION,ANISOTROPY,NSTEP,DT,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ ATTENUATION,ANISOTROPY,NSTEP,DT,STACEY_INSTEAD_OF_FREE_SURFACE, &
SIMULATION_TYPE,max_memory_size,nfaces_surface_glob_ext_mesh)
endif
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -263,7 +263,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/generate_databases_par.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -62,7 +62,7 @@
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,STACEY_ABSORBING_CONDITIONS,SAVE_MESH_FILES,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: ANISOTROPY,STACEY_ABSORBING_CONDITIONS,SAVE_MESH_FILES,STACEY_INSTEAD_OF_FREE_SURFACE
logical :: PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
logical :: USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical :: MOVIE_SURFACE,MOVIE_VOLUME,CREATE_SHAKEMAP,SAVE_DISPLACEMENT,USE_HIGHRES_FOR_MOVIES
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -34,7 +34,7 @@
! determines absorbing boundaries/free-surface, 2D jacobians, face normals for Stacey conditions
- use generate_databases_par, only: ABSORB_INSTEAD_OF_FREE_SURFACE, PML_INSTEAD_OF_FREE_SURFACE, NGNOD2D
+ use generate_databases_par, only: STACEY_INSTEAD_OF_FREE_SURFACE, PML_INSTEAD_OF_FREE_SURFACE, NGNOD2D
use create_regions_mesh_ext_par
implicit none
@@ -441,7 +441,7 @@
enddo
! stores surface infos
- if( .not. ABSORB_INSTEAD_OF_FREE_SURFACE ) then
+ if( .not. STACEY_INSTEAD_OF_FREE_SURFACE ) then
! stores free surface
! sets face infos
ifree = ifree + 1
@@ -510,7 +510,7 @@
write(IMAIN,*) ' absorbing boundary:'
write(IMAIN,*) ' total number of free faces = ',itop
write(IMAIN,*) ' total number of faces = ',iabs
- if( ABSORB_INSTEAD_OF_FREE_SURFACE ) then
+ if( STACEY_INSTEAD_OF_FREE_SURFACE ) then
write(IMAIN,*) ' absorbing boundary includes free surface'
endif
if( PML_INSTEAD_OF_FREE_SURFACE .and. itop /= 0 ) then
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -104,7 +104,7 @@
double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH
@@ -130,7 +130,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -337,7 +337,7 @@
double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
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
@@ -380,7 +380,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -98,7 +98,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
logical :: ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical :: ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical :: PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH
@@ -183,7 +183,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
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 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/create_movie_shakemap_AVS_DX_GMT.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -93,7 +93,7 @@
double precision HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
logical ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) OUTPUT_FILES,LOCAL_PATH,TOMOGRAPHY_PATH
@@ -137,7 +137,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/read_parameter_file.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -32,7 +32,7 @@
NTSTEP_BETWEEN_FRAMES,USE_HIGHRES_FOR_MOVIES,HDUR_MOVIE, &
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION,NTSTEP_BETWEEN_OUTPUT_INFO, &
SIMULATION_TYPE,SAVE_FORWARD,NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
@@ -50,7 +50,7 @@
logical ATTENUATION,USE_OLSEN_ATTENUATION,APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD
logical MOVIE_SURFACE,MOVIE_VOLUME,CREATE_SHAKEMAP,SAVE_DISPLACEMENT,USE_HIGHRES_FOR_MOVIES
logical ANISOTROPY,SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION,SUPPRESS_UTM_PROJECTION
- logical USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE,USE_RICKER_TIME_FUNCTION
+ logical USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE,USE_RICKER_TIME_FUNCTION
logical PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH,CMTSOLUTION,FORCESOLUTION
@@ -126,7 +126,7 @@
if(err_occurred() /= 0) return
call read_value_logical(STACEY_ABSORBING_CONDITIONS, 'solver.STACEY_ABSORBING_CONDITIONS')
if(err_occurred() /= 0) return
- call read_value_logical(ABSORB_INSTEAD_OF_FREE_SURFACE, 'model.ABSORB_INSTEAD_OF_FREE_SURFACE')
+ call read_value_logical(STACEY_INSTEAD_OF_FREE_SURFACE, 'model.STACEY_INSTEAD_OF_FREE_SURFACE')
if(err_occurred() /= 0) return
call read_value_logical(PML_CONDITIONS, 'solver.PML_CONDITIONS')
if(err_occurred() /= 0) return
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -27,7 +27,7 @@
! save header file OUTPUT_FILES/values_from_mesher.h
subroutine save_header_file(NSPEC_AB,NGLOB_AB,NPROC, &
- ATTENUATION,ANISOTROPY,NSTEP,DT,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ ATTENUATION,ANISOTROPY,NSTEP,DT,STACEY_INSTEAD_OF_FREE_SURFACE, &
SIMULATION_TYPE,memory_size,nfaces_surface_glob_ext_mesh)
implicit none
@@ -37,7 +37,7 @@
integer NSPEC_AB,NGLOB_AB,NPROC,NSTEP,SIMULATION_TYPE
logical ATTENUATION,ANISOTROPY
- logical ABSORB_INSTEAD_OF_FREE_SURFACE, ABSORB_FREE_SURFACE_VAL
+ logical STACEY_INSTEAD_OF_FREE_SURFACE, ABSORB_FREE_SURFACE_VAL
double precision DT, memory_size
@@ -47,7 +47,7 @@
NAMELIST/MESHER/ABSORB_FREE_SURFACE_VAL
- if (ABSORB_INSTEAD_OF_FREE_SURFACE) then
+ if (STACEY_INSTEAD_OF_FREE_SURFACE) then
ABSORB_FREE_SURFACE_VAL = .true.
else
ABSORB_FREE_SURFACE_VAL = .false.
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -106,7 +106,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
logical :: ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical :: ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical :: PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH
@@ -221,7 +221,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/sum_kernels.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -113,7 +113,7 @@
USE_HIGHRES_FOR_MOVIES,SUPPRESS_UTM_PROJECTION
logical :: ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,USE_FORCE_POINT_SOURCE
- logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: STACEY_ABSORBING_CONDITIONS,SAVE_FORWARD,STACEY_INSTEAD_OF_FREE_SURFACE
logical :: ANISOTROPY,SAVE_MESH_FILES,USE_RICKER_TIME_FUNCTION,PRINT_SOURCE_TIME_FUNCTION
logical :: PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
character(len=256) LOCAL_PATH,TOMOGRAPHY_PATH
@@ -160,7 +160,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_calling_routine.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_calling_routine.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_calling_routine.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -67,20 +67,20 @@
! enforces free surface (zeroes potentials at free surface)
if(.NOT. GPU_MODE) then
! on CPU
- call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,STACEY_INSTEAD_OF_FREE_SURFACE, &
potential_acoustic,potential_dot_acoustic,potential_dot_dot_acoustic, &
ibool,free_surface_ijk,free_surface_ispec, &
num_free_surface_faces,ispec_is_acoustic)
! adjoint simulations
if( SIMULATION_TYPE == 3 ) &
- call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_ADJOINT,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_ADJOINT,STACEY_INSTEAD_OF_FREE_SURFACE, &
b_potential_acoustic,b_potential_dot_acoustic,b_potential_dot_dot_acoustic, &
ibool,free_surface_ijk,free_surface_ispec, &
num_free_surface_faces,ispec_is_acoustic)
else
! on GPU
- call acoustic_enforce_free_surf_cuda(Mesh_pointer,ABSORB_INSTEAD_OF_FREE_SURFACE)
+ call acoustic_enforce_free_surf_cuda(Mesh_pointer,STACEY_INSTEAD_OF_FREE_SURFACE)
endif
! distinguishes two runs: for elements on MPI interfaces, and elements within the partitions
@@ -382,7 +382,7 @@
! enforces free surface (zeroes potentials at free surface)
if(.NOT. GPU_MODE) then
! on CPU
- call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,STACEY_INSTEAD_OF_FREE_SURFACE, &
potential_acoustic,potential_dot_acoustic,potential_dot_dot_acoustic, &
ibool,free_surface_ijk,free_surface_ispec, &
num_free_surface_faces,ispec_is_acoustic)
@@ -395,13 +395,13 @@
! adjoint simulations
if (SIMULATION_TYPE == 3) &
- call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_ADJOINT,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ call acoustic_enforce_free_surface(NSPEC_AB,NGLOB_ADJOINT,STACEY_INSTEAD_OF_FREE_SURFACE, &
b_potential_acoustic,b_potential_dot_acoustic,b_potential_dot_dot_acoustic, &
ibool,free_surface_ijk,free_surface_ispec, &
num_free_surface_faces,ispec_is_acoustic)
else
! on GPU
- call acoustic_enforce_free_surf_cuda(Mesh_pointer,ABSORB_INSTEAD_OF_FREE_SURFACE)
+ call acoustic_enforce_free_surf_cuda(Mesh_pointer,STACEY_INSTEAD_OF_FREE_SURFACE)
endif
end subroutine compute_forces_acoustic
@@ -410,7 +410,7 @@
!-------------------------------------------------------------------------------------------------
!
-subroutine acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+subroutine acoustic_enforce_free_surface(NSPEC_AB,NGLOB_AB,STACEY_INSTEAD_OF_FREE_SURFACE, &
potential_acoustic,potential_dot_acoustic,potential_dot_dot_acoustic, &
ibool,free_surface_ijk,free_surface_ispec, &
num_free_surface_faces,ispec_is_acoustic)
@@ -418,7 +418,7 @@
include 'constants.h'
integer :: NSPEC_AB,NGLOB_AB
- logical :: ABSORB_INSTEAD_OF_FREE_SURFACE
+ logical :: STACEY_INSTEAD_OF_FREE_SURFACE
! acoustic potentials
real(kind=CUSTOM_REAL), dimension(NGLOB_AB) :: &
@@ -437,7 +437,7 @@
integer :: iface,igll,i,j,k,ispec,iglob
! checks if free surface became an absorbing boundary
- if( ABSORB_INSTEAD_OF_FREE_SURFACE ) return
+ if( STACEY_INSTEAD_OF_FREE_SURFACE ) return
! enforce potentials to be zero at surface
do iface = 1, num_free_surface_faces
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -48,7 +48,7 @@
SAVE_MESH_FILES,PRINT_SOURCE_TIME_FUNCTION, &
NTSTEP_BETWEEN_OUTPUT_INFO,SIMULATION_TYPE,SAVE_FORWARD, &
NTSTEP_BETWEEN_READ_ADJSRC,NOISE_TOMOGRAPHY, &
- USE_FORCE_POINT_SOURCE,ABSORB_INSTEAD_OF_FREE_SURFACE, &
+ USE_FORCE_POINT_SOURCE,STACEY_INSTEAD_OF_FREE_SURFACE, &
USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
PML_INSTEAD_OF_FREE_SURFACE,f0_FOR_PML,IMODEL)
@@ -292,16 +292,16 @@
stop 'PML_INSTEAD_OF_FREE_SURFACE = .true. is incompatible with STACEY_ABSORBING_CONDITIONS = .true.'
endif
else
- if( ABSORB_INSTEAD_OF_FREE_SURFACE ) then
+ if( STACEY_INSTEAD_OF_FREE_SURFACE ) then
print*, 'please modify Par_file and recompile solver'
- stop 'STACEY_ABSORBING_CONDITIONS must be activated when ABSORB_INSTEAD_OF_FREE_SURFACE is set to .true.'
+ stop 'STACEY_ABSORBING_CONDITIONS must be activated when STACEY_INSTEAD_OF_FREE_SURFACE is set to .true.'
endif
endif
if( PML_CONDITIONS ) then
- if( ABSORB_INSTEAD_OF_FREE_SURFACE ) then
+ if( STACEY_INSTEAD_OF_FREE_SURFACE ) then
print*, 'please modify Par_file and recompile solver'
- stop 'ABSORB_INSTEAD_OF_FREE_SURFACE = .true. is incompatible with PML_CONDITIONS = .true.'
+ stop 'STACEY_INSTEAD_OF_FREE_SURFACE = .true. is incompatible with PML_CONDITIONS = .true.'
elseif( .not. SUPPRESS_UTM_PROJECTION ) then
print*, 'please modify Par_file and recompile solver'
stop 'SUPPRESS_UTM_PROJECTION must be activated when PML_CONDITIONS is set to .true.'
@@ -311,9 +311,9 @@
stop 'PML_CONDITIONS must be activated when PML_INSTEAD_OF_FREE_SURFACE is set to .true.'
endif
- if( ABSORB_INSTEAD_OF_FREE_SURFACE .and. PML_INSTEAD_OF_FREE_SURFACE ) then
+ if( STACEY_INSTEAD_OF_FREE_SURFACE .and. PML_INSTEAD_OF_FREE_SURFACE ) then
print*, 'please modify Par_file and recompile solver'
- stop 'error: ABSORB_INSTEAD_OF_FREE_SURFACE and PML_INSTEAD_OF_FREE_SURFACE are both set to .true.'
+ stop 'error: STACEY_INSTEAD_OF_FREE_SURFACE and PML_INSTEAD_OF_FREE_SURFACE are both set to .true.'
endif
! checks the MOVIE_TYPE parameter
@@ -330,9 +330,9 @@
read(IOUT,NML=MESHER)
close(IOUT)
- if (ABSORB_INSTEAD_OF_FREE_SURFACE .NEQV. ABSORB_FREE_SURFACE_VAL) then
- write(IMAIN,*) 'ABSORB_INSTEAD_OF_FREE_SURFACE:',ABSORB_INSTEAD_OF_FREE_SURFACE,ABSORB_FREE_SURFACE_VAL
- call exit_MPI(myrank,'error in compiled parameters ABSORB_INSTEAD_OF_FREE_SURFACE, please recompile solver')
+ if (STACEY_INSTEAD_OF_FREE_SURFACE .NEQV. ABSORB_FREE_SURFACE_VAL) then
+ write(IMAIN,*) 'STACEY_INSTEAD_OF_FREE_SURFACE:',STACEY_INSTEAD_OF_FREE_SURFACE,ABSORB_FREE_SURFACE_VAL
+ call exit_MPI(myrank,'error in compiled parameters STACEY_INSTEAD_OF_FREE_SURFACE, please recompile solver')
endif
endif
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2013-03-31 21:46:41 UTC (rev 21694)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D_par.f90 2013-03-31 21:51:31 UTC (rev 21695)
@@ -176,7 +176,7 @@
logical :: ATTENUATION,USE_OLSEN_ATTENUATION, &
APPROXIMATE_OCEAN_LOAD,TOPOGRAPHY,STACEY_ABSORBING_CONDITIONS,ANISOTROPY, &
- ABSORB_INSTEAD_OF_FREE_SURFACE
+ STACEY_INSTEAD_OF_FREE_SURFACE
logical :: PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
More information about the CIG-COMMITS
mailing list