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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-03-26 07:43:02 -0700 (Mon, 26 Mar 2012)
New Revision: 19870

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Fixed a typo

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-03-26 13:45:16 UTC (rev 19869)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-03-26 14:43:02 UTC (rev 19870)
@@ -687,7 +687,7 @@
     ! WARNING: during opening the friction state variable should not evolve
     call swf_update_state(bc%D,dD,bc%V,bc%swf)
 
-    if(TPV16) then
+    if(.not. TPV16) then
     ! Update friction coeficient
       bc%MU = swf_mu(bc%swf)  
     else