Exit MPI-AMRVAC with an error message
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message |
The error message |
subroutine mpistop(message) use mod_global_parameters #ifndef _CRAYFTN #endif character(len=*), intent(in) :: message !< The error message !> Exit status handed to MPI_ABORT integer :: ierrcode write(*, *) "ERROR for processor", mype, ":" #if defined(_OPENACC) || defined(_OPENMP) write(*, *) message STOP #else write(*, *) trim(message) ! Must be set: a job scheduler or CI run keys off the exit status, and ! an undefined ierrcode returns a junk one. ierrcode = 1 call MPI_ABORT(icomm, ierrcode, ierrmpi) #endif end subroutine mpistop