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

[ampuero at geodynamics.org]

Author: ampuero
Date: 2013-10-08 17:32:51 -0700 (Tue, 08 Oct 2013)
New Revision: 22954

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
Log:
fixed SCEC time series fault output format

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90	2013-10-09 00:32:00 UTC (rev 22953)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90	2013-10-09 00:32:51 UTC (rev 22954)
@@ -482,10 +482,10 @@
   do i=1,dataT%npoin
     k = dataT%iglob(i)
     dataT%dat(1,itime,i) = d(1,k)
-    dataT%dat(3,itime,i) = v(1,k)
-    dataT%dat(5,itime,i) = t(1,k)/1.0e6_CUSTOM_REAL
-    dataT%dat(2,itime,i) = -d(2,k)
-    dataT%dat(4,itime,i) = -v(2,k)
+    dataT%dat(2,itime,i) = v(1,k)
+    dataT%dat(3,itime,i) = t(1,k)/1.0e6_CUSTOM_REAL
+    dataT%dat(4,itime,i) = -d(2,k)
+    dataT%dat(5,itime,i) = -v(2,k)
     dataT%dat(6,itime,i) = -t(2,k)/1.0e6_CUSTOM_REAL
     dataT%dat(7,itime,i) = t(3,k)/1.0e6_CUSTOM_REAL
   enddo