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

[ampuero at geodynamics.org]

Author: ampuero
Date: 2012-09-19 17:05:43 -0700 (Wed, 19 Sep 2012)
New Revision: 20748

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

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	2012-09-20 00:01:29 UTC (rev 20747)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2012-09-20 00:05:43 UTC (rev 20748)
@@ -537,7 +537,7 @@
      ! move all fault elements to the same partition (proc=0)
       call fault_repartition (nspec, nnodes, elmnts, nsize, nparts, part, esize)
     else
-      call fault_repartition_parallel (nspec, nnodes, elmnts, nsize, nparts, part, esize)
+      call fault_repartition_parallel (nspec,part)
     endif
      
   ! re-partitioning puts moho-surface coupled elements into same partition