anchor.diff:  
      CALL SetModuleSubstepTime(Module_ED)
      
  -   CALL MeshCopy( ED_Input(1)%PlatformPtMesh, u_ED_Without_SD_HD, MESH_NEWCOPY, ErrStat, ErrMsg )
  -      CALL CheckError( ErrStat, 'Message from MeshCopy (u_ED_Without_SD_HD): '//NewLine//ErrMsg )
  +   CALL MeshCopy( ED_Input(1)%PlatformPtMesh, MeshMapData%u_ED_PlatformPtMesh_2, MESH_NEWCOPY, ErrStat, ErrMsg )
  +      CALL CheckError( ErrStat, 'Message from MeshCopy (MeshMapData%u_ED_PlatformPtMesh_2): '//NewLine//ErrMsg )
      
      ! ........................
      ! initialize ServoDyn 
  
positive.code:       ELSE         
           calcJacobian = .FALSE.
        END IF
        
        !IF ( p_FAST%CompHydro == Module_HD ) THEN
        !
        !   IF ( p_FAST%CompSub /= Module_SD ) THEN
        !   
        !      CALL ED_HD_InputOutputSolve(  this_time, p_FAST, calcJacobian &
        !                                    , ED_Input(1), p_ED, x_ED_this, xd_ED_this, z_ED_this, OtherSt_ED, ED_Output(1) &
        !                                    , HD_Input(1), p_HD, x_HD_this, xd_HD_this, z_HD_this, OtherSt_HD, y_HD & 
        !                                    , u_ED_Without_SD_HD, MeshMapData , ErrStat, ErrMsg )         
        !         CALL CheckError( ErrStat, ErrMsg  )
        !      
        !   ELSE ! Both enabled
        !      
        !      CALL ED_SD_HD_InputOutputSolve(  this_time, p_FAST, calcJacobian &
        !                                    , ED_Input(1), p_ED, x_ED_this, xd_ED_this, z_ED_this, OtherSt_ED, ED_Output(1) &
        !                                    , SD_Input(1), p_SD, x_SD_this, xd_SD_this, z_SD_this, OtherSt_SD, y_SD & 
        !                                    , HD_Input(1), p_HD, x_HD_this, xd_HD_this, z_HD_this, OtherSt_HD, y_HD & 
        !                                    , u_ED_Without_SD_HD, MeshMapData , ErrStat, ErrMsg )         
        !         CALL CheckError( ErrStat, ErrMsg  )
        !      
        !      
        !   END IF      
        !   
        !ELSEIF ( p_FAST%CompSub == Module_SD ) THEN
        !   
        !   CALL ED_SD_InputOutputSolve(  this_time, p_FAST, calcJacobian &
        !                              , ED_Input(1), p_ED, x_ED_this, xd_ED_this, z_ED_this, OtherSt_ED, ED_Output(1) &
        !                              , SD_Input(1), p_SD, x_SD_this, xd_SD_this, z_SD_this, OtherSt_SD, y_SD & 
        !                              , u_ED_Without_SD_HD, MeshMapData , ErrStat, ErrMsg )         
        !      CALL CheckError( ErrStat, ErrMsg  )
        !
        !ELSE ! no HD or SD coupled to ED
           
           CALL ED_CalcOutput( this_time, ED_Input(1), p_ED, x_ED_this, xd_ED_this, z_ED_this, OtherSt_ED, ED_Output(1), ErrStat, ErrMsg )
              CALL CheckError( ErrStat, 'Message from ED_CalcOutput: '//NewLine//ErrMsg  )    
              
        !END IF
                    
           
        !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  
negative.code:             CALL ED_HD_InputOutputSolve(  this_time, p_FAST, calcJacobian &
                                            , ED_Input(1), p_ED, x_ED_this, xd_ED_this, z_ED_this, OtherSt_ED, ED_Output(1) &
                                            , HD_Input(1), p_HD, x_HD_this, xd_HD_this, z_HD_this, OtherSt_HD, y_HD & 
                                            , MeshMapData , ErrStat, ErrMsg )         
                 CALL CheckError( ErrStat, ErrMsg  )
              
           ELSE ! Both enabled
  