[cig-commits] r14123 - seismo/3D/SPECFEM3D_SESAME/trunk/UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2009-02-23 13:37:58 -0800 (Mon, 23 Feb 2009)
New Revision: 14123

Modified:
   seismo/3D/SPECFEM3D_SESAME/trunk/UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide/pre_meshfem3D.f90
Log:
added error check in case of a mesh with too many elements containing the same node (see UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide/constants_pre_meshfem3D.h).

Modified: seismo/3D/SPECFEM3D_SESAME/trunk/UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide/pre_meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide/pre_meshfem3D.f90	2009-02-23 17:21:35 UTC (rev 14122)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/UTILS/external_mesh/pre_meshfem3D_asteroid_subdivide/pre_meshfem3D.f90	2009-02-23 21:37:58 UTC (rev 14123)
@@ -113,6 +113,9 @@
       stop('ERROR : nodes not used.')
     endif
   enddo
+  if (maxval(used_nodes_elmnts(:))>nsize) then
+    stop 'ERROR : increase nsize or modify the mesh.'
+  endif
   
   elmnts(:,:) = elmnts(:,:) - 1