From 601fc5badb8e0ca668e99d02cb9a9ed6ad97d0a0 Mon Sep 17 00:00:00 2001 From: REMI CORNIGLION Date: Wed, 17 Nov 2021 16:10:02 +0100 Subject: [PATCH] [bugfix] Minor bugfix in AirfoilInfo fullySeparate was not used at the right place. --- modules/aerodyn/src/AirfoilInfo.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/modules/aerodyn/src/AirfoilInfo.f90 b/modules/aerodyn/src/AirfoilInfo.f90 index cc96479a3a..80fc2939c6 100644 --- a/modules/aerodyn/src/AirfoilInfo.f90 +++ b/modules/aerodyn/src/AirfoilInfo.f90 @@ -1043,10 +1043,12 @@ SUBROUTINE CalculateUACoeffs(CalcDefaults,p,ColCl,ColCd,ColCm,ColUAf,UA_f_cn) fullySeparate = p%Coefs(Row,ColCl) / 2.0_ReKi ! Eq. 61 end if + p%Coefs(Row,col_fs) = fullySeparate + end if p%Coefs(Row,ColUAf) = f_st - p%Coefs(Row,col_fs) = fullySeparate + end do ! Compute variables to help x3 state with +/-180-degree wrap-around issues