<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>