From f7a88aa72a4990f60e12f905f79b585f121aba7a Mon Sep 17 00:00:00 2001 From: ignis Date: Fri, 10 May 2019 02:22:27 +0900 Subject: [PATCH] print process id to log --- code/m_parameters.f90 | 2 -- code/post.f90 | 3 ++- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/code/m_parameters.f90 b/code/m_parameters.f90 index 3e60021..85d1cf4 100644 --- a/code/m_parameters.f90 +++ b/code/m_parameters.f90 @@ -143,8 +143,6 @@ subroutine read_intro ENDDO distloop - write(*,*) file_dist - first_file = startnum diff --git a/code/post.f90 b/code/post.f90 index 13bd2d9..395e5a8 100644 --- a/code/post.f90 +++ b/code/post.f90 @@ -106,6 +106,7 @@ WRITE(*,'(a40,i5,a11,i5,a1)') ' Postprocess will be done from "FORT.',startnum,'" to "FORT.',endnum,'"' END SUBROUTINE PRINT_BANNER + SUBROUTINE READ_FILE(num) INTEGER, INTENT(IN) :: num REAL, DIMENSION(2) :: tmpr @@ -128,7 +129,7 @@ READ (num) tmpr(1:2) READ (num) tmpr(1:2) - WRITE(*,'(a40,f8.3,a2,i7,a2,i5,a4,i5,a3,i5)') ' Current time / NCYC / fullsavenum = ',tnow,& + WRITE(*,'(a4,i3,a40,f8.3,a2,i7,a2,i5,a4,i5,a3,i5)') ' p ', myid, ': time / NCYC / fullsavenum = ',tnow,& ' /',ncyc,' /',num,' || ',(num-startnum+1),' / ',(endnum-startnum+1) WRITE(*,*) ' Reading current data file and processing'