elapsed time added to log

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