TurbSim: increase filename to 1024 characters

On some systems, the filepath may take the filename beyond 200 characters.
OpenFAST · Mar 18, 2024 · e0cb005 · e0cb005
1 parent 143b837
commit e0cb005
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 8 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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