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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-03-26 09:15:19 -0700 (Wed, 26 Mar 2008)
New Revision: 11591

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
Log:
added a temporary check to test if NSPEC is negative because at very high resolution there is a bug somewhere (maybe in auto_ner)


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-03-26 16:02:54 UTC (rev 11590)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-03-26 16:15:19 UTC (rev 11591)
@@ -2261,6 +2261,10 @@
          (NEX_PER_PROC_ETA / ratio_divide_central_cube) * &
          (NEX_XI / ratio_divide_central_cube)
 
+!! DK DK temporary check because at very high resolution there is a bug somewhere
+!! DK DK (maybe in auto_ner)
+  if(minval(NSPEC) < 0) stop 'negative NSPEC, there is a bug somewhere, maybe in auto_ner'
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!
 !!!!!!  calculation of number of points (NGLOB) below