From 4a9902896e481e36403875e39edd345d73028d08 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Wed, 29 Nov 2023 10:09:08 -0700 Subject: [PATCH] IfW: hack to allow extrapolation outside wind box Specifically allows extrapolation on tower, hub, nacelle, tailfin, but not blades --- modules/openfast-library/src/FAST_Subs.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/modules/openfast-library/src/FAST_Subs.f90 b/modules/openfast-library/src/FAST_Subs.f90 index 9129d0555d..1accc9f2b8 100644 --- a/modules/openfast-library/src/FAST_Subs.f90 +++ b/modules/openfast-library/src/FAST_Subs.f90 @@ -124,7 +124,7 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD, INTEGER(IntKi) :: NumBl - + integer :: i, idx CHARACTER(ErrMsgLen) :: ErrMsg2 CHARACTER(*), PARAMETER :: RoutineName = 'FAST_InitializeAll' @@ -580,6 +580,14 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD, Init%InData_IfW%BoxExceedAllowF = .true. Init%InData_IfW%BoxExceedAllowIdx = min(Init%InData_IfW%BoxExceedAllowIdx, AD_BoxExceedPointsIdx(AD%Input(1), AD%OtherSt(STATE_CURR))) endif + + ! Temporary hack! Allow extrapolation of winds on tower + Init%InData_IfW%BoxExceedAllowF = .true. + do i=1,size(u_AD%rotors(1)%BladeMotion) + idx = idx + u_AD%rotors(1)%BladeMotion(i)%NNodes + end do + Init%InData_IfW%BoxExceedAllowIdx = idx + 1 ! first tower node + END IF ! lidar