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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-09-24 10:58:21 -0700 (Mon, 24 Sep 2012)
New Revision: 20771

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Commenting dataT routines for debugging fault parallelization glitches

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-09-24 14:22:06 UTC (rev 20770)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-24 17:58:21 UTC (rev 20771)
@@ -619,7 +619,7 @@
   endif
 
 
-  call init_dataT(bc%dataT,bc%coord,bc%nglob,NT,iflt)
+!  call init_dataT(bc%dataT,bc%coord,bc%nglob,NT,iflt)
   call init_dataXZ(bc%dataXZ,bc,bc%nglob)
 
 end subroutine init_one_fault
@@ -932,11 +932,11 @@
     
     call store_dataXZ(bc%dataXZ, strength, theta_old, theta_new, dc, &
          Vnorm_old, Vnorm, it*bc%dt,bc%dt)
-    call store_dataT(bc%dataT,bc%D,bc%V,bc%T,theta_new,it)
+!    call store_dataT(bc%dataT,bc%D,bc%V,bc%T,theta_new,it)
 
     !-- 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)
+!    if ( mod(it,NTOUT) == 0 .or. it==NSTEP) call SCEC_write_dataT(bc%dataT,bc%dt,it)
     if ( it == NSTEP) call SCEC_Write_RuptureTime(bc%dataXZ,bc%dt,NSTEP,iflt)
 
   endif