Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

23 lines
779 B

  1. module CChokeControlPanelVariables
  2. implicit none
  3. type, public :: ChokeControlPanelType
  4. ! Input vars
  5. integer :: ChokePanelPumpSelectorSwitch
  6. logical :: ChokePanelStrokeResetSwitch
  7. logical :: ChokeSelectorSwitch
  8. real(8) :: ChokeRateControlKnob
  9. real(8) :: ChokeControlLever
  10. logical :: ChokePanelRigAirSwitch
  11. ! logical :: EnableAutoChoke
  12. ! Output vars
  13. real(8) :: StandPipePressure
  14. real(8) :: CasingPressure
  15. real(8) :: ChokePosition
  16. real(8) :: ChokePanelSPMCounter
  17. real(8) :: ChokePanelTotalStrokeCounter
  18. integer :: Choke1LED
  19. integer :: Choke2LED
  20. End Type ChokeControlPanelType
  21. end module CChokeControlPanelVariables