[cig-commits] [commit] devel: Remove unused parameters. (7952d3f)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu May 1 00:50:56 PDT 2014
Repository : ssh://geoshell/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/cb32c88d6155d7974561a6f72fc17aea596e2c4d...50aa953c1db3f565d76415f5305410a529996b75
>---------------------------------------------------------------
commit 7952d3f37f654aa2b00778f0ee940467968a1db9
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Tue Apr 29 20:07:21 2014 -0400
Remove unused parameters.
>---------------------------------------------------------------
7952d3f37f654aa2b00778f0ee940467968a1db9
src/generate_databases/get_coupling_surfaces.f90 | 6 ------
src/meshfem3D/create_regions_mesh.f90 | 2 --
src/specfem3D/compute_add_sources_acoustic.f90 | 3 ---
src/specfem3D/compute_add_sources_viscoelastic.f90 | 3 ---
src/specfem3D/compute_forces_acoustic_Dev.F90 | 2 +-
src/specfem3D/compute_forces_acoustic_noDev.f90 | 3 +--
src/specfem3D/compute_forces_poro_solid_part.f90 | 3 +--
src/specfem3D/compute_forces_viscoelastic_Dev.F90 | 2 +-
src/specfem3D/pml_compute_accel_contribution.f90 | 2 +-
src/specfem3D/pml_compute_memory_variables.f90 | 2 +-
10 files changed, 6 insertions(+), 22 deletions(-)
diff --git a/src/generate_databases/get_coupling_surfaces.f90 b/src/generate_databases/get_coupling_surfaces.f90
index 82fc4fa..5b75912 100644
--- a/src/generate_databases/get_coupling_surfaces.f90
+++ b/src/generate_databases/get_coupling_surfaces.f90
@@ -427,9 +427,6 @@
reshape( (/ iface1_corner_ijk,iface2_corner_ijk, &
iface3_corner_ijk,iface4_corner_ijk, &
iface5_corner_ijk,iface6_corner_ijk /),(/3,4,6/)) ! all faces
- ! midpoint indices for each face (xmin,xmax,ymin,ymax,zmin,zmax)
- integer,dimension(3,6),parameter :: iface_all_midpointijk = &
- reshape( (/ 1,2,2, NGLLX,2,2, 2,1,2, 2,NGLLY,2, 2,2,1, 2,2,NGLLZ /),(/3,6/)) ! top
! allocates temporary arrays
allocate(tmp_normal(NDIM,NGLLSQUARE,nspec*6),stat=ier)
@@ -594,9 +591,6 @@
reshape( (/ iface1_corner_ijk,iface2_corner_ijk, &
iface3_corner_ijk,iface4_corner_ijk, &
iface5_corner_ijk,iface6_corner_ijk /),(/3,4,6/)) ! all faces
- ! midpoint indices for each face (xmin,xmax,ymin,ymax,zmin,zmax)
- integer,dimension(3,6),parameter :: iface_all_midpointijk = &
- reshape( (/ 1,2,2, NGLLX,2,2, 2,1,2, 2,NGLLY,2, 2,2,1, 2,2,NGLLZ /),(/3,6/)) ! top
! allocates temporary arrays
allocate(tmp_normal(NDIM,NGLLSQUARE,nspec*6),stat=ier)
diff --git a/src/meshfem3D/create_regions_mesh.f90 b/src/meshfem3D/create_regions_mesh.f90
index b918dc0..9235255 100644
--- a/src/meshfem3D/create_regions_mesh.f90
+++ b/src/meshfem3D/create_regions_mesh.f90
@@ -160,8 +160,6 @@ contains
integer, dimension(NGNOD_EIGHT_CORNERS,NSPEC_DOUBLING_SUPERBRICK) :: ibool_superbrick
double precision, dimension(NGLOB_DOUBLING_SUPERBRICK) :: x_superbrick,y_superbrick,z_superbrick
- logical, parameter :: DEBUG = .true.
-
! **************
! create the name for the database of the current slide and region
diff --git a/src/specfem3D/compute_add_sources_acoustic.f90 b/src/specfem3D/compute_add_sources_acoustic.f90
index 882c79f..f8818e5 100644
--- a/src/specfem3D/compute_add_sources_acoustic.f90
+++ b/src/specfem3D/compute_add_sources_acoustic.f90
@@ -414,9 +414,6 @@
real(kind=CUSTOM_REAL) stf_used,stf_used_total_all,time_source
integer :: isource,iglob,ispec,i,j,k
-! adjoint sources in SU format
- integer,parameter :: nheader=240 ! 240 bytes
-
! checks if anything to do
if( SIMULATION_TYPE /= 3 ) return
diff --git a/src/specfem3D/compute_add_sources_viscoelastic.f90 b/src/specfem3D/compute_add_sources_viscoelastic.f90
index 9c03477..3c4594d 100644
--- a/src/specfem3D/compute_add_sources_viscoelastic.f90
+++ b/src/specfem3D/compute_add_sources_viscoelastic.f90
@@ -446,9 +446,6 @@
real(kind=CUSTOM_REAL) stf_used,stf_used_total_all,time_source
integer :: isource,iglob,i,j,k,ispec
-! adjoint sources in SU format
- integer,parameter :: nheader=240 ! 240 bytes
-
! some old tests (currently unstable; do not remove them though, we might fix this one day)
if (OLD_TEST_TO_FIX_ONE_DAY) return
diff --git a/src/specfem3D/compute_forces_acoustic_Dev.F90 b/src/specfem3D/compute_forces_acoustic_Dev.F90
index 825d422..9c407df 100644
--- a/src/specfem3D/compute_forces_acoustic_Dev.F90
+++ b/src/specfem3D/compute_forces_acoustic_Dev.F90
@@ -41,7 +41,7 @@
! note that pressure is defined as:
! p = - Chi_dot_dot
!
- use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL, &
+ use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ, &
m1,m2,NGLLCUBE,PML_CONDITIONS
use pml_par, only: is_CPML, spec_to_CPML, NSPEC_CPML, &
PML_dpotential_dxl,PML_dpotential_dyl,PML_dpotential_dzl,&
diff --git a/src/specfem3D/compute_forces_acoustic_noDev.f90 b/src/specfem3D/compute_forces_acoustic_noDev.f90
index 823732f..dfaa356 100644
--- a/src/specfem3D/compute_forces_acoustic_noDev.f90
+++ b/src/specfem3D/compute_forces_acoustic_noDev.f90
@@ -42,8 +42,7 @@
! note that pressure is defined as:
! p = - Chi_dot_dot
!
- use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,TINYVAL_SNGL,&
- PML_CONDITIONS
+ use specfem_par,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,PML_CONDITIONS
use pml_par, only: is_CPML, spec_to_CPML, NSPEC_CPML, &
PML_dpotential_dxl,PML_dpotential_dyl,PML_dpotential_dzl,&
PML_dpotential_dxl_old,PML_dpotential_dyl_old,PML_dpotential_dzl_old,&
diff --git a/src/specfem3D/compute_forces_poro_solid_part.f90 b/src/specfem3D/compute_forces_poro_solid_part.f90
index ae4bbaf..70dba9f 100644
--- a/src/specfem3D/compute_forces_poro_solid_part.f90
+++ b/src/specfem3D/compute_forces_poro_solid_part.f90
@@ -44,8 +44,7 @@
! compute forces for the solid poroelastic part
use constants,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,NDIM, &
- N_SLS, &
- ONE_THIRD,FOUR_THIRDS
+ ONE_THIRD
implicit none
diff --git a/src/specfem3D/compute_forces_viscoelastic_Dev.F90 b/src/specfem3D/compute_forces_viscoelastic_Dev.F90
index 3455c63..5a1d042 100644
--- a/src/specfem3D/compute_forces_viscoelastic_Dev.F90
+++ b/src/specfem3D/compute_forces_viscoelastic_Dev.F90
@@ -60,7 +60,7 @@
use constants,only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ,NDIM, &
N_SLS,SAVE_MOHO_MESH, &
- ONE_THIRD,FOUR_THIRDS,m1,m2,IOUT
+ ONE_THIRD,FOUR_THIRDS,m1,m2
use fault_solver_dynamic, only : Kelvin_Voigt_eta
use specfem_par, only : FULL_ATTENUATION_SOLID
use pml_par, only: is_CPML, spec_to_CPML, accel_elastic_CPML,NSPEC_CPML, &
diff --git a/src/specfem3D/pml_compute_accel_contribution.f90 b/src/specfem3D/pml_compute_accel_contribution.f90
index a76989b..8deb45d 100644
--- a/src/specfem3D/pml_compute_accel_contribution.f90
+++ b/src/specfem3D/pml_compute_accel_contribution.f90
@@ -411,7 +411,7 @@ subroutine read_potential_on_pml_interface(b_potential_dot_dot_acoustic,b_potent
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
+ use constants, only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ
implicit none
integer, intent(in) :: nglob_interface_PML_acoustic,b_reclen_PML_potential
diff --git a/src/specfem3D/pml_compute_memory_variables.f90 b/src/specfem3D/pml_compute_memory_variables.f90
index 44c7377..f986041 100644
--- a/src/specfem3D/pml_compute_memory_variables.f90
+++ b/src/specfem3D/pml_compute_memory_variables.f90
@@ -742,7 +742,7 @@ subroutine pml_compute_memory_variables_elastic_acoustic(ispec_CPML,iface,iglob,
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_x,alpha_store_y,alpha_store_z
- use constants, only: CUSTOM_REAL,NDIM,NGLLX,NGLLY,NGLLZ
+ use constants, only: CUSTOM_REAL,NGLLX,NGLLY,NGLLZ
implicit none
More information about the CIG-COMMITS
mailing list