AD: fix missing labels for user property linearization

OpenFAST · Feb 16, 2021 · 7c96e98 · 7c96e98
1 parent 57383cd
commit 7c96e98
Showing 1 changed file with 7 additions and 0 deletions.
diff --git 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)