From e0cb005c6dd50ddc0b912df9bd5ee5d19a1c8219 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Mon, 18 Mar 2024 15:39:58 -0600 Subject: [PATCH] TurbSim: increase filename to 1024 characters On some systems, the filepath may take the filename beyond 200 characters. --- modules/turbsim/src/CohStructures.f90 | 2 +- modules/turbsim/src/Profiles.f90 | 2 +- modules/turbsim/src/TS_FileIO.f90 | 2 +- modules/turbsim/src/TurbSim.f90 | 2 +- modules/turbsim/src/TurbSim_Types.f90 | 8 ++++---- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/modules/turbsim/src/CohStructures.f90 b/modules/turbsim/src/CohStructures.f90 index 9c1ad52141..a20ad42f18 100644 --- a/modules/turbsim/src/CohStructures.f90 +++ b/modules/turbsim/src/CohStructures.f90 @@ -766,7 +766,7 @@ SUBROUTINE CohStr_WriteEvents( RootName, p_CohStr, e_CohStr, y_CohStr, TScale, U CHARACTER(MaxMsgLen) :: ErrMsg2 ! Message describing error (local) - CHARACTER(200) :: InpFile ! Name of the input file + CHARACTER(1024) :: InpFile ! Name of the input file TYPE (Event), POINTER :: PtrCurr => NULL() ! Pointer to the current event TYPE (Event), POINTER :: PtrPrev => NULL() ! Pointer to the previous event (for deallocation purposes) diff --git a/modules/turbsim/src/Profiles.f90 b/modules/turbsim/src/Profiles.f90 index 7135b92856..36ca07fde0 100644 --- a/modules/turbsim/src/Profiles.f90 +++ b/modules/turbsim/src/Profiles.f90 @@ -122,7 +122,7 @@ SUBROUTINE GetChebCoefs(p, UJetMax_IsKnown, ErrStat, ErrMsg) ! valid only for jet WindProfileType -IMPLICIT NONE + IMPLICIT NONE TYPE(TurbSim_ParameterType),INTENT(INOUT) :: p ! TurbSim parameters LOGICAL, INTENT(IN) :: UJetMax_IsKnown diff --git a/modules/turbsim/src/TS_FileIO.f90 b/modules/turbsim/src/TS_FileIO.f90 index 70b5f91a76..d4a5814137 100644 --- a/modules/turbsim/src/TS_FileIO.f90 +++ b/modules/turbsim/src/TS_FileIO.f90 @@ -72,7 +72,7 @@ SUBROUTINE ReadInputFile(InFile, p, OtherSt_RandNum, ErrStat, ErrMsg) LOGICAL :: UseDefault ! Whether or not to use a default value LOGICAL :: IsUnusedParameter ! Whether or not this variable will be ignored - CHARACTER(200) :: Line ! An input line + CHARACTER(1024) :: Line ! An input line CHARACTER(1) :: Line1 ! The first character of an input line INTEGER(IntKi) :: ErrStat2 ! Temporary Error status diff --git a/modules/turbsim/src/TurbSim.f90 b/modules/turbsim/src/TurbSim.f90 index 5aa65491aa..768a43b859 100644 --- a/modules/turbsim/src/TurbSim.f90 +++ b/modules/turbsim/src/TurbSim.f90 @@ -82,7 +82,7 @@ PROGRAM TurbSim INTEGER(IntKi) :: ErrStat ! allocation status CHARACTER(MaxMsgLen) :: ErrMsg ! error message -CHARACTER(200) :: InFile ! Name of the TurbSim input file. +CHARACTER(1024) :: InFile ! Name of the TurbSim input file. CHARACTER(20) :: FlagArg ! flag argument from command line diff --git a/modules/turbsim/src/TurbSim_Types.f90 b/modules/turbsim/src/TurbSim_Types.f90 index c4a6071032..07a7773018 100644 --- a/modules/turbsim/src/TurbSim_Types.f90 +++ b/modules/turbsim/src/TurbSim_Types.f90 @@ -90,8 +90,8 @@ MODULE TurbSim_Types REAL(ReKi) :: DistScl ! Disturbance scale for AeroDyn coherent turbulence events - CHARACTER(200) :: CTEventPath ! String used to store the name of the coherent event definition file - CHARACTER(200) :: CTEventFile ! String used to store the name of the coherent event definition file + CHARACTER(1024) :: CTEventPath ! String used to store the name of the coherent event definition file + CHARACTER(1024) :: CTEventFile ! String used to store the name of the coherent event definition file CHARACTER( 3) :: CTExt ! String used to determine the type of coherent structures ("dns" or "les") END TYPE CohStr_ParameterType @@ -276,8 +276,8 @@ MODULE TurbSim_Types INTEGER :: US = -1 ! I/O unit for summary file. - CHARACTER(200) :: DescStr ! String used to describe the run (and the first line of the summary file) - CHARACTER(197) :: RootName ! Root name of the I/O files. + CHARACTER(1024) :: DescStr ! String used to describe the run (and the first line of the summary file) + CHARACTER(1024) :: RootName ! Root name of the I/O files. TYPE(RandNum_ParameterType) :: RNG ! parameters for random numbers p_RandNum TYPE(Grid_ParameterType) :: grid ! parameters for TurbSim (specify grid/frequency size) TYPE(Meteorology_ParameterType) :: met ! parameters for TurbSim