Commit b0bde414 authored by Matthias Redies's avatar Matthias Redies

remove some verbose output

parent 56763674
...@@ -35,7 +35,7 @@ CONTAINS ...@@ -35,7 +35,7 @@ CONTAINS
#else #else
irank=0 irank=0
#endif #endif
WRITE(io,"(a,i0,a,a)") "Rank:",irank," used ",TRIM(memory_usage_string(maxmem)) if(irank == 0) WRITE(io,"(a,i0,a,a)") "Rank:",irank," used ",TRIM(memory_usage_string(maxmem))
END SUBROUTINE print_memory_info END SUBROUTINE print_memory_info
!Read mstat to find out current memory usage !Read mstat to find out current memory usage
...@@ -227,7 +227,7 @@ CONTAINS ...@@ -227,7 +227,7 @@ CONTAINS
jobs%mpi_comm=MPI_UNDEFINED jobs%mpi_comm=MPI_UNDEFINED
CALL MPI_COMM_SPLIT(MPI_COMM_WORLD,i,irank,new_comm,ierr) CALL MPI_COMM_SPLIT(MPI_COMM_WORLD,i,irank,new_comm,ierr)
IF (i.LE.size(jobs)) THEN IF (i.LE.size(jobs)) THEN
PRINT* ,"PE:",irank," works on job ",i," in ",jobs(i)%directory if(size(jobs) > 1) PRINT* ,"PE:",irank," works on job ",i," in ",jobs(i)%directory
jobs(i)%mpi_comm=new_comm jobs(i)%mpi_comm=new_comm
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