[cig-commits] r22791 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

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