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

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

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-08-09 09:31:52 -03:00
parent 5927fb6536
commit 02a67e86b2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/driver.F90
View File

@ -286,6 +286,14 @@ program amun
! !
call get_parameter_integer("ndat" , ndat) 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 ! set up the MPI geometry
! !
call setup_mpi(div(:), per(:), .false.) call setup_mpi(div(:), per(:), .false.)