anchor.diff:        TYPE(MD_ContinuousStateType)                        :: dxdt       ! time derivatives of continuous states (initialized in CalcContStateDeriv)
         TYPE(MD_ContinuousStateType)                        :: x2         ! temporary copy of continuous states used in RK2 calculations
         INTEGER(IntKi)                                      :: NdtM       ! the number of time steps to make with the mooring model
  -      Real(ReKi)                                          :: dtM        ! the actual time step size to use
  +      Real(DbKi)                                          :: dtM        ! the actual time step size to use
         INTEGER(IntKi)                                      :: Nx         ! size of states vector
         INTEGER(IntKi)                                      :: I          ! counter
         INTEGER(IntKi)                                      :: J          ! counter
  
positive.code:          END DO
        END DO
  
        t = 0.0_ReKi     ! start time at zero
  
        ! because TimeStep wants an array...
        call MD_CopyInput( u, uArray(1), MESH_NEWCOPY, ErrStat2, ErrMsg2 )
  
negative.code:       CHARACTER(*),                 INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
  
        ! local variables
        REAL(DbKi)                                   :: t              ! instantaneous time, to be used during IC generation
        INTEGER(IntKi)                               :: I              ! index
        INTEGER(IntKi)                               :: J              ! index
        INTEGER(IntKi)                               :: K              ! index
  