Skip to content

Commit

Permalink
Merge pull request #1047 from ebranlard/f/hd-ABC-lin
Browse files Browse the repository at this point in the history
Fix HydroDyn Jacobian outputs when LinOutJac is True
  • Loading branch information
andrew-platt authored Mar 15, 2022
2 parents a574cc7 + 0b8426d commit 8ab68a3
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions modules/hydrodyn/src/HydroDyn.f90
Original file line number Diff line number Diff line change
Expand Up @@ -2579,8 +2579,6 @@ SUBROUTINE HD_JacobianPInput( t, u, p, x, xd, z, OtherState, y, m, ErrStat, ErrM
! For the case where either RdtnMod=0 and ExtcnMod=0 and hence %SS_Rdtn data or %SS_Exctn data is not valid then we do not have states, so simply return
! The key here is to never allocate the dXdu and related state Jacobian arrays because then the glue-code will behave properly

if ( p%totalStates == 0 ) return

! Calculate the partial derivative of the continuous state functions (X) with respect to the inputs (u) here:

! allocate dXdu if necessary
Expand Down Expand Up @@ -2753,8 +2751,6 @@ SUBROUTINE HD_JacobianPContState( t, u, p, x, xd, z, OtherState, y, m, ErrStat,
ErrStat = ErrID_None
ErrMsg = ''

if ( p%totalStates == 0 ) return

! Calculate the partial derivative of the output functions (Y) with respect to the continuous states (x) here:


Expand Down

0 comments on commit 8ab68a3

Please sign in to comment.