From 71ca692f6fcee34bff21614b710b3f9b6fb299e7 Mon Sep 17 00:00:00 2001 From: Lu Wang Date: Sat, 7 May 2022 20:58:12 -0600 Subject: [PATCH] Bug fix: Fix for the segmentation fault resulting from merging Pull Request #1. --- modules/openfast-library/src/FAST_Subs.f90 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/modules/openfast-library/src/FAST_Subs.f90 b/modules/openfast-library/src/FAST_Subs.f90 index e53d19904b..526e359b15 100644 --- a/modules/openfast-library/src/FAST_Subs.f90 +++ b/modules/openfast-library/src/FAST_Subs.f90 @@ -852,10 +852,15 @@ SUBROUTINE FAST_InitializeAll( t_initial, p_FAST, y_FAST, m_FAST, ED, BD, SrvD, nullify(Init%InData_HD%WaveDirArr) nullify(Init%InData_HD%WaveDynP) nullify(Init%InData_HD%WaveAcc) - nullify(Init%InData_HD%WaveVel) + nullify(Init%InData_HD%WaveVel) + nullify(Init%InData_HD%PWaveDynP0) + nullify(Init%InData_HD%PWaveAcc0) + nullify(Init%InData_HD%PWaveVel0) nullify(Init%InData_HD%WaveTime) nullify(Init%InData_HD%WaveElev1) nullify(Init%InData_HD%WaveElev2) + nullify(Init%InData_HD%WaveAccMCF) + nullify(Init%InData_HD%PWaveAccMCF0) ! If HD_Init failed, cleanup and exit IF (ErrStat >= AbortErrLev) THEN