diff --git a/src/core/MOM.F90 b/src/core/MOM.F90 index ca0dfe0145..19ba7dd21b 100644 --- a/src/core/MOM.F90 +++ b/src/core/MOM.F90 @@ -362,7 +362,7 @@ module MOM ! Variables needed to reach between start and finish phases of initialization logical :: write_IC !< If true, then the initial conditions will be written to file - character(len=120) :: IC_file !< A file into which the initial conditions are + character(len=512) :: IC_file !< A file into which the initial conditions are !! written in a new run if SAVE_INITIAL_CONDS is true. logical :: calc_rho_for_sea_lev !< If true, calculate rho to convert pressure to sea level diff --git a/src/framework/MOM_restart.F90 b/src/framework/MOM_restart.F90 index 47731ab1c0..f11dc5de1d 100644 --- a/src/framework/MOM_restart.F90 +++ b/src/framework/MOM_restart.F90 @@ -1590,7 +1590,7 @@ subroutine save_restart(directory, time, G, CS, time_stamped, filename, GV, num_ type(MOM_field) :: fields(CS%max_fields) ! Opaque types containing metadata describing ! each variable that will be written. character(len=512) :: restartpath ! The restart file path (dir/file). - character(len=256) :: restartname ! The restart file name (no dir). + character(len=512) :: restartname ! The restart file name (no dir). character(len=8) :: suffix ! A suffix (like _2) that is appended ! to the name of files after the first. integer(kind=int64) :: var_sz, size_in_file ! The size in bytes of each variable