Merge pull request #13178 from rmcdermo/master

FDS Source: increase LINE length in SEARCH_INPUT_FILE
firemodels · Jul 15, 2024 · fad4075 · fad4075
2 parents c3a2caa + 1567c80
commit fad4075
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -285,7 +285,7 @@ SUBROUTINE SEARCH_INPUT_FILE(LU,TEXT,FOUND)
 INTEGER, INTENT(IN) :: LU
 LOGICAL, INTENT(OUT) :: FOUND
 CHARACTER(*), INTENT(IN) :: TEXT
-CHARACTER(180) :: LINE
+CHARACTER(NAMELIST_LENGTH) :: LINE
 INTEGER :: IND
 
 FOUND = .FALSE.

diff --git a/Source/prec.f90 b/Source/prec.f90
@@ -25,7 +25,8 @@ MODULE PRECISION_PARAMETERS
 INTEGER, PARAMETER :: MESSAGE_LENGTH=200             !< Maximum length of error and warning labels
 INTEGER, PARAMETER :: FORMULA_LENGTH=255             !< Maximum length of chemical formulae
 INTEGER, PARAMETER :: CHID_LENGTH=50                 !< Maximum length of job ID
-INTEGER, PARAMETER :: FILE_LENGTH=200                      !< Maximum length of filenames ID
+INTEGER, PARAMETER :: FILE_LENGTH=200                !< Maximum length of filenames ID
+INTEGER, PARAMETER :: NAMELIST_LENGTH=300            !< Maximum length of NAMELIST line in input file (see SEARCH_INPUT_FILE)
 INTEGER, PARAMETER :: MESH_STRING_LENGTH=LABEL_LENGTH + 80 !< Length for storage of strings
 INTEGER, PARAMETER :: FN_LENGTH=FILE_LENGTH+CHID_LENGTH    !< Length for output filename strings (includes output directory)
 INTEGER, PARAMETER :: N_OUTPUT_QUANTITIES=600        !< Dimension of array that holds names of output quantities