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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-09-16 11:42:28 -0700 (Mon, 16 Sep 2013)
New Revision: 22788

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
Log:
removed an unused variable


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90	2013-09-13 20:07:54 UTC (rev 22787)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90	2013-09-16 18:42:28 UTC (rev 22788)
@@ -243,10 +243,10 @@
   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/
+! 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
@@ -424,7 +424,7 @@
     PML_duz_dxl_new = 0._CUSTOM_REAL
     PML_duz_dzl_new = 0._CUSTOM_REAL
     if(stage_time_scheme == 6) then
-      displ_elastic_new = displ_elastic !+ c_LDDRK(i_stage) * deltat * veloc_elastic
+      displ_elastic_new = displ_elastic ! + c_LDDRK(i_stage) * deltat * veloc_elastic
     else
       displ_elastic_new = displ_elastic + deltat * veloc_elastic
     endif