[cig-commits] r22953 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[ampuero at geodynamics.org]

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

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
Log:
fixed SCEC time series fault output format

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2013-10-08 07:18:03 UTC (rev 22952)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver_common.f90	2013-10-09 00:32:00 UTC (rev 22953)
@@ -427,10 +427,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