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