gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2014-08-04 11:11:19 -03:00
commit b08deac338
2 changed files with 12 additions and 12 deletions

16
src/driver.F90

@ -559,6 +559,14 @@ program amun
step = step + 1
nsteps = nsteps + 1
! get current time in seconds
!
tm_curr = get_timer_total()
! compute elapsed time
!
thrs = tm_curr / 3.6d+03
! store mesh statistics
!
call store_mesh_stats(step, time)
@ -575,14 +583,6 @@ program amun
!
call write_snapshot()
! get current time in seconds
!
tm_curr = get_timer_total()
! compute elapsed time
!
thrs = tm_curr / 3.6d+03
! check if the time exceeds execution time limit
!
if (thrs > trun) iterm = 100

8
src/io.F90

@ -117,9 +117,9 @@ module io
integer(kind=4) , save :: irest = 1
integer(kind=4) , save :: isnap = 0
integer(kind=4) , save :: ishift = 0
real(kind=8) , save :: hrest = 6.0e+00
real(kind=8) , save :: hsnap = 1.0e+00
real(kind=8) , save :: tsnap = 0.0e+00
real(kind=8) , save :: hrest = 6.0d+00
real(kind=8) , save :: hsnap = 1.0d+00
real(kind=8) , save :: tsnap = 0.0d+00
! flags to determine the way of data writing
!
@ -382,7 +382,7 @@ module io
!
! check if conditions for storing the restart snapshot have been met
!
if (hrest < 5.0e-02 .or. thrs < irest * hrest) return
if (hrest < 5.0d-02 .or. thrs < irest * hrest) return
#ifdef PROFILE
! start accounting time for the data writing