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

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-03-12 14:09:07 -0700 (Wed, 12 Mar 2008)
New Revision: 11436

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90
Log:
A call to exit_MPI in create_central_cube_buffers.f90 had only the error message argument and no myrank argument.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90	2008-03-12 18:59:20 UTC (rev 11435)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90	2008-03-12 21:09:07 UTC (rev 11436)
@@ -289,7 +289,7 @@
         enddo
       endif
     enddo
-    if (ipoin /= npoin2D_cube_from_slices) call exit_MPI("wrong number of points found for bottom CC AB or !AB")
+    if (ipoin /= npoin2D_cube_from_slices) call exit_MPI(myrank,'wrong number of points found for bottom CC AB or !AB')
 
     sender = sender_from_slices_to_cube(nb_msgs_theor_in_cube)