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

IO: Reset iret in read_restart_snapshot() and write_restart_snapshot().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2017-03-09 16:31:16 -03:00
parent 31bf3006b7
commit fe0e43b095
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/io.F90
View File

@ -360,6 +360,10 @@ module io
call start_timer(ios)
#endif /* PROFILE */
! reset the return flag
!
iret = 0
#ifdef HDF5
! read HDF5 restart file and rebuild the meta and data block structures
!
@ -411,6 +415,10 @@ module io
!
!-------------------------------------------------------------------------------
!
! reset the return flag
!
iret = 0
! check if conditions for storing the restart snapshot have been met
!
if (hrest < 5.0d-02 .or. thrs < irest * hrest) return