[cig-commits] r19709 - seismo/3D/SPECFEM3D/trunk/src/meshfem3D

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2012-03-02 10:49:53 -0800 (Fri, 02 Mar 2012)
New Revision: 19709

Modified:
   seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90
Log:
fixes an index problem in subregions for xmeshfem3D

Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90	2012-03-02 16:19:57 UTC (rev 19708)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/define_subregions.f90	2012-03-02 18:49:53 UTC (rev 19709)
@@ -72,7 +72,7 @@
      iy1=2*(subregions(isubregion,3) - iproc_eta*NEX_PER_PROC_ETA - 1)
      if(iy1 < 0) iy1 = 0
      iy2=2*(subregions(isubregion,4) - iproc_eta*NEX_PER_PROC_ETA - 1)
-     if(iy2 > 2*(NEX_PER_PROC_XI - 1)) iy2 = 2*(NEX_PER_PROC_ETA - 1)
+     if(iy2 > 2*(NEX_PER_PROC_ETA - 1)) iy2 = 2*(NEX_PER_PROC_ETA - 1)
      diy=2
 
      ir1=2*(subregions(isubregion,5) - 1)