[cig-commits] r19283 - seismo/3D/SPECFEM3D_GEOTECH/trunk/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-12-09 01:54:48 -0800 (Fri, 09 Dec 2011)
New Revision: 19283

Modified:
   seismo/3D/SPECFEM3D_GEOTECH/trunk/src/partmesh_scotch.f90
Log:
removed SCOTCH method selection, which is not a SCOTCH input parameter any more


Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/src/partmesh_scotch.f90
===================================================================
--- seismo/3D/SPECFEM3D_GEOTECH/trunk/src/partmesh_scotch.f90	2011-12-08 00:09:48 UTC (rev 19282)
+++ seismo/3D/SPECFEM3D_GEOTECH/trunk/src/partmesh_scotch.f90	2011-12-09 09:54:48 UTC (rev 19283)
@@ -2,7 +2,7 @@
 ! this library is copied and modified from the original
 ! SPECFEM3D package (Komatitsch and Tromp 1999, Peter et al. 2011)
 ! REVISION
-!   HNG, Jul 12,2011; HNG, Apr 09,2010
+!   HNG, Dec 09,2011; HNG, Jul 12,2011; HNG, Apr 09,2010
 module partmesh_scotch
 
 use partmesh_library
@@ -75,7 +75,7 @@
 
 real(kind=kreal),dimension(SCOTCH_GRAPHDIM) :: scotchgraph !double precision
 real(kind=kreal),dimension(SCOTCH_STRATDIM) :: scotchstrat !double precision
-character(len=256),parameter :: scotch_strategy='b{job=t,map=t,poli=S,sep=h{pass=30}}'
+!character(len=256),parameter :: scotch_strategy='b{job=t,map=t,poli=S,sep=h{pass=30}}'
 integer  :: istat,idummy
 
 !pll
@@ -475,10 +475,11 @@
     stop 'ERROR : MAIN : Cannot initialize strat'
 endif
 
-call scotchfstratgraphmap (scotchstrat(1), trim(scotch_strategy), istat)
-  if (istat /= 0) then
-    stop 'ERROR : MAIN : Cannot build strat'
-endif
+! no need to use this for default strategy
+!call scotchfstratgraphmap (scotchstrat(1), trim(scotch_strategy), istat)
+!  if (istat /= 0) then
+!    stop 'ERROR : MAIN : Cannot build strat'
+!endif
 
 call scotchfgraphinit (scotchgraph(1), istat)
 if (istat /= 0) then