Commit 41e8b926 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix: Update usage_data.F90

parent 43f6c58a
......@@ -66,8 +66,8 @@ CONTAINS
dt(2) * 31_8 * 24 * 60 * 60 * 1000 + &
dt(3) * 24_8 * 60 * 60 * 1000 + dt(5) * 60 * 60 * 1000 + &
dt(6) * 60 * 1000 + dt(7) * 1000 + dt(8)
pid = GETPID()
r=r*1000+pid
!pid = GETPID()
!r=r*1000+pid
!First write a json file
OPEN(unit=961,file="usage.json",status='replace')
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment