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

[percygalvez at geodynamics.org]

Author: percygalvez
Date: 2012-11-21 01:01:28 -0800 (Wed, 21 Nov 2012)
New Revision: 21063

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_generate_databases.f90
Log:
Fixing bug for multiple faults in parallel version without extra comments 

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_generate_databases.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_generate_databases.f90	2012-11-21 08:44:22 UTC (rev 21062)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_generate_databases.f90	2012-11-21 09:01:28 UTC (rev 21063)
@@ -108,8 +108,6 @@
   close(IIN)
 
  ! read fault database file
- ! Percy,prname : This is the name path of the processors that assign proc slide .
- ! Percy, at this point this file each processor is assigned to its own file.
   open(unit=IIN,file=prname(1:len_trim(prname))//'Database_fault', &
        status='old',action='read',form='formatted',iostat=ier)
   if( ier /= 0 ) then