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

@@ -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