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.

CBopControlPanelVariables.i90 1.3 KiB

1 year ago
1234567891011121314151617181920212223242526272829303132333435363738394041
  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/ControlPanels/CBopControlPanelVariables.f90"
  2. module CBopControlPanelVariables
  3. implicit none
  4. public
  5. Type, Public:: BopControlPanelType
  6. ! Input vars
  7. real(8) :: AnnularRegulatorSetControl
  8. real(8) :: AirMasterValve
  9. real(8) :: ByePassValve
  10. real(8) :: AnnularValve
  11. real(8) :: UpperRamsValve
  12. real(8) :: MiddleRamsValve
  13. real(8) :: KillLineValve
  14. real(8) :: ChokeLineValve
  15. real(8) :: LowerRamsValve
  16. ! Output vars
  17. real(8) :: ManifoldPressureGauge
  18. real(8) :: AirSupplyPressureGauge
  19. real(8) :: AccumulatorPressureGauge
  20. real(8) :: AnnularPressureGauge
  21. integer :: AnnularOpenLED
  22. integer :: AnnularCloseLED
  23. integer :: UpperRamsOpenLED
  24. integer :: UpperRamsCloseLED
  25. integer :: MiddleRamsOpenLED
  26. integer :: MiddleRamsCloseLED
  27. integer :: KillLineOpenLED
  28. integer :: KillLineCloseLED
  29. integer :: ChokeLineOpenLED
  30. integer :: ChokeLineCloseLED
  31. integer :: LowerRamsOpenLED
  32. integer :: LowerRamsCloseLED
  33. real(8) :: AnnularStatus
  34. real(8) :: UpperRamsStatus
  35. real(8) :: MiddleRamsStatus
  36. real(8) :: LowerRamsStatus
  37. end type
  38. contains
  39. end module CBopControlPanelVariables