DRIVER: Print information about the number of MPI processes used.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
2014-08-09 09:31:52 -03:00 · 2014-08-09 09:31:52 -03:00 · 02a67e86b2
commit 02a67e86b2
parent 5927fb6536
1 changed files with 8 additions and 0 deletions
--- a/src/driver.F90
+++ b/src/driver.F90
@ -286,6 +286,14 @@ program amun
 !
  call get_parameter_integer("ndat" , ndat)

+! initialize MPI module and print info
+!
+  if (master) then
+    write (*,*)
+    write (*,"(1x,a)"        ) "Parallelization:"
+    write (*,"(4x,a,1x,i6 )" ) "MPI processes          =", nprocs
+  end if
+
 ! set up the MPI geometry
 !
  call setup_mpi(div(:), per(:), .false.)