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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-10-22 18:16:32 -0700 (Mon, 22 Oct 2012)
New Revision: 20882

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/prepare_timerun.f90
Log:
Use Rate-and-state flag in prepare_timerun to initialize bulk velocities

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/prepare_timerun.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/prepare_timerun.f90	2012-10-23 01:10:58 UTC (rev 20881)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/prepare_timerun.f90	2012-10-23 01:16:32 UTC (rev 20882)
@@ -32,7 +32,7 @@
   use specfem_par_elastic
   use specfem_par_poroelastic
   use specfem_par_movie
-  use fault_solver, only : BC_DYNFLT_init
+  use fault_solver, only : BC_DYNFLT_init, RATE_AND_STATE
   use fault_solver_kinematic, only : BC_KINFLT_init  
 
   implicit none