diff --git a/code/post.f90 b/code/post.f90 index 1b923ab..a88fe2c 100644 --- a/code/post.f90 +++ b/code/post.f90 @@ -279,6 +279,10 @@ REAL :: dt,dummyu INTEGER :: ncyc + REAL*4 :: e, t(2), e0 + + e0 = etime(t) + OPEN(num,FORM='unformatted',STATUS='unknown') READ (num) tnow,nx,ny,nz,tmp1,tmp2 @@ -293,19 +297,14 @@ 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 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 y(:,:,:) = old_scalar(2,:,:,:) 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 u = u + dummyu y = new_scalar(:,:,:,2) @@ -313,6 +312,18 @@ 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