ED: remove testing file read from ED_IO

If a file of more than 64 lines was read in, then discarded, whatever was on line 65 or later could end up in arrays used by RtHS (gcc 12.3.0, double precision release). This would show up in linearization with case `5MW_Land_Linear_Aero`.
OpenFAST · Jul 11, 2024 · dbdd8c2 · dbdd8c2
1 parent 3a49b0a
commit dbdd8c2
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/modules/elastodyn/src/ElastoDyn_IO.f90 b/modules/elastodyn/src/ElastoDyn_IO.f90
@@ -1738,7 +1738,6 @@ SUBROUTINE ReadBladeFile ( BldFile, BladeKInputFileData, UnEc, ErrStat, ErrMsg )
    REAL(ReKi)                   :: AdjEdSt                                         ! Factor to adjust edge stiffness.
    REAL(ReKi)                   :: AdjFlSt                                         ! Factor to adjust flap stiffness.
 
-   TYPE(FileInfoType)           :: InFileInfo                                      !< The derived type for holding the full input file for parsing
    REAL(ReKi)                   :: TmpRAry(17)                                     ! Temporary variable to read table from file (up to 17 columns)
 
    INTEGER(IntKi)               :: I                                               ! A generic DO index.
@@ -1750,11 +1749,6 @@ SUBROUTINE ReadBladeFile ( BldFile, BladeKInputFileData, UnEc, ErrStat, ErrMsg )
 
    ErrStat = ErrID_None
    ErrMsg = ""
-
-     ! read the input file   
-   call ProcessComFile( './tmp.dat', InFileInfo, ErrStat2, ErrMsg2 )
-call Print_FileInfo_Struct(CU, InFileInfo)
-
 
    UnIn = -1
    CALL GetNewUnit( UnIn, ErrStat2, ErrMsg2 )