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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-07 10:38:10 -0700 (Fri, 07 Sep 2012)
New Revision: 20704

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	2012-09-07 17:21:38 UTC (rev 20703)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90	2012-09-07 17:38:10 UTC (rev 20704)
@@ -173,7 +173,7 @@
 !! DK DK added this for Guenneau, March 2012
 #ifdef USE_GUENNEAU
   integer :: kmato_ispec_outside_Guenneau
-  real(kind=CUSTOM_REAL) :: ang, ct, st, r, a, inva, lambda, mu, x, y, &
+  real(kind=CUSTOM_REAL) :: ct, st, r, a, inva, lambda, mu, x, y, &
                             lambdaplus2mu, ct2 , ct3 , ct4 , twoct2 , st2 , st3 , st4
   real(kind=CUSTOM_REAL) :: epsilon_xx,epsilon_xz,epsilon_zx,epsilon_zz
   real(kind=CUSTOM_REAL) :: C1111, C1112, C1121, C1122, C1211, C1212, C1221, C1222, C2111, C2112, C2121, &