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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-10-12 08:04:20 -0700 (Fri, 12 Oct 2012)
New Revision: 20827

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Fixed a typo in rate-and-state implementation

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-10-12 10:22:28 UTC (rev 20826)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-10-12 15:04:20 UTC (rev 20827)
@@ -922,7 +922,7 @@
     
     ! Subtract initial stress
     T = T - bc%T0
-    if(RATE_AND_STATE) T(1,:) = T(1,:) + TxExt
+    if(RATE_AND_STATE) T(1,:) = T(1,:) - TxExt
 
     ! Update slip acceleration da=da_free-T/(0.5*dt*Z)
     dA(1,:) = dA(1,:) - T(1,:)/(bc%Z*half_dt)