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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-09-16 12:39:36 -0700 (Mon, 16 Sep 2013)
New Revision: 22790

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
Log:
delete unused comment


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:11:45 UTC (rev 22789)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90	2013-09-16 19:39:36 UTC (rev 22790)
@@ -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
     else
       displ_elastic_new = displ_elastic + deltat * veloc_elastic
     endif