anchor.diff:      REAL(ReKi) , DIMENSION(1:2)  :: N_SP      ! Negative stop position (minimum X mass displacement) [m]
       REAL(ReKi) , DIMENSION(1:3)  :: F_ext      ! External forces (for user modification) [-]
       REAL(ReKi)  :: Gravity      ! Gravitational acceleration [m/s^2]
  -    INTEGER(IntKi)  :: TMD_CMODE      ! control mode {0:none; 1: velocity-based ground hook control; 2: Inverse velocity-based ground hook control; 3: displacement-based ground hook control 4: Phase difference Algorithm}  [-]
  +    INTEGER(IntKi)  :: TMD_CMODE      ! control mode {0:none; 1: Semi-Active Control Mode; 2: Active Control Mode;}  [-]
  +    INTEGER(IntKi)  :: TMD_SA_MODE      ! Semi-Active control mode {1: velocity-based ground hook control; 2: Inverse velocity-based ground hook control; 3: displacement-based ground hook control 4: Phase difference Algorithm with Friction Force 5: Phase difference Algorithm with Damping Force}  [-]
       REAL(ReKi)  :: TMD_X_C_HIGH      ! TMD X high damping for ground hook control [N/(m/s)]
       REAL(ReKi)  :: TMD_X_C_LOW      ! TMD X low damping for ground hook control [N/(m/s)]
       REAL(ReKi)  :: TMD_Y_C_HIGH      ! TMD Y high damping for ground hook control [N/(m/s)]
  
positive.code:         END DO ! I
        IntKiBuf ( Int_Xferred:Int_Xferred+(1)-1 ) = InData%TMD_CMODE
        Int_Xferred   = Int_Xferred   + 1
        IntKiBuf ( Int_Xferred:Int_Xferred+(1)-1 ) = InData%TMD_DOF_MODE
        Int_Xferred   = Int_Xferred   + 1
        IntKiBuf ( Int_Xferred:Int_Xferred+1-1 ) = TRANSFER( InData%TMD_X_DOF , IntKiBuf(1), 1)
  
negative.code:   Int_BufSz  = 0
        Int_BufSz  = Int_BufSz  + 1*LEN(InData%TMDFileName)  ! TMDFileName
        Int_BufSz  = Int_BufSz  + 1  ! TMD_CMODE
        Int_BufSz  = Int_BufSz  + 1  ! TMD_SA_MODE
        Int_BufSz  = Int_BufSz  + 1  ! TMD_DOF_MODE
        Int_BufSz  = Int_BufSz  + 1  ! TMD_X_DOF
        Int_BufSz  = Int_BufSz  + 1  ! TMD_Y_DOF
  