AD: reverting to size 31 for du (no DiskAvgVel for now)

ebranlard · Aug 3, 2023 · 1652796 · 1652796
1 parent 1e81918
commit 1652796
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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