From dbdd8c240fc2833a00a0b96babed8cb6a13a7498 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Thu, 11 Jul 2024 15:02:00 -0600 Subject: [PATCH] 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`. --- modules/elastodyn/src/ElastoDyn_IO.f90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/modules/elastodyn/src/ElastoDyn_IO.f90 b/modules/elastodyn/src/ElastoDyn_IO.f90 index 52b4ab277..7ef40ac08 100644 --- 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 )