Correct setting of CompSeaSt parameter for AeroDyn

hkross · Dec 15, 2023 · b03fcb7 · b03fcb7
1 parent d6cd239
commit b03fcb7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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