SimulationCore2/Equipments/TopDrive/TopDrive_Outputs.f90

Subroutine TopDrive_Outputs
    
    Use TopDrive_VARIABLES
    Use CTopDrivePanelVariables
    
    IMPLICIT NONE
    
    
    
    TopDrivePanel%TopDriveTdsPowerLed = TDS%PowerLed
    TopDrivePanel%TopDriveOperationFaultLed = TDS%OperationFaultLed
    
    !TDS%Speed    ! to other modules            ![RPM]
    TopDrivePanel%TopDriveRpmGauge = TDS%RpmGaugeOutput       ![RPM]
    
    TopDrivePanel%TopDriveTorqueGauge = TDS%TorqueGaugeOutput ![ft.lbf]
    
    !TDS%SoundBlower
    !TDS%RPMUnityOutput
    
    
    
End Subroutine TopDrive_Outputs