[cig-commits] r11803 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-04-14 03:07:02 -0700 (Mon, 14 Apr 2008)
New Revision: 11803

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/constants.h.in
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
Log:
suppressed PERMUTE_INNER_CORE (now set to true all the time and therefore not needed anymore)


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/constants.h.in	2008-04-13 22:14:03 UTC (rev 11802)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/constants.h.in	2008-04-14 10:07:02 UTC (rev 11803)
@@ -492,8 +492,6 @@
 
 ! for Cuthill-McKee (1969) permutation
   logical, parameter :: PERFORM_CUTHILL_MCKEE = .false.
-! do not implement ordering in the inner core because it is small
-  logical, parameter :: PERMUTE_INNER_CORE = .false.
   integer, parameter :: NGNOD_HEXAHEDRA = 8
 ! perform classical or multi-level Cuthill-McKee ordering
   logical, parameter :: CMcK_MULTI = .false.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-13 22:14:03 UTC (rev 11802)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-14 10:07:02 UTC (rev 11803)
@@ -1489,7 +1489,6 @@
 ! Cuthill McKee permutation
 ! ***************************************************
   if (PERFORM_CUTHILL_MCKEE) then
-    if (iregion_code /= IREGION_INNER_CORE .or. PERMUTE_INNER_CORE) then
       allocate(perm(nspec))
       if(iregion_code == IREGION_CRUST_MANTLE) then
       ! do not permute anisotropic elements
@@ -1614,7 +1613,6 @@
       deallocate(temp_array_1D_int)
   
       deallocate(perm)
-    endif
   endif
 
 ! ***************************************************