From 7c96e981de8b7b013adf4c119fc6f5132c74b70c Mon Sep 17 00:00:00 2001 From: Bonnie Jonkman Date: Tue, 16 Feb 2021 10:54:11 -0700 Subject: [PATCH] AD: fix missing labels for user property linearization --- modules/aerodyn/src/AeroDyn.f90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90 index 35766ef8d..1f8a957a9 100644 --- a/modules/aerodyn/src/AeroDyn.f90 +++ b/modules/aerodyn/src/AeroDyn.f90 @@ -4791,6 +4791,13 @@ SUBROUTINE Init_Jacobian_u( InputFileData, p, u, InitOut, ErrStat, ErrMsg) end do end do + do k=1,p%NumBlades + do i=1,p%NumBlNds + InitOut%LinNames_u(index) = 'User property on blade '//trim(num2lstr(k))//', node '//trim(num2lstr(i))//', -' + index = index + 1 + end do + end do + END SUBROUTINE Init_Jacobian_u !---------------------------------------------------------------------------------------------------------------------------------- SUBROUTINE Init_Jacobian_x( p, InitOut, ErrStat, ErrMsg)