[cig-commits] r12808 - in seismo/3D/SPECFEM3D_GLOBE/trunk: . version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-09-04 14:05:58 -0700 (Thu, 04 Sep 2008)
New Revision: 12808

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
Log:
changed "ACTUALLY_COUPLE_FLUID_ICB .and. NCHUNKS_VAL == 6" to "ACTUALLY_COUPLE_FLUID_ICB"


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2008-09-04 21:04:08 UTC (rev 12807)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2008-09-04 21:05:58 UTC (rev 12808)
@@ -3470,7 +3470,7 @@
 !--- couple with inner core at the bottom of the outer core
 !---
 
-  if(ACTUALLY_COUPLE_FLUID_ICB .and. NCHUNKS_VAL == 6) then
+  if(ACTUALLY_COUPLE_FLUID_ICB) then
 
 ! for surface elements exactly on the ICB
     do ispec2D = 1,NSPEC2D_BOTTOM(IREGION_OUTER_CORE)
@@ -4080,7 +4080,7 @@
 !--- couple with outer core at the top of the inner core
 !---
 
-  if(ACTUALLY_COUPLE_FLUID_ICB .and. NCHUNKS_VAL == 6) then
+  if(ACTUALLY_COUPLE_FLUID_ICB) then
 
 ! for surface elements exactly on the ICB
     do ispec2D = 1,NSPEC2D_TOP(IREGION_INNER_CORE)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-09-04 21:04:08 UTC (rev 12807)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-09-04 21:05:58 UTC (rev 12808)
@@ -2074,7 +2074,7 @@
 !--- couple with inner core at the bottom of the outer core
 !---
 
-  if(ACTUALLY_COUPLE_FLUID_ICB .and. NCHUNKS_VAL == 6) then
+  if(ACTUALLY_COUPLE_FLUID_ICB) then
 
 ! for surface elements exactly on the ICB
     do ispec2D = 1,NSPEC2D_BOTTOM(IREGION_OUTER_CORE)
@@ -2294,7 +2294,7 @@
 !--- couple with outer core at the top of the inner core
 !---
 
-  if(ACTUALLY_COUPLE_FLUID_ICB .and. NCHUNKS_VAL == 6) then
+  if(ACTUALLY_COUPLE_FLUID_ICB) then
 
 ! for surface elements exactly on the ICB
     do ispec2D = 1,NSPEC2D_TOP(IREGION_INNER_CORE)