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

[percygalvez at geodynamics.org]

Author: percygalvez
Date: 2011-07-09 11:03:57 -0700 (Sat, 09 Jul 2011)
New Revision: 18722

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
comming back to the same output

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-09 17:57:01 UTC (rev 18721)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2011-07-09 18:03:57 UTC (rev 18722)
@@ -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, &