Commit b0bde414 authored by Matthias Redies's avatar Matthias Redies

remove some verbose output

parent 56763674
......@@ -35,7 +35,7 @@ CONTAINS
#else
irank=0
#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
!Read mstat to find out current memory usage
......
......@@ -227,7 +227,7 @@ CONTAINS
jobs%mpi_comm=MPI_UNDEFINED
CALL MPI_COMM_SPLIT(MPI_COMM_WORLD,i,irank,new_comm,ierr)
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
ENDIF
......
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