diff --git a/modules/aerodyn/src/BEMT.f90 b/modules/aerodyn/src/BEMT.f90 index be879948c5..4caee0b8f8 100644 --- a/modules/aerodyn/src/BEMT.f90 +++ b/modules/aerodyn/src/BEMT.f90 @@ -1139,9 +1139,9 @@ subroutine check_turnOffBEMT(p, u, Weight, axInduction, tanInduction, FirstWarn) integer(IntKi) :: i !< blade node counter integer(IntKi) :: j !< blade counter - if( u%TSR < BEMT_upperBoundTSR ) then + if( abs(u%TSR) < BEMT_upperBoundTSR ) then - Weight = BlendCosine( u%TSR, BEMT_lowerBoundTSR, BEMT_upperBoundTSR ) + Weight = BlendCosine( abs(u%TSR), BEMT_lowerBoundTSR, BEMT_upperBoundTSR ) if (FirstWarn) then if (Weight < 1.0_ReKi) then diff --git a/reg_tests/r-test b/reg_tests/r-test index 000bc6227b..1db296f230 160000 --- a/reg_tests/r-test +++ b/reg_tests/r-test @@ -1 +1 @@ -Subproject commit 000bc6227ba2e94552084145948da2b7696f6860 +Subproject commit 1db296f23054ed2580f0694395e5baaae5f66f4e