[cig-commits] r15576 - seismo/2D/SPECFEM2D/trunk

[cmorency at geodynamics.org]

Author: cmorency
Date: 2009-08-21 19:07:04 -0700 (Fri, 21 Aug 2009)
New Revision: 15576

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
Fix averaged displacement.


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-08-22 00:30:58 UTC (rev 15575)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-08-22 02:07:04 UTC (rev 15576)
@@ -5080,7 +5080,7 @@
 
            displ(1,iglob)=(2.d0*displs_poroelastic(1,iglob) + &
                           displ_elastic(1,iglob2))/3.d0
-           displ(2,iglob)=(displs_poroelastic(2,iglob)  + &
+           displ(2,iglob)=(2.d0*displs_poroelastic(2,iglob)  + &
                           displ_elastic(2,iglob2))/3.d0
 
            veloc(1,iglob)=(2.d0*velocs_poroelastic(1,iglob)  +&