diff --git a/src/global.F90 b/src/global.F90 index e904f64a29..dc3d01092b 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -129,6 +129,7 @@ module global logical :: master ! master process? logical :: mpi_enabled ! is MPI in use and initialized? integer :: mpi_err ! MPI error code + integer :: MPI_BANK ! MPI datatype for fission bank ! ============================================================================ ! TIMING VARIABLES diff --git a/src/mpi_routines.F90 b/src/mpi_routines.F90 index 38029a36bd..8d6e07a076 100644 --- a/src/mpi_routines.F90 +++ b/src/mpi_routines.F90 @@ -15,9 +15,6 @@ module mpi_routines implicit none - integer :: MPI_BANK ! MPI datatype for fission bank - integer(8) :: bank_index ! Fission bank site unique identifier - contains !===============================================================================