FDS Source: increase LINE length in SEARCH_INPUT_FILE

Author: rmcdermo

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.

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