Skip to content

Commit

Permalink
Fix error in BoxExceedAllowIdx in glue code
Browse files Browse the repository at this point in the history
IfW defaults this to -1, so if OLAF is used it would simply pass -1 for the index rather than the correct location from the AD_BoxExceedPointsIdx routine.
  • Loading branch information
andrew-platt committed Nov 22, 2024
1 parent 901e3b3 commit 5bbddd9
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion modules/openfast-library/src/FAST_Subs.f90
Original file line number Diff line number Diff line change
Expand Up @@ -578,7 +578,7 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD,
! Wake -- we allow the wake positions to exceed the wind box
if (allocated(AD%OtherSt(STATE_CURR)%WakeLocationPoints)) then
Init%InData_IfW%BoxExceedAllowF = .true.
Init%InData_IfW%BoxExceedAllowIdx = min(Init%InData_IfW%BoxExceedAllowIdx, AD_BoxExceedPointsIdx(AD%Input(1), AD%OtherSt(STATE_CURR)))
Init%InData_IfW%BoxExceedAllowIdx = AD_BoxExceedPointsIdx(AD%Input(1), AD%OtherSt(STATE_CURR))
endif
END IF

Expand Down

0 comments on commit 5bbddd9

Please sign in to comment.