Simulation Core
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

CChokeControlPanelVariables.f90 779 B

1 år sedan
2 år sedan
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