Skip to content
Snippets Groups Projects
Commit bd7c9676 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

added output of the parallel setup in terminal

parent ccd109df
Branches
Tags
No related merge requests found
......@@ -26,14 +26,33 @@ subroutine auxval
CALL memory ! Allocate memory for global arrays
!! Display parallel settings
DO i_ = 0,num_procs-1
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
IF (my_id .EQ. i_) THEN
WRITE (*,'(I2,A9,I3,A8,I3,A8,I3,A8,I3,A15,I6)') &
i_,': ikrs = ', ikrs, ' ikre = ', ikre, 'ikzs = ', ikzs, ' ikze = ', ikze
WRITE (*,'(A14,I4,A10,I4,A15,I6)') &
' local_nkr = ',local_nkr,' offset = ',local_nkr_offset,' alloc_local = ', alloc_local_1+alloc_local_2
IF (my_id .EQ. 0) WRITE(*,*) ''
IF (my_id .EQ. 0) WRITE(*,*) '--------- Parallel environement ----------'
IF (my_id .EQ. 0) WRITE(*,'(A9,I3,A10,I3,A10,I3)') 'n_procs= ', num_procs, ', num_procs_p = ', num_procs_p, ', num_procs_kr = ', num_procs_kr
IF (my_id .EQ. 0) WRITE(*,*) ''
WRITE(*,'(A9,I3,A10,I3,A10,I3)')&
'my_id = ', my_id, ', rank_p = ', rank_p, ', rank_r = ', rank_r
WRITE(*,'(A22,I3,A10,I3)')&
' ips_e = ', ips_e, ', ikrs = ', ikrs
WRITE(*,'(A22,I3,A10,I3)')&
' ipe_e = ', ipe_e, ', ikre = ', ikre
WRITE(*,'(A22,I3,A10,I3)')&
' ips_i = ', ips_i, ', ikzs = ', ikzs
WRITE(*,'(A22,I3,A10,I3)')&
' ipe_i = ', ipe_i, ', ikze = ', ikze
! WRITE(*,'(A9,I3,A10,I3,A10,I3,A10,I3)')&
! ' ips_e = ',ips_e,', ipe_e = ',ipe_e,', ips_i = ',ips_i,', ipe_i = ',ipe_i
! WRITE (*,'(A9,I3,A10,I3,A10,I3,A10,I3,A10,I3)') &
! ' ikrs = ', ikrs, ', ikre = ', ikre, ', ikzs = ', ikzs, ', ikze = ', ikze
IF (my_id .NE. num_procs-1) WRITE (*,*) ''
IF (my_id .EQ. num_procs-1) WRITE(*,*) '------------------------------------------'
ENDIF
ENDDO
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
END SUBROUTINE auxval
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment