Skip to content

Commit ed7d684

Browse files
authored
Merge pull request #13660 from mcgratta/master
FDS Source: Length string dimension
2 parents a4243d6 + ac7b087 commit ed7d684

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

Source/prec.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -27,8 +27,8 @@ MODULE PRECISION_PARAMETERS
2727
INTEGER, PARAMETER :: CHID_LENGTH=50 !< Maximum length of job ID
2828
INTEGER, PARAMETER :: FILE_LENGTH=200 !< Maximum length of filenames ID
2929
INTEGER, PARAMETER :: NAMELIST_LENGTH=300 !< Maximum length of NAMELIST line in input file (see SEARCH_INPUT_FILE)
30-
INTEGER, PARAMETER :: MESH_STRING_LENGTH=LABEL_LENGTH + 80 !< Length for storage of strings
31-
INTEGER, PARAMETER :: FN_LENGTH=FILE_LENGTH+CHID_LENGTH !< Length for output filename strings (includes output directory)
30+
INTEGER, PARAMETER :: MESH_STRING_LENGTH=LABEL_LENGTH + 100 !< Length for storage of strings
31+
INTEGER, PARAMETER :: FN_LENGTH=FILE_LENGTH+CHID_LENGTH !< Length for output filename strings (includes output directory)
3232
INTEGER, PARAMETER :: N_OUTPUT_QUANTITIES=600 !< Dimension of array that holds names of output quantities
3333
INTEGER, PARAMETER :: POINTS_ARRAY_DIM=100 !< Dimension of arrays of linear device coordinates
3434

0 commit comments

Comments
 (0)