research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

print process id to log

Browse source
This commit is contained in:
ignis 2019-05-10 02:22:27 +09:00
parent 7090047e14
commit f7a88aa72a
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
code/m_parameters.f90
View file

@ -143,8 +143,6 @@ subroutine read_intro
ENDDO distloop
write(*,*) file_dist
first_file = startnum

3
code/post.f90
View file

@ -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'