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.
 
 
 
 
 
 

25 lines
841 B

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