[cig-commits] r16085 - in seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH: . OUTPUT_FILES

[pieyre at geodynamics.org]

Author: pieyre
Date: 2009-12-08 08:01:03 -0800 (Tue, 08 Dec 2009)
New Revision: 16085

Modified:
   seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/OUTPUT_FILES/cubit2specfem3d.py
   seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
Log:
minor fix in decompose_mesh_SCOTCH

Modified: seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/OUTPUT_FILES/cubit2specfem3d.py
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/OUTPUT_FILES/cubit2specfem3d.py	2009-12-08 09:41:47 UTC (rev 16084)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/OUTPUT_FILES/cubit2specfem3d.py	2009-12-08 16:01:03 UTC (rev 16085)
@@ -1,6 +1,6 @@
 #!python
 #############################################################################
-# cubit2specfem3d.py                                                           #
+# cubit2specfem3d.py                                                        #
 # this file is part of GEOCUBIT                                             #
 #                                                                           #
 # Created by Emanuele Casarotti                                             #
@@ -389,7 +389,7 @@
                   imaterial = 3
                 else :
                   imaterial = 0
-                  
+                #  
                 nattrib=cubit.get_block_attribute_count(block)
                 if nattrib != 0:
                     # material flag: 

Modified: seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90	2009-12-08 09:41:47 UTC (rev 16084)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90	2009-12-08 16:01:03 UTC (rev 16085)
@@ -848,7 +848,7 @@
     integer, dimension(0:nelmnts-1)  :: part
     integer, dimension(0:esize*nelmnts-1)  :: elmnts
     integer, dimension(:), pointer :: glob2loc_elmnts
-    integer, dimension(2,nspec)  :: num_modele
+    integer, dimension(2,nelmnts)  :: num_modele
     integer, dimension(:), pointer  :: glob2loc_nodes_nparts
     integer, dimension(:), pointer  :: glob2loc_nodes_parts
     integer, dimension(:), pointer  :: glob2loc_nodes