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

elapsed time added to log

Browse source
This commit is contained in:
ignis 2020-10-16 12:59:24 +09:00
parent 439fdce48f
commit 150c2a5cfd
1 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
code/post.f90
View file

@ -279,6 +279,10 @@
REAL :: dt,dummyu REAL :: dt,dummyu
INTEGER :: ncyc INTEGER :: ncyc
REAL*4 :: e, t(2), e0
e0 = etime(t)
OPEN(num,FORM='unformatted',STATUS='unknown') OPEN(num,FORM='unformatted',STATUS='unknown')
READ (num) tnow,nx,ny,nz,tmp1,tmp2 READ (num) tnow,nx,ny,nz,tmp1,tmp2
@ -293,19 +297,14 @@
READ (num) tmpr(1:2) READ (num) tmpr(1:2)
READ (num) tmpr(1:2) READ (num) tmpr(1:2)
WRITE(*,'(i1,a2,i5,a3,i5,a2,a30,f8.3,a2,i7,a2,i5,a10,i3,a10,i5,a7)') &
ipass, '( ', (num-startnum+1), ' / ', (endnum-startnum+1), ' )', &
' time / NCYC / fullsavenum = ', tnow, ' /', ncyc, ' /', num, &
'process ', myid, ' processed ', nprogress, ' files'
num_=num num_=num
IF(num.le.shiftnum) THEN IF(num.le.shiftnum) THEN
WRITE(*,*) ' with an old fort data from Nueman-0X' ! WRITE(*,*) ' with an old fort data from Nueman-0X'
READ (num) u,v,w,old_scalar READ (num) u,v,w,old_scalar
y(:,:,:) = old_scalar(2,:,:,:) y(:,:,:) = old_scalar(2,:,:,:)
ELSE ELSE
WRITE(*,*) ' with a new fort data from Comb-Cluster' ! WRITE(*,*) ' with a new fort data from Comb-Cluster'
READ (num) u,v,w,new_scalar READ (num) u,v,w,new_scalar
u = u + dummyu u = u + dummyu
y = new_scalar(:,:,:,2) y = new_scalar(:,:,:,2)
@ -313,6 +312,18 @@
CLOSE (num) CLOSE (num)
e = etime(t)
WRITE(*,'(i1,a,f8.3,a,i7,a,i5,a,f8.3,a,a,i3,a,i5,a)') &
ipass, &
' time/NCYC/savenum = ', tnow, ' /', ncyc, ' /', num, &
' took ', e-e0, " sec ", &
' || process ', myid, ' processed ', nprogress, ' files'
WRITE(*,*) "Elapsed: ", e, ", User: ", t(1), ", System: ", t(2)
END SUBROUTINE READ_FILE END SUBROUTINE READ_FILE