anchor.diff:              
         ELSEIF ( p_FAST%CompMooring == Module_FEAM ) THEN
            
  -         ! note: FEAM_InputSolve must be called before setting ED loads inputs (so that motions are known for loads [moment] mapping)      
  -         CALL FEAM_InputSolve( u_FEAM, y_ED2, MeshMapData, ErrStat2, ErrMsg2 )
  +         ! note: FEAM_InputSolve must be called before setting ED loads inputs (so that motions are known for loads [moment] mapping)
  +         CALL Transfer_Point_to_Point( y_ED2%PlatformPtMesh, u_FEAM%PtFairleadDisplacement, MeshMapData%ED_P_2_Mooring_P, ErrStat, ErrMsg )
               CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
                    
            CALL Transfer_Point_to_Point( y_FEAM%PtFairleadLoad, MeshMapData%u_ED_PlatformPtMesh_2, MeshMapData%Mooring_P_2_ED_P, ErrStat2, ErrMsg2, u_FEAM%PtFairleadDisplacement, PlatformMotions ) !u_FEAM and y_ED contain the displacements needed for moment calculations
  
positive.code:       IF (p_FAST%CompHydro == Module_HD ) THEN
        
           ! Make copies of the accelerations we just solved for (so we don't overwrite them)         
           IF (MeshMapData%u_HD_M_LumpedMesh%Committed) THEN
               MeshMapData%u_HD_M_LumpedMesh%RotationAcc     = u_HD%Morison%LumpedMesh%RotationAcc
               MeshMapData%u_HD_M_LumpedMesh%TranslationAcc  = u_HD%Morison%LumpedMesh%TranslationAcc
           ENDIF
           IF (MeshMapData%u_HD_M_DistribMesh%Committed) THEN
               MeshMapData%u_HD_M_DistribMesh%RotationAcc    = u_HD%Morison%DistribMesh%RotationAcc
               MeshMapData%u_HD_M_DistribMesh%TranslationAcc = u_HD%Morison%DistribMesh%TranslationAcc
           ENDIF
           IF (MeshMapData%u_HD_Mesh%Committed) THEN
               MeshMapData%u_HD_Mesh%RotationAcc             = u_HD%WAMITMesh%RotationAcc   
               MeshMapData%u_HD_Mesh%TranslationAcc          = u_HD%WAMITMesh%TranslationAcc
           ENDIF
  
              ! transfer the output data to inputs
  
negative.code: END SUBROUTINE SrvD_SetExternalInputs
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine transfers the SD outputs into inputs required for HD
  SUBROUTINE Transfer_SD_to_HD( y_SD, u_HD_W_Mesh, u_HD_M_Mesh, MeshMapData, ErrStat, ErrMsg )
  !..................................................................................................................................
     TYPE(SD_OutputType),         INTENT(IN   ) :: y_SD                         !< The outputs of the structural dynamics module
     TYPE(MeshType),              INTENT(INOUT) :: u_HD_W_Mesh                  !< HydroDyn input mesh (separated here so that we can use temp meshes in ED_SD_HD_InputSolve)
     TYPE(MeshType),              INTENT(INOUT) :: u_HD_M_Mesh                  !< HydroDyn input mesh (separated here so that we can use temp meshes in ED_SD_HD_InputSolve)
     TYPE(FAST_ModuleMapType),    INTENT(INOUT) :: MeshMapData                  !< data for mapping meshes
  
     INTEGER(IntKi),              INTENT(  OUT) :: ErrStat                      !< Error status of the operation
  