Commit 95fec424 authored by kbk's avatar kbk
Browse files

now works with both serial and parallel compilation

parent 1b200b18
!$Id: getm_error.F90,v 1.1 2003-10-30 16:29:37 kbk Exp $ !$Id: getm_error.F90,v 1.2 2003-11-03 09:10:41 kbk Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -24,22 +24,27 @@ ...@@ -24,22 +24,27 @@
! Original author(s): Karsten Bolding & Hans Burchard ! Original author(s): Karsten Bolding & Hans Burchard
! !
! $Log: getm_error.F90,v $ ! $Log: getm_error.F90,v $
! Revision 1.1 2003-10-30 16:29:37 kbk ! Revision 1.2 2003-11-03 09:10:41 kbk
! added global error handler ! now works with both serial and parallel compilation
! !
! Revision 1.1 2003/10/30 16:29:37 kbk
! added global error handler
! !
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: ierr integer :: ierr
!
!EOP !EOP
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOC !BOC
#ifdef PARALLEL
include "mpif.h" include "mpif.h"
#endif
FATAL "Called from: ",trim(sub) FATAL "Called from: ",trim(sub)
FATAL "Message: ",trim(msg) FATAL "Message: ",trim(msg)
#ifdef PARALLEL
call MPI_Abort(MPI_COMM_WORLD,1,ierr) call MPI_Abort(MPI_COMM_WORLD,1,ierr)
#else
stop "getm_error()"
#endif
return return
end subroutine getm_error end subroutine getm_error
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment