Merge pull request #1872 from deslaughter/bug/HD_Input

Fix segfault in HD when no outputs specified
OpenFAST · Nov 13, 2023 · 067acec · 067acec
2 parents 6a6511a + f1116d7
commit 067acec
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/modules/hydrodyn/src/HydroDyn_Input.f90 b/modules/hydrodyn/src/HydroDyn_Input.f90
@@ -3105,7 +3105,18 @@ SUBROUTINE HydroDynInput_ProcessInitData( InitInp, Interval, InputFileData, ErrS
       IF (ErrStat >= AbortErrLev ) RETURN
 
       DEALLOCATE(foundMask)
-
+
+   ELSE
+
+      ! Set number of outputs to zero
+      InputFileData%NumOuts = 0
+      InputFileData%Waves2%NumOuts = 0
+      InputFileData%Morison%NumOuts = 0
+
+      ! Allocate outlist with zero length
+      call AllocAry(InputFileData%OutList, 0, "InputFileData%OutList", ErrStat2, ErrMsg2); 
+      call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
+
    END IF
       ! Now that we have the sub-lists organized, lets do some additional validation.