[cig-commits] r21063 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src
percygalvez at geodynamics.org
percygalvez at geodynamics.org
Wed Nov 21 01:01:29 PST 2012
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
More information about the CIG-COMMITS
mailing list