FF: fix segfault when MD shared moorings not initialized

andrew-platt · Dec 23, 2024 · ea8e9ca · ea8e9ca
1 parent 8d983ac
commit ea8e9ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/glue-codes/fast-farm/src/FAST_Farm_Subs.f90 b/glue-codes/fast-farm/src/FAST_Farm_Subs.f90
@@ -1841,7 +1841,7 @@ subroutine FARM_End(farm, ErrStat, ErrMsg)
 
       !--------------
       ! 6. End farm-level MoorDyn
-   if (farm%p%MooringMod == 3) then
+   if (farm%p%MooringMod == 3 .and. allocated(farm%MD%Input)) then
       call MD_End(farm%MD%Input(1), farm%MD%p, farm%MD%x, farm%MD%xd, farm%MD%z, farm%MD%OtherSt, farm%MD%y, farm%MD%m, ErrStat2, ErrMsg2)
       call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
       !TODO: any related items need to be cleared?