[cig-commits] r22908 - seismo/2D/SPECFEM2D/trunk/src/specfem2D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Tue Oct 1 00:31:21 PDT 2013
Author: xie.zhinan
Date: 2013-10-01 00:31:21 -0700 (Tue, 01 Oct 2013)
New Revision: 22908
Modified:
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
remove unused variables
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90 2013-10-01 01:08:55 UTC (rev 22907)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90 2013-10-01 07:31:21 UTC (rev 22908)
@@ -45,7 +45,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver,&
source_type,it,NSTEP,anyabs, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_PORO_FLUID_PART,deltat, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,poroelastic,codeabs, &
+ ibool,kmato,numabs,poroelastic,codeabs, &
accelw_poroelastic,velocw_poroelastic,displw_poroelastic,velocs_poroelastic,displs_poroelastic,&
displs_poroelastic_old,b_accelw_poroelastic,b_displw_poroelastic,b_displs_poroelastic,&
density,porosity,tortuosity,permeability,poroelastcoef,xix,xiz,gammax,gammaz, &
@@ -82,7 +82,7 @@
logical :: anyabs,initialfield,ATTENUATION_VISCOELASTIC_SOLID
logical :: SAVE_FORWARD
- double precision ::deltat,deltatover2,deltatsquareover2
+ double precision :: deltat
integer, dimension(NGLLX,NGLLZ,nspec) :: ibool
integer, dimension(nspec) :: kmato
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90 2013-10-01 01:08:55 UTC (rev 22907)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90 2013-10-01 07:31:21 UTC (rev 22908)
@@ -45,7 +45,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver,&
source_type,it,NSTEP,anyabs, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_PORO_FLUID_PART,deltat, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,poroelastic,codeabs, &
+ ibool,kmato,numabs,poroelastic,codeabs, &
accels_poroelastic,velocs_poroelastic,velocw_poroelastic,displs_poroelastic,displs_poroelastic_old,&
displw_poroelastic,b_accels_poroelastic,b_displs_poroelastic,b_displw_poroelastic,&
density,porosity,tortuosity,permeability,poroelastcoef,xix,xiz,gammax,gammaz, &
@@ -82,7 +82,7 @@
logical :: anyabs,initialfield,ATTENUATION_VISCOELASTIC_SOLID
logical :: SAVE_FORWARD
- double precision :: deltat,deltatover2,deltatsquareover2
+ double precision :: deltat
integer, dimension(NGLLX,NGLLZ,nspec) :: ibool
integer, dimension(nspec) :: kmato
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2013-10-01 01:08:55 UTC (rev 22907)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2013-10-01 07:31:21 UTC (rev 22908)
@@ -46,7 +46,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver, &
source_type,it,NSTEP,anyabs,assign_external_model, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,anglesource, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,elastic,codeabs, &
+ ibool,kmato,numabs,elastic,codeabs, &
accel_elastic,veloc_elastic,displ_elastic,displ_elastic_old, &
density,poroelastcoef,xix,xiz,gammax,gammaz, &
jacobian,vpext,vsext,rhoext,c11ext,c13ext,c15ext,c33ext,c35ext,c55ext,c12ext,c23ext,c25ext,anisotropic,anisotropy, &
@@ -97,7 +97,7 @@
logical :: SAVE_FORWARD
- double precision :: deltat,deltatover2,deltatsquareover2
+ double precision :: deltat
double precision, dimension(NSOURCES) :: anglesource
integer, dimension(NGLLX,NGLLZ,nspec) :: ibool
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90 2013-10-01 01:08:55 UTC (rev 22907)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90 2013-10-01 07:31:21 UTC (rev 22908)
@@ -5722,7 +5722,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver, &
source_type,it,NSTEP,anyabs,assign_external_model, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,anglesource, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,elastic,codeabs, &
+ ibool,kmato,numabs,elastic,codeabs, &
accel_elastic,veloc_elastic,displ_elastic,displ_elastic_old, &
density,poroelastcoef,xix,xiz,gammax,gammaz, &
jacobian,vpext,vsext,rhoext,c11ext,c13ext,c15ext,c33ext,c35ext,c55ext,c12ext,c23ext,c25ext,anisotropic,anisotropy, &
@@ -5777,7 +5777,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver, &
source_type,it,NSTEP,anyabs,assign_external_model, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,anglesource, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,elastic,codeabs, &
+ ibool,kmato,numabs,elastic,codeabs, &
b_accel_elastic,b_veloc_elastic,b_displ_elastic,displ_elastic_old, &
density,poroelastcoef,xix,xiz,gammax,gammaz, &
jacobian,vpext,vsext,rhoext,c11ext,c13ext,c15ext,c33ext,c35ext,c55ext,c12ext,c23ext,c25ext,anisotropic,anisotropy, &
@@ -6588,7 +6588,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver,&
source_type,it,NSTEP,anyabs, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_PORO_FLUID_PART,deltat, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,poroelastic,codeabs, &
+ ibool,kmato,numabs,poroelastic,codeabs, &
accels_poroelastic,velocs_poroelastic,velocw_poroelastic,displs_poroelastic,displs_poroelastic_old,&
displw_poroelastic,b_accels_poroelastic,b_displs_poroelastic,b_displw_poroelastic,&
density,porosity,tortuosity,permeability,poroelastcoef,xix,xiz,gammax,gammaz, &
@@ -6609,7 +6609,7 @@
ispec_selected_source,ispec_selected_rec,is_proc_source,which_proc_receiver,&
source_type,it,NSTEP,anyabs, &
initialfield,ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_PORO_FLUID_PART,deltat, &
- deltatover2,deltatsquareover2,ibool,kmato,numabs,poroelastic,codeabs, &
+ ibool,kmato,numabs,poroelastic,codeabs, &
accelw_poroelastic,velocw_poroelastic,displw_poroelastic,velocs_poroelastic,displs_poroelastic,&
displs_poroelastic_old,b_accelw_poroelastic,b_displw_poroelastic,b_displs_poroelastic,&
density,porosity,tortuosity,permeability,poroelastcoef,xix,xiz,gammax,gammaz, &
More information about the CIG-COMMITS
mailing list