[cig-commits] r18744 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH

[ampuero at geodynamics.org]

Author: ampuero
Date: 2011-07-12 14:30:10 -0700 (Tue, 12 Jul 2011)
New Revision: 18744

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
Log:
fixed decompose_mesh_scotch

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2011-07-12 21:20:34 UTC (rev 18743)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2011-07-12 21:30:10 UTC (rev 18744)
@@ -531,7 +531,7 @@
   !                   nparts, part, nfaces_coupled, faces_coupled)
  
   ! move all fault elements to the same partition (proc=0)
-    call fault_repartition (nelmnts, nnodes, elmnts, nsize, nproc, part, esize)
+    call fault_repartition (nspec, nnodes, elmnts, nsize, nparts, part, esize)
 
      
   ! re-partitioning puts moho-surface coupled elements into same partition