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

[ampuero at geodynamics.org]

Author: ampuero
Date: 2012-12-11 17:57:36 -0800 (Tue, 11 Dec 2012)
New Revision: 21134

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
Log:
minor clean up in fault modules

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2012-12-12 01:23:28 UTC (rev 21133)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2012-12-12 01:57:36 UTC (rev 21134)
@@ -78,8 +78,7 @@
 
   real(kind=CUSTOM_REAL), allocatable, save :: Kelvin_Voigt_eta(:)
 
-  public :: BC_DYNFLT_init, BC_DYNFLT_set3d_all, Kelvin_Voigt_eta, &
-       SIMULATION_TYPE_DYN,RATE_AND_STATE
+  public :: BC_DYNFLT_init, BC_DYNFLT_set3d_all, Kelvin_Voigt_eta, SIMULATION_TYPE_DYN
 
 
 contains

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90	2012-12-12 01:23:28 UTC (rev 21133)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90	2012-12-12 01:57:36 UTC (rev 21134)
@@ -33,7 +33,7 @@
   use specfem_par_elastic
   use specfem_par_poroelastic
   use specfem_par_movie
-  use fault_solver_dynamic, only : BC_DYNFLT_init, RATE_AND_STATE
+  use fault_solver_dynamic, only : BC_DYNFLT_init
   use fault_solver_kinematic, only : BC_KINFLT_init
   implicit none
   ! local parameters
@@ -333,7 +333,6 @@
   use specfem_par_acoustic
   use specfem_par_elastic
   use specfem_par_poroelastic
-  use fault_solver_dynamic, only : RATE_AND_STATE
   implicit none
 
   ! initialize acoustic arrays to zero
@@ -348,7 +347,7 @@
   ! initialize elastic arrays to zero/verysmallvall
   if( ELASTIC_SIMULATION ) then
     displ(:,:) = 0._CUSTOM_REAL
-    if(.not. RATE_AND_STATE) veloc(:,:) = 0._CUSTOM_REAL
+    veloc(:,:) = 0._CUSTOM_REAL
     accel(:,:) = 0._CUSTOM_REAL
     ! put negligible initial value to avoid very slow underflow trapping
     if(FIX_UNDERFLOW_PROBLEM) displ(:,:) = VERYSMALLVAL