[cig-commits] r22195 - seismo/3D/SPECFEM3D/trunk/src/specfem3D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Sun Jun 9 08:56:30 PDT 2013
Author: xie.zhinan
Date: 2013-06-09 08:56:29 -0700 (Sun, 09 Jun 2013)
New Revision: 22195
Modified:
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_viscoelastic_ac.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_viscoelastic.f90
Log:
remove unused variables
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_viscoelastic_ac.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_viscoelastic_ac.f90 2013-06-09 15:22:30 UTC (rev 22194)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_viscoelastic_ac.f90 2013-06-09 15:56:29 UTC (rev 22195)
@@ -172,8 +172,6 @@
integer :: i,j,k,ispec,iglob
integer :: igll,iface
logical,dimension(NGLOB_AB) :: updated_dof_ocean_load
- ! adjoint locals
- real(kind=CUSTOM_REAL) :: b_force_normal_comp
! initialize the updates
updated_dof_ocean_load(:) = .false.
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_viscoelastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_viscoelastic.f90 2013-06-09 15:22:30 UTC (rev 22194)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_stacey_viscoelastic.f90 2013-06-09 15:56:29 UTC (rev 22195)
@@ -68,7 +68,7 @@
! adjoint simulations
integer:: SIMULATION_TYPE
- integer:: NSTEP,it,NGLOB_ADJOINT
+ integer:: NSTEP,it
integer:: b_num_abs_boundary_faces,b_reclen_field
real(kind=CUSTOM_REAL),dimension(NDIM,NGLLSQUARE,b_num_abs_boundary_faces):: b_absorb_field
@@ -218,7 +218,7 @@
include "constants.h"
- integer :: NSPEC_AB,NGLOB_AB
+ integer :: NSPEC_AB
integer, dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB) :: ibool
More information about the CIG-COMMITS
mailing list