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.

CChokeControlPanelVariables.f90 777 B

1 year ago
1234567891011121314151617181920212223
  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