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:       
        IF ( p_FAST%CompSub == Module_SD ) THEN
        
           ! initialize these SD loads inputs here in case HD is used
           MeshMapData%u_SD_LMesh%Force  = 0.0_ReKi
           MeshMapData%u_SD_LMesh%Moment = 0.0_ReKi
        
           IF ( p_FAST%CompHydro == Module_HD ) THEN
        !..................
        ! Get HD inputs on Morison%LumpedMesh and Morison%DistribMesh
        !..................
  
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
              
  
  