Update SIS_restart.F90

Fix the format string of the write statement.
NOAA-GFDL · Apr 19, 2021 · 63c6fbd · 63c6fbd
1 parent 65462f5
commit 63c6fbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))