anchor.diff:     ! note this routine should be called only
      ! IF ( p_FAST%CompHydro == Module_HD .AND. p_FAST%CompSub == Module_SD ) 
      
  -   
  -   
         !----------------------------------------------------------------------------------------------------
         ! Some record keeping stuff:
         !----------------------------------------------------------------------------------------------------      
  
positive.code:                CALL CheckError(ErrStat2,ErrMsg2)
                 IF (ErrStat >= AbortErrLev) RETURN               
           
           END IF
  
           ! SD loads from IceFloe:
           IF ( y_IceF%iceMesh%Committed ) THEN      
              ! we're mapping loads, so we also need the sibling meshes' displacements:
              CALL Transfer_Point_to_Point( y_IceF%iceMesh, MeshMapData%u_SD_LMesh_2, MeshMapData%IceF_P_2_SD_P, ErrStat2, ErrMsg2, u_IceF%iceMesh, y_SD2%Y2Mesh )   
                 CALL CheckError( ErrStat2, ErrMsg2 )
                 IF (ErrStat >= AbortErrLev) RETURN
  
              MeshMapData%u_SD_LMesh%Force  = MeshMapData%u_SD_LMesh%Force  + MeshMapData%u_SD_LMesh_2%Force
              MeshMapData%u_SD_LMesh%Moment = MeshMapData%u_SD_LMesh%Moment + MeshMapData%u_SD_LMesh_2%Moment     
           END IF
  
           
        !..................
  
negative.code:    u_AD%TurbineComponents%Hub%Orientation = y_ED%HubPtMotion%Orientation(:,:,1)   
     u_AD%TurbineComponents%Hub%RotationVel = y_ED%HubPtMotion%RotationVel(:,1)
     
     u_AD%TurbineComponents%Hub%TranslationVel = 0.0_ReKi !bjj we don't need this field
     !-------------------------------------------------------------------------------------------------
     ! Blade root orientations:
     !-------------------------------------------------------------------------------------------------
     
     DO K=1,NumBl
        u_AD%TurbineComponents%Blade(K)%Orientation = y_ED%BladeRootMotions%Orientation(:,:,K)
        
        u_AD%TurbineComponents%Blade(K)%Position       = 0.0_ReKi !bjj we don't need this field
        u_AD%TurbineComponents%Blade(K)%RotationVel    = 0.0_ReKi !bjj we don't need this field
        u_AD%TurbineComponents%Blade(K)%TranslationVel = 0.0_ReKi !bjj we don't need this field
     END DO
              
  
  