gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MPITOOLS: Stop compiler complaining if MPI is off.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-03 10:54:17 -03:00
parent 4a9a8d71a6
commit afe0d3fe83
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/mpitools.F90
View File

@ -60,11 +60,11 @@ module mpitools
module procedure exchange_arrays_diff module procedure exchange_arrays_diff
module procedure exchange_arrays_same module procedure exchange_arrays_same
end interface end interface
#endif /* MPI */
! timer indices ! timer indices
! !
integer, save :: imi, imc integer, save :: imi, imc
#endif /* MPI */
! MPI global variables ! MPI global variables
! !
@ -131,9 +131,9 @@ module mpitools
integer :: ierror integer :: ierror
integer(kind=4), dimension(:), allocatable :: procs integer(kind=4), dimension(:), allocatable :: procs
#endif /* MPI */
character(len=*), parameter :: loc = 'MPITOOLS::initialize_mpitools()' character(len=*), parameter :: loc = 'MPITOOLS::initialize_mpitools()'
#endif /* MPI */
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -275,9 +275,9 @@ module mpitools
#ifdef MPI #ifdef MPI
integer :: ierror integer :: ierror
#endif /* MPI */
character(len=*), parameter :: loc = 'MPITOOLS::finalize_mpitools()' character(len=*), parameter :: loc = 'MPITOOLS::finalize_mpitools()'
#endif /* MPI */
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -332,7 +332,9 @@ module mpitools
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
#ifdef MPI
call start_timer(imc) call start_timer(imc)
#endif /* MPI */
check_status = flag check_status = flag
@ -342,9 +344,9 @@ module mpitools
if (ierror /= MPI_SUCCESS) & if (ierror /= MPI_SUCCESS) &
call print_message(loc, "MPI_Allreduce of logical buffer failed!") call print_message(loc, "MPI_Allreduce of logical buffer failed!")
#endif /* MPI */
call stop_timer(imc) call stop_timer(imc)
#endif /* MPI */
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !