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

log prints wall clock time

Browse source
This commit is contained in:
Yeongdo Park 2021-07-05 21:43:45 +09:00
parent 3f2034f0db
commit 940d1d17b7
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
code/post.f90
View file

@ -279,6 +279,9 @@
REAL :: dt,dummyu
INTEGER :: ncyc
integer(8) :: ctime_i
character(len=30) :: date
REAL*4 :: e, t(2)
REAL*4 :: e0, t0(2)
REAL*4 :: e1, t1(2)
@ -316,10 +319,12 @@
e = etime(t)
WRITE(*,'(a,i2,a,i1,a,i4,a,i4,a,i4,a,f8.2,a,f8.2,a,f8.2)') &
"PID", myid, "|PASS", ipass, "|fort.", num, &
"|", nprogress, "/", endnum-startnum+1, &
"|E:", e, "|U:", t(1), "|S:", t(2)
ctime_i = time8()
call ctime(ctime_i,date)
WRITE(*,'(a,a,i2,a,i1,a,i4,a,i4,a,i4)') &
date, "PID", myid, "|PASS", ipass, "|fort.", num, &
"|", nprogress, "/", endnum-startnum+1