Commit adae4165 authored by Sebastian Müller's avatar Sebastian Müller 🐈
Browse files

mHM: message about MPI

parent a6b370f1
......@@ -185,6 +185,7 @@ PROGRAM mhm_driver
integer :: ierror
integer(i4) :: nproc
integer(i4) :: rank, oldrank
logical :: compiled_with_mpi = .true.
! Initialize MPI
call MPI_Init(ierror)
......@@ -195,6 +196,8 @@ PROGRAM mhm_driver
call MPI_Comm_rank(comm, rank, ierror)
oldrank = rank
write(*,*) 'MPI!, comm', rank, nproc
#else
logical :: compiled_with_mpi = .false.
#endif
! check for working dir (added argument to the executable)
......@@ -223,6 +226,11 @@ PROGRAM mhm_driver
else
call message('Openmp not used.')
end if
if (compiled_with_mpi) then
call message('MPI used.')
else
call message('MPI not used.')
end if
call date_and_time(values = datetime)
message_text = trim(num2str(datetime(3), '(I2.2)')) // "." // trim(num2str(datetime(2), '(I2.2)')) &
......
Supports Markdown
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