From ac7b0879c2dcf5c3a0c5ce69d61741fbf55581c4 Mon Sep 17 00:00:00 2001 From: mcgratta Date: Wed, 30 Oct 2024 16:33:53 -0400 Subject: [PATCH] FDS Source: Length string dimension --- Source/prec.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Source/prec.f90 b/Source/prec.f90 index f4fd165c597..cdfb4318f65 100644 --- a/Source/prec.f90 +++ b/Source/prec.f90 @@ -27,8 +27,8 @@ MODULE PRECISION_PARAMETERS INTEGER, PARAMETER :: CHID_LENGTH=50 !< Maximum length of job 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 :: MESH_STRING_LENGTH=LABEL_LENGTH + 100 !< 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 INTEGER, PARAMETER :: POINTS_ARRAY_DIM=100 !< Dimension of arrays of linear device coordinates