ensure the path is relative before operating on it

OpenFAST · Aug 8, 2024 · 7b4d931 · 7b4d931
1 parent c2df793
commit 7b4d931
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/aerodyn/src/AeroDyn_IO.f90 b/modules/aerodyn/src/AeroDyn_IO.f90
@@ -1004,7 +1004,7 @@ SUBROUTINE ParsePrimaryFileInfo( PriPath, InitInp, InputFile, RootName, NumBlade
  call ParseVar(FileInfo_In, CurLine, "TFinAero", InputFileData%rotors(iR)%TFinAero, ErrStat2, ErrMsg2, UnEc); 
  if (ErrStat2==ErrID_None) then
  call ParseVar(FileInfo_In, CurLine, "TFinFile", InputFileData%rotors(iR)%TFinFile, ErrStat2, ErrMsg2, UnEc); if (Failed()) return
- InputFileData%rotors(iR)%TFinFile = trim(PriPath) // trim(InputFileData%rotors(iR)%TFinFile)
+ IF ( PathIsRelative( InputFileData%rotors(iR)%TFinFile ) ) InputFileData%rotors(iR)%TFinFile = trim(PriPath) // trim(InputFileData%rotors(iR)%TFinFile)
  else
  call LegacyWarning('Tail Fin section (TFinAero, TFinFile) is missing from input file.')
  CurLine = CurLine - 1