From 138cd71eed773c14030c4eaa5e7416be991036ed Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Thu, 3 Jun 2021 16:33:05 -0600 Subject: [PATCH] InflowWind: Return if fatal error occurs befor accessing array at invalid index - the GetInterpValues() routine in IfW_FFWind_Base.f90 checks the bounds of the FF in the y direction and sets an error. However, we should exit at that point before attempting to read from an invalid location outside the p%FFData array --- modules/inflowwind/src/IfW_FFWind_Base.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/inflowwind/src/IfW_FFWind_Base.f90 b/modules/inflowwind/src/IfW_FFWind_Base.f90 index feed01fc0..e5833a10d 100644 --- a/modules/inflowwind/src/IfW_FFWind_Base.f90 +++ b/modules/inflowwind/src/IfW_FFWind_Base.f90 @@ -368,7 +368,7 @@ FUNCTION FFWind_Interp(Time, Position, p, ErrStat, ErrMsg) IF ( OnGrid ) THEN ! The tower points don't use this - CALL GetInterpValues() + CALL GetInterpValues(); if (ErrStat >= AbortErrLev) return !------------------------------------------------------------------------------------------------- ! Interpolate on the grid