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

[ampuero at geodynamics.org]

Author: ampuero
Date: 2013-02-14 17:32:51 -0800 (Thu, 14 Feb 2013)
New Revision: 21370

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
Log:
dynamic faults: fixed the stress initialization

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-15 00:02:59 UTC (rev 21369)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-15 01:32:51 UTC (rev 21370)
@@ -225,6 +225,7 @@
     call init_2d_distribution(bc%T0(1,:),bc%coord,IIN_PAR,n1) 
     call init_2d_distribution(bc%T0(2,:),bc%coord,IIN_PAR,n2) 
     call init_2d_distribution(bc%T0(3,:),bc%coord,IIN_PAR,n3) 
+    bc%T = bc%T0
 
     !WARNING : Quick and dirty free surface condition at z=0 
     !  do k=1,bc%nglob