anchor.diff:     TYPE(OpenFOAM_Data),      INTENT(INOUT) :: OpFM                !< OpenFOAM data
      TYPE(HydroDyn_Data),      INTENT(INOUT) :: HD                  !< HydroDyn data
      TYPE(SubDyn_Data),        INTENT(INOUT) :: SD                  !< SubDyn data
  +   TYPE(ExtPtfm_Data),       INTENT(INOUT) :: ExtPtfm             !< ExtPtfm_MCKF data
      TYPE(MAP_Data),           INTENT(INOUT) :: MAPp                !< MAP data
      TYPE(FEAMooring_Data),    INTENT(INOUT) :: FEAM                !< FEAMooring data
      TYPE(MoorDyn_Data),       INTENT(INOUT) :: MD                  !< Data for the MoorDyn module
  
positive.code:       
        call MeshWrVTK(p_FAST%TurbinePos, SD%y%y1Mesh, trim(p_FAST%OutFileRoot)//'.SD_y1Mesh_TPMesh', y_FAST%VTK_count, p_FAST%VTK_fields, ErrStat2, ErrMsg2, SD%Input(1)%TPMesh )     
        !call MeshWrVTK(p_FAST%TurbinePos, SD%y%y2Mesh, trim(p_FAST%OutFileRoot)//'.SD_y2Mesh_motion', y_FAST%VTK_count, p_FAST%VTK_fields, ErrStat2, ErrMsg2 )        
     END IF     
         
  ! MAP
  
negative.code:          END IF
           
              
           IF ( ED%p%method == 1 ) THEN ! bjj: should be using ElastoDyn's Method_ABM4 Method_AB4 parameters
              CALL SetErrStat(ErrID_Fatal,'ElastoDyn must use the AB4 or ABM4 integration method to implement high-speed shaft braking.',ErrStat,ErrMsg,RoutineName)
           END IF               
        END IF
        
     END IF  
  