From d4d680158b7f198b04cee7aafd992c964c345b7a Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Thu, 19 Dec 2024 00:25:28 -0700 Subject: [PATCH 1/2] ADsk: correction to disk average velocity equations See PR #2532 for details --- modules/aerodisk/src/AeroDisk.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/aerodisk/src/AeroDisk.f90 b/modules/aerodisk/src/AeroDisk.f90 index 13de16bfb..e6257ac2d 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 From cad9c8456a3b629adce8f5679d189cde1db328e6 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Sun, 22 Dec 2024 14:30:06 -0700 Subject: [PATCH 2/2] ADsk: update reg test results after correcting DiskAvgVel --- reg_tests/r-test | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/reg_tests/r-test b/reg_tests/r-test index b3824f2d3..ba6813f1f 160000 --- a/reg_tests/r-test +++ b/reg_tests/r-test @@ -1 +1 @@ -Subproject commit b3824f2d3a4cd4cb826aa4ac95b6e39a99e66d43 +Subproject commit ba6813f1f241411eef2783f29fa644c5080a1d8a