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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-01 18:25:48 -0700 (Thu, 01 May 2008)
New Revision: 11892

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
Log:
fixed bug when crustal mesh was suppressed


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-05-02 00:17:00 UTC (rev 11891)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-05-02 01:25:48 UTC (rev 11892)
@@ -1329,8 +1329,8 @@
       r_top(13) = R_EARTH - DEPTH_THIRD_DOUBLING_REAL
       r_bottom(13) = RICB
 
-      r_top(15) = RICB
-      r_bottom(15) = R_CENTRAL_CUBE
+      r_top(14) = RICB
+      r_bottom(14) = R_CENTRAL_CUBE
 
   ! new definition of rmins & rmaxs
       rmaxs(1) = ONE