[cig-commits] r13007 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-09 00:39:11 -0700 (Thu, 09 Oct 2008)
New Revision: 13007

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
Log:
fixed shakemap

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-08 23:00:11 UTC (rev 13006)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-09 07:39:11 UTC (rev 13007)
@@ -3379,12 +3379,12 @@
              displ(2,faces_surface_external_mesh(ipoin,ispec))**2 + &
              displ(3,faces_surface_external_mesh(ipoin,ispec))**2))
         store_val_uy_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin) = &
-             max(store_val_ux_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin), &
+             max(store_val_uy_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin), &
              sqrt(veloc(1,faces_surface_external_mesh(ipoin,ispec))**2 + &
              veloc(2,faces_surface_external_mesh(ipoin,ispec))**2 + &
              veloc(3,faces_surface_external_mesh(ipoin,ispec))**2))
         store_val_uz_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin) = &
-             max(store_val_ux_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin), &
+             max(store_val_uz_external_mesh(NGLLX*NGLLY*(ispec-1)+ipoin), &
              sqrt(accel(1,faces_surface_external_mesh(ipoin,ispec))**2 + &
              accel(2,faces_surface_external_mesh(ipoin,ispec))**2 + &
              accel(3,faces_surface_external_mesh(ipoin,ispec))**2))