anchor.diff:  
         
      !.................................
  -   ! y%BldMotion
  +   ! y%BldMotion (for coupling with AeroDyn)
      !.................................
         
      NNodes = p%node_elem*p%elem_total
  
positive.code:                                p%dof_node,p%quadrature,p%ngp,p%GLw,p%Jacobian,&
                                 p%blade_mass,p%blade_CG,p%blade_IN,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL BD_CalcIC(u_tmp,p,x,OtherState,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  
  
negative.code:    character(*),                 intent(  out)  :: ErrMsg            ! Error message if ErrStat /= ErrID_None
  
        ! local variables
     real(ReKi)                                   :: DCM(3,3)          ! must be same type as mesh orientation fields
     real(ReKi)                                   :: Pos(3)            ! must be same type as mesh position fields 
     
     real(BDKi)                                   :: TmpDCM(3,3)
     real(BDKi)                                   :: temp_POS(3)
     real(BDKi)                                   :: temp_CRV(3)
     
  