SimulationCore2/Equipments/TopDrive/TopDrive_Outputs.f90

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