[cig-commits] r22427 - in seismo/3D/SPECFEM3D/trunk/src: generate_databases specfem3D
danielpeter at geodynamics.org
danielpeter at geodynamics.org
Wed Jun 26 07:10:57 PDT 2013
Author: danielpeter
Date: 2013-06-26 07:10:57 -0700 (Wed, 26 Jun 2013)
New Revision: 22427
Modified:
seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90
seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_default.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_viscoelastic.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_Dev.F90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_calling_routine.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_calling_routine.F90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_noDev.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_accel_contribution.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_memory_variables.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
Log:
cleans up unused variable declarations in various files
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -34,9 +34,7 @@
npointot,myrank,LOCAL_PATH, &
nnodes_ext_mesh,nelmnts_ext_mesh, &
nodes_coords_ext_mesh, elmnts_ext_mesh, &
- max_memory_size, mat_ext_mesh, materials_ext_mesh, &
- nmat_ext_mesh, undef_mat_prop, nundefMat_ext_mesh, &
- num_interfaces_ext_mesh, max_interface_size_ext_mesh, &
+ max_memory_size,num_interfaces_ext_mesh, max_interface_size_ext_mesh, &
my_neighbours_ext_mesh, my_nelmnts_neighbours_ext_mesh, &
my_interfaces_ext_mesh, &
ibool_interfaces_ext_mesh, nibool_interfaces_ext_mesh, &
@@ -375,7 +373,7 @@
nspec2D_bottom,nspec2D_top,ANISOTROPY)
use generate_databases_par, only: STACEY_INSTEAD_OF_FREE_SURFACE,NGNOD,NGNOD2D,&
- PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE
+ PML_INSTEAD_OF_FREE_SURFACE
use create_regions_mesh_ext_par
implicit none
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_model.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -27,7 +27,7 @@
subroutine get_model(myrank)
- use generate_databases_par, only: IMODEL,nspec => NSPEC_AB,ibool,mat_ext_mesh,nelmnts_ext_mesh, &
+ use generate_databases_par, only: IMODEL,nspec => NSPEC_AB,ibool,mat_ext_mesh, &
materials_ext_mesh,nmat_ext_mesh,undef_mat_prop,nundefMat_ext_mesh,ANISOTROPY
use create_regions_mesh_ext_par
Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_default.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_default.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/model_default.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -40,7 +40,7 @@
! takes model values specified by mesh properties
- use generate_databases_par, only: myrank
+ !use generate_databases_par, only: myrank
use create_regions_mesh_ext_par
implicit none
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_acoustic.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -380,8 +380,6 @@
b_potential_dot_dot_acoustic)
use specfem_par,only: PRINT_SOURCE_TIME_FUNCTION,stf_used_total, &
- xigll,yigll,zigll,xi_receiver,eta_receiver,gamma_receiver,&
- station_name,network_name,adj_source_file,nrec_local,number_receiver_global, &
pm1_source_encoding,nsources_local,USE_FORCE_POINT_SOURCE, &
USE_RICKER_TIME_FUNCTION,factor_force_source
implicit none
@@ -582,8 +580,8 @@
use specfem_par,only: PRINT_SOURCE_TIME_FUNCTION,stf_used_total, &
xigll,yigll,zigll,xi_receiver,eta_receiver,gamma_receiver,&
station_name,network_name,adj_source_file,nrec_local,number_receiver_global, &
- pm1_source_encoding,nsources_local,USE_FORCE_POINT_SOURCE, &
- USE_RICKER_TIME_FUNCTION,factor_force_source
+ nsources_local,USE_FORCE_POINT_SOURCE, &
+ USE_RICKER_TIME_FUNCTION
implicit none
include "constants.h"
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_viscoelastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_viscoelastic.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_add_sources_viscoelastic.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -399,14 +399,10 @@
b_accel,NOISE_TOMOGRAPHY)
use specfem_par,only: PRINT_SOURCE_TIME_FUNCTION,stf_used_total, &
- xigll,yigll,zigll,xi_receiver,eta_receiver,gamma_receiver,&
- station_name,network_name,adj_source_file, &
num_free_surface_faces,free_surface_ispec, &
free_surface_ijk,free_surface_jacobian2Dw, &
- noise_sourcearray,irec_master_noise, &
normal_x_noise,normal_y_noise,normal_z_noise, &
mask_noise,noise_surface_movie, &
- nrec_local,number_receiver_global, &
nsources_local,USE_FORCE_POINT_SOURCE, &
USE_RICKER_TIME_FUNCTION
@@ -605,11 +601,8 @@
use specfem_par,only: PRINT_SOURCE_TIME_FUNCTION,stf_used_total, &
xigll,yigll,zigll,xi_receiver,eta_receiver,gamma_receiver,&
station_name,network_name,adj_source_file, &
- num_free_surface_faces,free_surface_ispec, &
- free_surface_ijk,free_surface_jacobian2Dw, &
- noise_sourcearray,irec_master_noise, &
- normal_x_noise,normal_y_noise,normal_z_noise, &
- mask_noise,noise_surface_movie, &
+ num_free_surface_faces, &
+ irec_master_noise,noise_surface_movie, &
nrec_local,number_receiver_global, &
nsources_local,USE_FORCE_POINT_SOURCE, &
USE_RICKER_TIME_FUNCTION
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_Dev.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_Dev.F90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_Dev.F90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -41,7 +41,7 @@
! p = - Chi_dot_dot
!
use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL, &
- STACEY_ABSORBING_CONDITIONS,PML_CONDITIONS,m1,m2,NGLLCUBE
+ m1,m2,NGLLCUBE
implicit none
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-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_calling_routine.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -57,8 +57,7 @@
use specfem_par_acoustic
use specfem_par_elastic
use specfem_par_poroelastic
- use pml_par,only: spec_to_CPML,is_CPML,rmemory_dpotential_dxl,rmemory_dpotential_dyl,rmemory_dpotential_dzl,&
- rmemory_potential_acoustic,rmemory_coupling_ac_el_displ,nglob_interface_PML_acoustic,&
+ use pml_par,only: spec_to_CPML,is_CPML,rmemory_coupling_ac_el_displ,nglob_interface_PML_acoustic,&
b_PML_potential,b_reclen_PML_potential
implicit none
@@ -331,9 +330,7 @@
use specfem_par_acoustic
use specfem_par_elastic
use specfem_par_poroelastic
- use pml_par,only: spec_to_CPML,is_CPML,rmemory_dpotential_dxl,rmemory_dpotential_dyl,rmemory_dpotential_dzl,&
- rmemory_potential_acoustic,rmemory_coupling_ac_el_displ,nglob_interface_PML_acoustic,&
- b_PML_potential,b_reclen_PML_potential
+ use pml_par,only: spec_to_CPML,is_CPML,rmemory_coupling_ac_el_displ
implicit none
! local parameters
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_acoustic_noDev.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -43,9 +43,8 @@
! p = - Chi_dot_dot
!
use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL,&
- STACEY_ABSORBING_CONDITIONS,PML_CONDITIONS
- use pml_par, only: NSPEC_CPML,is_CPML, spec_to_CPML, &
- k_store_x,k_store_y,k_store_z,d_store_x,d_store_y,d_store_z,alpha_store,&
+ PML_CONDITIONS
+ use pml_par, only: is_CPML, spec_to_CPML, &
PML_dpotential_dxl,PML_dpotential_dyl,PML_dpotential_dzl,&
PML_dpotential_dxl_new,PML_dpotential_dyl_new,PML_dpotential_dzl_new,&
potential_dot_dot_acoustic_CPML,rmemory_dpotential_dxl,rmemory_dpotential_dyl,&
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_calling_routine.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_calling_routine.F90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_calling_routine.F90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -301,8 +301,8 @@
use specfem_par_elastic
use specfem_par_poroelastic
use pml_par
- use fault_solver_dynamic, only : bc_dynflt_set3d_all,SIMULATION_TYPE_DYN
- use fault_solver_kinematic, only : bc_kinflt_set_all,SIMULATION_TYPE_KIN
+ use fault_solver_dynamic, only : bc_dynflt_set3d_all
+ use fault_solver_kinematic, only : bc_kinflt_set_all
implicit none
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_noDev.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_noDev.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_viscoelastic_noDev.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -53,8 +53,7 @@
phase_ispec_inner_elastic,backward_simulation,accel_interface,ACOUSTIC_SIMULATION)
use constants, only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,NDIM,N_SLS,SAVE_MOHO_MESH,ONE_THIRD,FOUR_THIRDS
- use pml_par, only: NSPEC_CPML,is_CPML, spec_to_CPML, accel_elastic_CPML, &
- k_store_x,k_store_y,k_store_z,d_store_x,d_store_y,d_store_z,alpha_store, &
+ use pml_par, only: is_CPML, spec_to_CPML, accel_elastic_CPML, &
PML_dux_dxl, PML_dux_dyl, PML_dux_dzl, PML_duy_dxl, PML_duy_dyl, PML_duy_dzl, &
PML_duz_dxl, PML_duz_dyl, PML_duz_dzl, &
PML_dux_dxl_new, PML_dux_dyl_new, PML_dux_dzl_new, &
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -92,7 +92,7 @@
subroutine initialize_fault (bc,IIN_BIN)
use specfem_par
- use specfem_par_elastic, only : rmassx,rmassy,rmassz
+ use specfem_par_elastic, only : rmassx !,rmassy,rmassz
!! DK DK use type(bc_dynandkinflt_type) instead of class(fault_type) for compatibility with some current compilers
type(bc_dynandkinflt_type), intent(inout) :: bc
@@ -471,7 +471,7 @@
!---------------------------------------------------------------
subroutine store_dataT(dataT,d,v,t,itime)
- use specfem_par, only : myrank
+ !use specfem_par, only : myrank
!! DK DK use type() instead of class() for compatibility with some current compilers
type(dataT_type), intent(inout) :: dataT
real(kind=CUSTOM_REAL), dimension(:,:), intent(in) :: d,v,t
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_accel_contribution.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_accel_contribution.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_accel_contribution.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -811,8 +811,11 @@
!
subroutine save_field_on_pml_interface(displ,veloc,accel,nglob_interface_PML_elastic,&
b_PML_field,b_reclen_PML_field)
+
use specfem_par, only: NGLOB_AB,it
use constants, only: CUSTOM_REAL,NDIM
+ implicit none
+
integer, intent(in) :: nglob_interface_PML_elastic,b_reclen_PML_field
real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB), intent(in) :: displ,veloc,accel
real(kind=CUSTOM_REAL), dimension(9,nglob_interface_PML_elastic) :: b_PML_field
@@ -841,9 +844,12 @@
!
subroutine read_field_on_pml_interface(b_accel,b_veloc,b_displ,nglob_interface_PML_elastic,&
b_PML_field,b_reclen_PML_field)
- use specfem_par, only: NGLOB_AB,NSPEC_AB,ibool,NSTEP,it
+
+ use specfem_par, only: NGLOB_AB,ibool,NSTEP,it
use pml_par, only: NSPEC_CPML,CPML_to_spec
use constants, only: CUSTOM_REAL,NDIM,NGLLX,NGLLY,NGLLZ
+ implicit none
+
integer, intent(in) :: nglob_interface_PML_elastic,b_reclen_PML_field
real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: b_displ,b_veloc,b_accel
real(kind=CUSTOM_REAL), dimension(9,nglob_interface_PML_elastic) :: b_PML_field
@@ -882,8 +888,11 @@
!
subroutine save_potential_on_pml_interface(potential_acoustic,potential_dot_acoustic,potential_dot_dot_acoustic,&
nglob_interface_PML_acoustic,b_PML_potential,b_reclen_PML_potential)
+
use specfem_par, only: NGLOB_AB,it
use constants, only: CUSTOM_REAL
+ implicit none
+
integer, intent(in) :: nglob_interface_PML_acoustic,b_reclen_PML_potential
real(kind=CUSTOM_REAL), dimension(NGLOB_AB), intent(in) :: potential_acoustic,potential_dot_acoustic,potential_dot_dot_acoustic
real(kind=CUSTOM_REAL), dimension(3,nglob_interface_PML_acoustic) :: b_PML_potential
@@ -904,9 +913,12 @@
!
subroutine read_potential_on_pml_interface(b_potential_dot_dot_acoustic,b_potential_dot_acoustic,b_potential_acoustic,&
nglob_interface_PML_acoustic,b_PML_potential,b_reclen_PML_potential)
- use specfem_par, only: NGLOB_AB,NSPEC_AB,ibool,NSTEP,it
+
+ use specfem_par, only: NGLOB_AB,ibool,NSTEP,it
use pml_par, only: NSPEC_CPML,CPML_to_spec
use constants, only: CUSTOM_REAL,NDIM,NGLLX,NGLLY,NGLLZ
+ implicit none
+
integer, intent(in) :: nglob_interface_PML_acoustic,b_reclen_PML_potential
real(kind=CUSTOM_REAL), dimension(NGLOB_AB) :: b_potential_dot_dot_acoustic,b_potential_dot_acoustic,b_potential_acoustic
real(kind=CUSTOM_REAL), dimension(3,nglob_interface_PML_acoustic) :: b_PML_potential
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_memory_variables.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_memory_variables.f90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/pml_compute_memory_variables.f90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -41,7 +41,7 @@
! Anisotropic-Medium PML for Vector FETD With Modified Basis Functions,
! IEEE Transactions on Antennas and Propagation, vol. 54, no. 1, (2006)
- use specfem_par, only: wgllwgll_xy,wgllwgll_xz,wgllwgll_yz,it,deltat, &
+ use specfem_par, only: it,deltat, &
xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz,jacobian, &
kappastore,mustore
use pml_par, only: NSPEC_CPML,CPML_regions,k_store_x,k_store_y,k_store_z,&
@@ -1356,7 +1356,7 @@
! Anisotropic-Medium PML for Vector FETD With Modified Basis Functions,
! IEEE Transactions on Antennas and Propagation, vol. 54, no. 1, (2006)
- use specfem_par, only: NSPEC_AB,wgllwgll_xy,wgllwgll_xz,wgllwgll_yz,&
+ use specfem_par, only: wgllwgll_xy,wgllwgll_xz,wgllwgll_yz,&
xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz,jacobian,&
it,deltat,rhostore
use pml_par, only: NSPEC_CPML,CPML_regions,k_store_x,k_store_y,k_store_z,&
@@ -2600,7 +2600,7 @@
! IEEE Transactions on Antennas and Propagation, vol. 54, no. 1, (2006)
use specfem_par, only: NGLOB_AB,it,deltat
- use pml_par,only : CPML_regions,k_store_x,k_store_y,k_store_z,d_store_x,d_store_y,d_store_z,alpha_store
+ use pml_par,only : CPML_regions,k_store_x,k_store_y,d_store_x,d_store_y,alpha_store
use constants, only: CUSTOM_REAL,NDIM,NGLLX,NGLLY,NGLLZ,&
CPML_X_ONLY,CPML_Y_ONLY,CPML_Z_ONLY,CPML_XY_ONLY,CPML_XZ_ONLY,CPML_YZ_ONLY,CPML_XYZ
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90 2013-06-26 07:21:50 UTC (rev 22426)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90 2013-06-26 14:10:57 UTC (rev 22427)
@@ -718,7 +718,7 @@
subroutine prepare_timerun_pml()
use pml_par
- use specfem_par, only: NSPEC_AB,NGNOD,ibool,myrank
+ use specfem_par, only: NSPEC_AB,NGNOD,myrank
use constants, only: IMAIN,NGNOD_EIGHT_CORNERS
implicit none
More information about the CIG-COMMITS
mailing list