Skip to content

Fix for FAST.Farm issue #3183 #3243

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
andrew-platt merged 8 commits into from
Mar 10, 2026
+201 −95
Merged

Fix for FAST.Farm issue #3183 #3243

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
f745420
AWAE: restructure UpdateStates to match 5.0 before introducing change…
andrew-platt Mar 9, 2026
6707322
AWAE.f90: further updatestates changes to more closely match 5.0
andrew-platt Mar 9, 2026
7eaeedd
FF: add extra timestep at T=-DT_high to wind sent to OF instances
andrew-platt Mar 9, 2026
a9fd451
AWAE: add wind timeslice at T=-DT_high to wind sent to OF instances
andrew-platt Mar 9, 2026
bf39a2f
AWAE: typo in loop limits on Mod_AmbWind==3
andrew-platt Mar 9, 2026
0efb781
AWAE: fix bug in calcoutput end time plane check
andrew-platt Mar 10, 2026
756e48c
AWAE: fix index bug in high res output vtk writing
andrew-platt Mar 10, 2026
9845567
AWAE: fix bug in time step indexing (starts n=-1) and WAT time indexing
andrew-platt Mar 10, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 9 additions & 7 deletions glue-codes/fast-farm/src/FASTWrapper.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,7 @@ MODULE FASTWrapper

PUBLIC :: FWrap_t0 ! call to compute outputs at t0 [and initialize some more variables]
PUBLIC :: FWrap_Increment ! call to update states to n+1 and compute outputs at n+1
PUBLIC :: FWrap_SetInputs
PUBLIC :: FWrap_SetWindTStart
PUBLIC :: FWrap_CalcOutput


Expand Down Expand Up @@ -119,7 +119,7 @@ SUBROUTINE FWrap_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, Init
ExternInitData%windGrid_n(1) = InitInp%nX_high
ExternInitData%windGrid_n(2) = InitInp%nY_high
ExternInitData%windGrid_n(3) = InitInp%nZ_high
ExternInitData%windGrid_n(4) = InitInp%n_high_low
ExternInitData%windGrid_n(4) = InitInp%n_high_low+1 ! include a step at t-dt_high

ExternInitData%windGrid_delta(1) = InitInp%dX_high
ExternInitData%windGrid_delta(2) = InitInp%dY_high
Expand Down Expand Up @@ -392,7 +392,7 @@ SUBROUTINE FWrap_Increment( t, n, u, p, x, xd, z, OtherState, y, m, ErrStat, Err
!ELSE
!
! set the inputs needed for FAST
!call FWrap_SetInputs(u, m, t) <<< moved up into FAST.Farm FARM_UpdateStates
!call FWrap_SetWindTStart(u, m, t) <<< moved up into FAST.Farm FARM_UpdateStates

! call FAST p%n_FAST_low times (p%n_FAST_low is simply the number of steps to make per wrapper call. It is affected by MooringMod)
do n_ss = 1, p%n_FAST_low
Expand Down Expand Up @@ -434,7 +434,7 @@ SUBROUTINE FWrap_t0( u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg )
ErrMsg = ''

! set the inputs needed for FAST:
call FWrap_SetInputs(u, m, 0.0_DbKi)
call FWrap_SetWindTStart(u, m, 0.0_DbKi)

! compute the FAST t0 solution:
call FAST_Solution0_T(m%Turbine, ErrStat2, ErrMsg2 )
Expand Down Expand Up @@ -685,16 +685,18 @@ SUBROUTINE FWrap_CalcOutput(p, u, y, m, ErrStat, ErrMsg)
END SUBROUTINE FWrap_CalcOutput
!----------------------------------------------------------------------------------------------------------------------------------
!> This subroutine sets the inputs needed before calling an instance of FAST
SUBROUTINE FWrap_SetInputs(u, m, t)
SUBROUTINE FWrap_SetWindTStart(u, m, t)

TYPE(FWrap_InputType), INTENT(INOUT) :: u !< Inputs at t
TYPE(FWrap_MiscVarType), INTENT(INOUT) :: m !< Misc variables for optimization (not copied in glue code)
REAL(DbKi), INTENT(IN ) :: t !< current simulation time

! set the 4d-wind-inflow input array (a bit of a hack [simplification] so that we don't have large amounts of data copied in multiple data structures):
m%Turbine%IfW%p%FlowField%Grid4D%TimeStart = t
! NOTE: the wind data starts at `t - DT_high` as one extra slice of wind data is added at start. If AeroDyn is updated to not require the `t-DT_high`
! timestep, this can be changed
m%Turbine%IfW%p%FlowField%Grid4D%TimeStart = t - m%Turbine%IfW%p%FlowField%Grid4D%delta(4)

END SUBROUTINE FWrap_SetInputs
END SUBROUTINE FWrap_SetWindTStart
!----------------------------------------------------------------------------------------------------------------------------------
END MODULE FASTWrapper
!**********************************************************************************************************************************
2 changes: 1 addition & 1 deletion glue-codes/fast-farm/src/FAST_Farm_Subs.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1204,7 +1204,7 @@ subroutine FARM_UpdateStates(t, n, farm, ErrStat, ErrMsg)

! set the inputs needed for FAST (these are slow-varying so can just be done once per farm time step)
do nt = 1,farm%p%NumTurbines
call FWrap_SetInputs(farm%FWrap(nt)%u, farm%FWrap(nt)%m, t)
call FWrap_SetWindTStart(farm%FWrap(nt)%u, farm%FWrap(nt)%m, t)
end do


Expand Down
Loading