[cig-commits] r19764 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2012-03-11 20:01:46 -0700 (Sun, 11 Mar 2012)
New Revision: 19764

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90
Log:
fixes output for acoustic velocity components

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90	2012-03-10 00:41:58 UTC (rev 19763)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_interpolated_dva.f90	2012-03-12 03:01:46 UTC (rev 19764)
@@ -203,8 +203,8 @@
           dzd = dzd + hlagrange*displ_element(3,i,j,k)
           ! velocity
           vxd = vxd + hlagrange*veloc_element(1,i,j,k)
-          vyd = vxd + hlagrange*veloc_element(2,i,j,k)
-          vzd = vxd + hlagrange*veloc_element(3,i,j,k)
+          vyd = vyd + hlagrange*veloc_element(2,i,j,k)
+          vzd = vzd + hlagrange*veloc_element(3,i,j,k)
 
           ! x component -> acoustic potential
           axd = axd + hlagrange*potential_acoustic(iglob)