[cig-commits] r22791 - seismo/2D/SPECFEM2D/trunk/src/specfem2D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Mon Sep 16 13:00:43 PDT 2013
Author: dkomati1
Date: 2013-09-16 13:00:43 -0700 (Mon, 16 Sep 2013)
New Revision: 22791
Modified:
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
Log:
removed a useless variable
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2013-09-16 19:39:36 UTC (rev 22790)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2013-09-16 20:00:43 UTC (rev 22791)
@@ -155,7 +155,6 @@
!temp variable
real(kind=CUSTOM_REAL) :: weight_rk
-
!---
!--- local variables
!---
@@ -214,7 +213,7 @@
integer :: ifirstelem,ilastelem
-!CPML coefficients and memory variables
+! CPML coefficients and memory variables
integer :: nspec_PML,ispec_PML
integer, dimension(nspec) :: region_CPML
logical, dimension(nspec) :: is_PML
@@ -243,10 +242,6 @@
real(kind=CUSTOM_REAL) :: dux_dxl_new,dux_dzl_new,duz_dxl_new,duz_dzl_new
real(kind=CUSTOM_REAL), dimension(3,nglob) :: displ_elastic_new
logical :: backward_simulation
-! real(kind=CUSTOM_REAL), dimension(6):: c_LDDRK
-! Data c_LDDRK /0.0_CUSTOM_REAL,0.032918605146_CUSTOM_REAL,&
-! 0.249351723343_CUSTOM_REAL,0.466911705055_CUSTOM_REAL,&
-! 0.582030414044_CUSTOM_REAL,0.847252983783_CUSTOM_REAL/
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! implement attenuation
More information about the CIG-COMMITS
mailing list