From 63c6fbd6ea653c4b27b1c4ae5538adf8d541bda1 Mon Sep 17 00:00:00 2001 From: Marshall Ward Date: Sun, 18 Apr 2021 21:18:33 -0400 Subject: [PATCH] Update SIS_restart.F90 Fix the format string of the write statement. --- src/SIS_restart.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/SIS_restart.F90 b/src/SIS_restart.F90 index 1986e05b..b1c6cf63 100644 --- a/src/SIS_restart.F90 +++ b/src/SIS_restart.F90 @@ -277,7 +277,7 @@ function open_restart_units(filename, directory, G, CS, IO_handles, file_paths, endif enddo ! while (start_char < len_trim(filename)) loop - write(count_msg, '(I)') nf + write(count_msg, '(I0)') nf call SIS_mesg("SIS2: open_restart_units found "//trim(count_msg)//" files using "//& trim(filename)//" in directory "//trim(directory))