From 1652796e31bb8f52fc1eef572e9af9154d7240e6 Mon Sep 17 00:00:00 2001 From: Emmanuel Branlard Date: Thu, 3 Aug 2023 12:41:48 -0600 Subject: [PATCH] AD: reverting to size 31 for du (no DiskAvgVel for now) --- modules/aerodyn/src/AeroDyn.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90 index 03cbcb4db..ad37cbbb9 100644 --- a/modules/aerodyn/src/AeroDyn.f90 +++ b/modules/aerodyn/src/AeroDyn.f90 @@ -6711,7 +6711,7 @@ SUBROUTINE Init_Jacobian_u( InputFileData, p, p_AD, u, InitOut, ErrStat, ErrMsg) !...................................... ! default perturbations, p%du: !...................................... - call allocAry( p%du, 32, 'p%du', ErrStat2, ErrMsg2) ! 32 = number of unique values in p%Jac_u_indx(:,1) + call allocAry( p%du, 31, 'p%du', ErrStat2, ErrMsg2) ! 31 = number of unique values in p%Jac_u_indx(:,1) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) perturb = 2*D2R