<p><b>duda</b> 2010-04-28 11:27:26 -0600 (Wed, 28 Apr 2010)</p><p>Add global abort routine dmpar_global_abort(mesg), whose only argument is a<br>
message to be printed to the standard error stream by the calling task.<br>
Since no communicator argument is needed, this routine is callable from any<br>
code that uses the dmpar module.<br>
<br>
M    src/framework/module_dmpar.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/module_dmpar.F
===================================================================
--- trunk/mpas/src/framework/module_dmpar.F        2010-04-28 06:12:31 UTC (rev 218)
+++ trunk/mpas/src/framework/module_dmpar.F        2010-04-28 17:27:26 UTC (rev 219)
@@ -110,6 +110,25 @@
    end subroutine dmpar_abort
 
 
+   subroutine dmpar_global_abort(mesg)
+
+      implicit none
+
+      character (len=*), intent(in) :: mesg
+
+#ifdef _MPI
+      integer :: mpi_ierr, mpi_errcode
+
+      write(0,*) trim(mesg)
+      call MPI_Abort(MPI_COMM_WORLD, mpi_errcode, mpi_ierr)
+#endif
+
+      write(0,*) trim(mesg)
+      stop
+
+   end subroutine dmpar_global_abort
+
+
    subroutine dmpar_bcast_int(dminfo, i)
 
       implicit none

</font>
</pre>