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

[percygalvez at geodynamics.org]

Author: percygalvez
Date: 2011-06-29 01:11:03 -0700 (Wed, 29 Jun 2011)
New Revision: 18674

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/iterate_time.f90
Log:
deleting /DATA

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/iterate_time.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/iterate_time.f90	2011-06-29 07:41:57 UTC (rev 18673)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/iterate_time.f90	2011-06-29 08:11:03 UTC (rev 18674)
@@ -80,7 +80,6 @@
     ! elastic solver
     if( ELASTIC_SIMULATION ) call compute_forces_elastic()
 
-    write(IMAIN,*) 'compute_forces_elastic_done' !test 
     ! poroelastic solver
     if( POROELASTIC_SIMULATION ) stop 'poroelastic simulation not implemented yet'