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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-10-18 17:05:23 -0700 (Thu, 18 Oct 2012)
New Revision: 20853

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Updated rupture time to account for fault parallelization

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-10-18 19:42:01 UTC (rev 20852)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-10-19 00:05:23 UTC (rev 20853)
@@ -974,7 +974,6 @@
     !-- outputs --
     ! write dataT every NTOUT time step or at the end of simulation
 !    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT,bc%dt,it,bc%rsf%StateLaw)
-    if ( it == NSTEP) call SCEC_Write_RuptureTime(bc%dataXZ,bc%dt,NSTEP,iflt)
 
   endif
 
@@ -988,6 +987,14 @@
     endif
   endif
 
+  if ( it == NSTEP) then
+    if (.NOT. PARALLEL_FAULT) then
+      call SCEC_Write_RuptureTime(bc%dataXZ,bc%dt,NSTEP,iflt)
+    else
+      if (myrank==0) call SCEC_Write_RuptureTime(bc%dataXZ_all,bc%dt,NSTEP,iflt)
+    endif
+  endif
+
 end subroutine BC_DYNFLT_set3d
 
 !===============================================================