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

IO: Return iret value from write_restart_snapshot_h5().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-09 12:42:33 -02:00
parent 16dcd443f3
commit 15d98770d0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/io.F90
View File

@ -824,6 +824,7 @@ module io
if (err < 0) then
call print_error("io::write_restart_snapshot_h5" &
, "Cannot initialize the HDF5 Fortran interface!")
iret = 200
return
end if
@ -841,6 +842,7 @@ module io
call print_error("io::write_restart_snapshot_h5" &
, "Cannot create file: " // trim(fl))
call h5close_f(err)
iret = 201
return
end if
@ -866,6 +868,7 @@ module io
call print_error("io::write_restart_snapshot_h5" &
, "Cannot close file: " // trim(fl))
call h5close_f(err)
iret = 203
return
end if
@ -878,6 +881,7 @@ module io
if (err > 0) then
call print_error("io::write_restart_snapshot_h5" &
, "Cannot close the HDF5 Fortran interface!")
iret = 204
return
end if