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

OpenMP: write message about usage of OpenMP

parent cf9b71c6
......@@ -179,6 +179,8 @@ PROGRAM mhm_driver
logical :: ReadLatLon
logical :: compiled_with_openmp = .false.
#ifdef MPI
integer :: ierror
integer(i4) :: nproc
......@@ -215,6 +217,13 @@ PROGRAM mhm_driver
call message(separator)
call message()
!$ compiled_with_openmp = .true.
if (compiled_with_openmp) then
call message('OpenMP used.')
else
call message('Openmp not used.')
end if
call date_and_time(values = datetime)
message_text = trim(num2str(datetime(3), '(I2.2)')) // "." // trim(num2str(datetime(2), '(I2.2)')) &
// "." // trim(num2str(datetime(1), '(I4.4)')) // " " // trim(num2str(datetime(5), '(I2.2)')) &
......
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