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

@@ -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 k=1,size(AD%Input(1)%rotors(1)%BladeMotion)
+            i = i + AD%Input(1)%rotors(1)%BladeMotion(k)%NNodes
+         end do
+         Init%InData_IfW%BoxExceedAllowIdx = i + 1  ! first tower node
+
       END IF
 
       ! lidar