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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-08-06 17:09:55 -0700 (Wed, 06 Aug 2008)
New Revision: 12570

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
Log:
fixed a minor bug in a test to detect unsupported small meshes with only one slice per chunk


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-08-07 00:09:24 UTC (rev 12569)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-08-07 00:09:55 UTC (rev 12570)
@@ -209,7 +209,7 @@
 
 ! support for only one slice per chunk has been discontinued when there is more than one chunk
 ! because it induces topological problems, and we are not interested in using small meshes
-  if(NCHUNKS == 1 .and. (NPROC_XI == 1 .or. NPROC_ETA == 1)) stop 'support for only one slice per chunk has been discontinued'
+  if(NCHUNKS > 1 .and. (NPROC_XI == 1 .or. NPROC_ETA == 1)) stop 'support for only one slice per chunk has been discontinued'
 
 ! define the velocity model
   call read_value_string(MODEL, 'model.name')