[cig-commits] r18721 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src
percygalvez at geodynamics.org
percygalvez at geodynamics.org
Sat Jul 9 10:57:02 PDT 2011
Author: percygalvez
Date: 2011-07-09 10:57:01 -0700 (Sat, 09 Jul 2011)
New Revision: 18721
Modified:
seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
deleting # output format in concordance with SCEC tpv15
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 2011-07-08 23:14:37 UTC (rev 18720)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90 2011-07-09 17:57:01 UTC (rev 18721)
@@ -821,7 +821,7 @@
write(IOUT,*) "# Column #8 = normal stress (MPa)"
write(IOUT,*) "#"
write(IOUT,*) "# The line below lists the names of the data fields:"
- write(IOUT,*) "#t h-slip h-slip-rate h-shear-stress v-slip v-slip-rate v-shear-stress n-stress"
+ write(IOUT,*) "t h-slip h-slip-rate h-shear-stress v-slip v-slip-rate v-shear-stress n-stress"
write(IOUT,*) "#"
do k=1,NT
write(IOUT,'(8(E15.7))') k*DT, dataT%d1(k,i), dataT%v1(k,i), dataT%t1(k,i)/1.0e6_CUSTOM_REAL, &
More information about the CIG-COMMITS
mailing list