Skip to content

Commit

Permalink
Corrected call to open_file in open_restart_units
Browse files Browse the repository at this point in the history
  Corrected the arguments in a call to open_file in open_restart_units when the
restart files are decomposed using the IO-layout.  All answers are bitwise
identical, but this fixes an error later on if this unit handle is used to read
from such a set of decomposed restart files.
  • Loading branch information
Hallberg-NOAA committed Apr 23, 2021
1 parent 71edd8c commit 0b80b63
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/SIS_restart.F90
Original file line number Diff line number Diff line change
Expand Up @@ -315,7 +315,8 @@ function open_restart_units(filename, directory, domain, CS, IO_handles, file_pa
if (fexists) then
nf = nf + 1
if (present(IO_handles)) &
call open_file(IO_handles(nf), trim(filepath), READONLY_FILE, MOM_domain=domain)
call open_file(IO_handles(nf), trim(filepath), READONLY_FILE, MOM_domain=domain, &
threading=MULTIPLE, fileset=MULTIPLE)
if (present(global_files)) global_files(nf) = .false.
if (present(file_paths)) file_paths(nf) = filepath
endif
Expand Down

0 comments on commit 0b80b63

Please sign in to comment.