SimulationCore2/Equipments/TopDrive/TopDrive_Outputs.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/Equipments/TopDrive/TopDrive_Outputs.f90"
Subroutine TopDrive_Outputs
    
    use SimulationVariables
    use CTopDrivePanelVariables
    use SimulationVariables
    
    IMPLICIT NONE
    
    
    
    data%Equipments%TopDrivePanel%TopDriveTdsPowerLed = data%State%TDS%PowerLed
    data%Equipments%TopDrivePanel%TopDriveOperationFaultLed = data%State%TDS%OperationFaultLed
    
!data%State%TDS%Speed    ! to other modules            ![RPM]
    data%Equipments%TopDrivePanel%TopDriveRpmGauge = data%State%TDS%RpmGaugeOutput       ![RPM]
    
    data%Equipments%TopDrivePanel%TopDriveTorqueGauge = data%State%TDS%TorqueGaugeOutput ![ft.lbf]
    
!data%State%TDS%SoundBlower
!data%State%TDS%RPMUnityOutput
    
    
    
End Subroutine TopDrive_Outputs