diff --git a/src/shared/diag_manager/diag_table.F90 b/src/shared/diag_manager/diag_table.F90 index 1cb063bef..650ac020e 100644 --- a/src/shared/diag_manager/diag_table.F90 +++ b/src/shared/diag_manager/diag_table.F90 @@ -357,7 +357,7 @@ SUBROUTINE parse_diag_table(diag_subset, istat, err_msg) INTEGER, INTENT(out), OPTIONAL, TARGET :: istat CHARACTER(len=*), INTENT(out), OPTIONAL :: err_msg - INTEGER, PARAMETER :: DT_LINE_LENGTH = 256 + INTEGER, PARAMETER :: DT_LINE_LENGTH = 512 INTEGER :: stdlog_unit !< Fortran file unit number for the stdlog file. INTEGER :: record_len !< String length of the diag_table line read in. diff --git a/src/shared/mpp/mpp.F90 b/src/shared/mpp/mpp.F90 index 0c808bac3..3f69032b1 100644 --- a/src/shared/mpp/mpp.F90 +++ b/src/shared/mpp/mpp.F90 @@ -1182,7 +1182,7 @@ module mpp_mod ! variables needed for subroutine read_input_nml (include/mpp_util.inc) ! ! parameter defining length of character variables - integer, parameter :: INPUT_STR_LENGTH = 256 + integer, parameter :: INPUT_STR_LENGTH = 512 ! public variable needed for reading input.nml from an internal file character(len=INPUT_STR_LENGTH), dimension(:), allocatable, public :: input_nml_file !***********************************************************************