From 104f8fc69325e3422f9962ea8940b95527cd38ae Mon Sep 17 00:00:00 2001 From: Emmanuel Branlard Date: Mon, 7 Feb 2022 15:19:33 -0700 Subject: [PATCH 1/3] Fix HD added mass on member end (Close #992) --- modules/hydrodyn/src/Morison.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/hydrodyn/src/Morison.f90 b/modules/hydrodyn/src/Morison.f90 index 1a861ab5ea..505a57321a 100644 --- a/modules/hydrodyn/src/Morison.f90 +++ b/modules/hydrodyn/src/Morison.f90 @@ -2122,7 +2122,7 @@ SUBROUTINE Morison_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, In ! Constant part of the external hydrodynamic added mass term if ( Vmag > 0.0 ) then v2D(:,1) = Vn - p%AM_End(:,:,i) = (InitInp%Nodes(I)%JAxCa*InitInp%WtrDens/ Vmag)*matmul(transpose(v2D), v2D) + p%AM_End(:,:,i) = (InitInp%Nodes(I)%JAxCa*InitInp%WtrDens/ Vmag)*matmul(v2D, transpose(v2D)) end if ! Constant part of the external hydrodynamic dynamic pressure force From 81df6721b1625db9a4d1595b2b845569fa97ed78 Mon Sep 17 00:00:00 2001 From: Emmanuel Branlard Date: Fri, 11 Mar 2022 12:06:32 -0700 Subject: [PATCH 2/3] HD: Fix HD added mass on member end (scaling factor) (Close #992) --- modules/hydrodyn/src/Morison.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/modules/hydrodyn/src/Morison.f90 b/modules/hydrodyn/src/Morison.f90 index 505a57321a..b88f5e821d 100644 --- a/modules/hydrodyn/src/Morison.f90 +++ b/modules/hydrodyn/src/Morison.f90 @@ -2105,6 +2105,8 @@ SUBROUTINE Morison_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, In END IF END DO !J = 1, InitInp%InpJoints(I)%NConnections + + Vn = Vn*TwoPi/3.0_ReKi ! Semisphere volume is Vn = 2/3 pi \sum (r_MG^3 k) p%An_End(:,i) = An_drag Amag_drag = Dot_Product(An_drag ,An_drag) From 66582caf765edbcee5bfc425712aee104ee1d517 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Thu, 8 Sep 2022 11:23:10 -0600 Subject: [PATCH 3/3] HD: regression test update after added mass fix --- 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 e8a144a39d..62ce348c8c 160000 --- a/reg_tests/r-test +++ b/reg_tests/r-test @@ -1 +1 @@ -Subproject commit e8a144a39d2301bd329e10ce927b5764b174e037 +Subproject commit 62ce348c8cc798e1b7e7c6d826fc2a054512b6d6