From b03fcb7da12cb1369aab578e18133abf9f557c5b Mon Sep 17 00:00:00 2001 From: Hannah Ross Date: Thu, 14 Dec 2023 21:58:12 -0700 Subject: [PATCH] Correct setting of CompSeaSt parameter for AeroDyn --- modules/aerodyn/src/AeroDyn.f90 | 2 +- modules/openfast-library/src/FAST_Subs.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90 index d8a9219994..03a1da6473 100644 --- a/modules/aerodyn/src/AeroDyn.f90 +++ b/modules/aerodyn/src/AeroDyn.f90 @@ -1825,7 +1825,7 @@ subroutine AD_CalcWind(t, u, p, o, m, ErrStat, ErrMsg) do iWT = 1, size(u%rotors) ! If rotor is MHK, add water depth to z coordinate - if (p%rotors(iWT)%MHK > 0) then + if (p%rotors(iWT)%MHK .NE. MHK_None) then PosOffset = [0.0_ReKi, 0.0_ReKi, p%rotors(iWT)%WtrDpth] else PosOffset = 0.0_ReKi diff --git a/modules/openfast-library/src/FAST_Subs.f90 b/modules/openfast-library/src/FAST_Subs.f90 index fd6627c366..d60276cca1 100644 --- a/modules/openfast-library/src/FAST_Subs.f90 +++ b/modules/openfast-library/src/FAST_Subs.f90 @@ -505,7 +505,7 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD, Init%InData_AD%InputFile = p_FAST%AeroFile Init%InData_AD%RootName = p_FAST%OutFileRoot Init%InData_AD%MHK = p_FAST%MHK - Init%InData_AD%CompSeaSt = p_FAST%ModuleInitialized(Module_SeaSt) + Init%InData_AD%CompSeaSt = p_FAST%CompSeaSt if ( p_FAST%MHK == MHK_None ) then Init%InData_AD%defFldDens = p_FAST%AirDens else