diff --git a/modules/aerodisk/src/AeroDisk.f90 b/modules/aerodisk/src/AeroDisk.f90 index 13de16bfbd..e6257ac2d7 100644 --- a/modules/aerodisk/src/AeroDisk.f90 +++ b/modules/aerodisk/src/AeroDisk.f90 @@ -172,9 +172,9 @@ subroutine SetDiskAvgPoints(ErrStat3,ErrMsg3) R = real(p%RotorRad,ReKi) * 0.7_reKi !70% radius do i=1,ADsk_NumPtsDiskAvg theta = pi +(i-1)*TwoPi/ADsk_NumPtsDiskAvg - p%DiskWindPosRel(1,i) = R*cos(theta) - p%DiskWindPosRel(2,i) = R*sin(theta) - p%DiskWindPosRel(3,i) = 0.0_ReKi + p%DiskWindPosRel(1,i) = 0.0_ReKi ! Hub X (perpindicular to rotor plane) + p%DiskWindPosRel(2,i) = R*cos(theta) ! Hub Y + p%DiskWindPosRel(3,i) = R*sin(theta) ! Hub Z (in vertical plane when azimuth=0) end do end subroutine SetDiskAvgPoints diff --git a/reg_tests/r-test b/reg_tests/r-test index 3b84b57166..4df3384816 160000 --- a/reg_tests/r-test +++ b/reg_tests/r-test @@ -1 +1 @@ -Subproject commit 3b84b57166b95e348c338b00d5e3b06672a1e131 +Subproject commit 4df338481632c180808aed03f50a275400d4c857