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

[ampuero at geodynamics.org]

Author: ampuero
Date: 2013-02-14 15:17:24 -0800 (Thu, 14 Feb 2013)
New Revision: 21368

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
Log:
added fault snapshot at t=0

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-14 22:57:32 UTC (rev 21367)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-14 23:17:24 UTC (rev 21368)
@@ -254,7 +254,15 @@
   else
     call init_dataT(bc%dataT,bc%coord,bc%nglob,NT,dt,7,iflt)
   endif
+
   call init_dataXZ(bc%dataXZ,bc)
+ ! output a fault snapshot at t=0 
+  if (.NOT. PARALLEL_FAULT) then
+    if (bc%nspec > 0) call write_dataXZ(bc%dataXZ,0,iflt)
+  else
+    call gather_dataXZ(bc)
+    if (myrank==0) call write_dataXZ(bc%dataXZ_all,0,iflt)
+  endif
 
 !--------------------------------------------------------
 contains