From 8fc91b6f5ea371af34a3925abd273f1dbad30bc4 Mon Sep 17 00:00:00 2001 From: Lu Wang Date: Wed, 25 Mar 2026 11:33:30 -0600 Subject: [PATCH] Temporary fix for HydroDyn rectangular member visualization --- modules/hydrodyn/src/Morison.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/modules/hydrodyn/src/Morison.f90 b/modules/hydrodyn/src/Morison.f90 index 987ddeced6..0bd6288e6c 100644 --- a/modules/hydrodyn/src/Morison.f90 +++ b/modules/hydrodyn/src/Morison.f90 @@ -3264,7 +3264,15 @@ subroutine VisMeshSetup(u,p,y,m,InitOut,ErrStat,ErrMsg) NdPos = u%Mesh%Position(:,NdIdx) ! node position call MeshPositionNode (y%VisMesh, NdNum, u%Mesh%Position(:,NdIdx), ErrStat2, ErrMsg2, Orient=MemberOrient) if (Failed()) return - InitOut%MorisonVisRad(NdNum) = p%Members(iMem)%RMG(iNd) ! radius (including marine growth) for visualization + select case ( p%Members(iMem)%MSecGeom ) + case (MSecGeom_Cyl) + InitOut%MorisonVisRad(NdNum) = p%Members(iMem)%RMG(iNd) ! radius (including marine growth) for visualization + case (MSecGeom_Rec) + InitOut%MorisonVisRad(NdNum) = sqrt(p%Members(iMem)%SaMG(iNd)*p%Members(iMem)%SbMG(iNd)/Pi) ! equivalent radius (including marine growth) for visualization + case default + call SetErrStat( ErrId_Fatal, " Unrecognized member cross section geometry ", ErrStat, ErrMsg, RoutineName ) + return + end select enddo enddo