From 5a0cf8b2961ee14bfdca67be353787e5c4e09898 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Mon, 1 Apr 2024 13:52:30 -0600 Subject: [PATCH 1/2] SrvD: Fix seg fault if blade StC used while writing summary file --- modules/servodyn/src/ServoDyn.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/servodyn/src/ServoDyn.f90 b/modules/servodyn/src/ServoDyn.f90 index 6f48338bf..7fa4b0567 100644 --- a/modules/servodyn/src/ServoDyn.f90 +++ b/modules/servodyn/src/ServoDyn.f90 @@ -1486,7 +1486,7 @@ subroutine StC_Blade_Setup(SrvD_InitInp,SrvD_p,InputFileData,SrvD_u,SrvD_y,SrvD_ ! A little bit of information about the StC location if (unsum >0) then write(UnSum, '(A24,i2)') ' Blade StC instance: ',j - write(UnSum, '(10x,A)') 'Input file: '//trim(InputFileData%NStCfiles(j)) + write(UnSum, '(10x,A)') 'Input file: '//trim(InputFileData%BStCfiles(j)) do k=1,StC_InitInp%NumMeshPts write(UnSum, '(10x,A6,I1,A29)') 'Blade ',k,' location (global/inertial): ' write(UnSum, '(20x,3(2x,ES10.3e2))') u(1,j)%Mesh(k)%Position(1:3,1) From 0b594ddd5c3d61f418d5f1d307e28d5737fcfd9e Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Mon, 1 Apr 2024 13:57:23 -0600 Subject: [PATCH 2/2] Update changelog with this PR. --- docs/changelogs/v3.5.3.md | 1 + 1 file changed, 1 insertion(+) diff --git a/docs/changelogs/v3.5.3.md b/docs/changelogs/v3.5.3.md index 101a884bd..b8a8b494a 100644 --- a/docs/changelogs/v3.5.3.md +++ b/docs/changelogs/v3.5.3.md @@ -103,6 +103,7 @@ Other notable improvements include corrections to turbine indexing when coupled ### ServoDyn #2079 Handling of Paths for SrvD UserSubs Input Files (@rdamiani) +#2134 Bugfix seg fault if blade StC used while writing summary file (@aplatt) ### TurbSim