anchor.diff:        Int_BufSz  = Int_BufSz  + 1  ! YCMode
         Int_BufSz  = Int_BufSz  + 1  ! GenTiStp
         Int_BufSz  = Int_BufSz  + 1  ! GenTiStr
  -  Int_BufSz   = Int_BufSz   + 1     ! TBDepISp allocated yes/no
  -  IF ( ALLOCATED(InData%TBDepISp) ) THEN
  -    Int_BufSz   = Int_BufSz   + 2*1  ! TBDepISp upper/lower bounds for each dimension
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%TBDepISp)  ! TBDepISp
  -  END IF
         Re_BufSz   = Re_BufSz   + 1  ! VS_Rgn2K
         Re_BufSz   = Re_BufSz   + 1  ! YawNeut
         Re_BufSz   = Re_BufSz   + 1  ! YawSpr
         Re_BufSz   = Re_BufSz   + 1  ! YawDamp
         Db_BufSz   = Db_BufSz   + 1  ! TpBrDT
  +  Int_BufSz   = Int_BufSz   + 1     ! TBDepISp allocated yes/no
  +  IF ( ALLOCATED(InData%TBDepISp) ) THEN
  +    Int_BufSz   = Int_BufSz   + 2*1  ! TBDepISp upper/lower bounds for each dimension
  +      Re_BufSz   = Re_BufSz   + SIZE(InData%TBDepISp)  ! TBDepISp
  +  END IF
         Re_BufSz   = Re_BufSz   + 1  ! TBDrConN
         Re_BufSz   = Re_BufSz   + 1  ! TBDrConD
         Int_BufSz  = Int_BufSz  + 1  ! NumBl
  
positive.code:       Re_Xferred   = Re_Xferred   + SIZE(OutData%xd_BlPitchFilter)
      DEALLOCATE(mask1)
    END IF
   END SUBROUTINE SrvD_UnPackOtherState
  
   SUBROUTINE SrvD_CopyParam( SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg )
     TYPE(SrvD_ParameterType), INTENT(IN) :: SrcParamData
  
negative.code:          Int_BufSz = Int_BufSz + SIZE( Int_Buf )
           DEALLOCATE(Int_Buf)
        END IF
    IF ( Re_BufSz  .GT. 0 ) THEN 
       ALLOCATE( ReKiBuf(  Re_BufSz  ), STAT=ErrStat2 )
       IF (ErrStat2 /= 0) THEN 
  