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.

CDataDisplayConsoleVariables.i90 3.2 KiB

1 year ago
1 year ago
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsoleVariables.f90"
  2. module CDataDisplayConsoleVariables
  3. use CIActionReference
  4. ! !**use CDoubleEventHandlerCollection
  5. implicit none
  6. public
  7. Type :: DataDisplayConsoleType
  8. !portable
  9. ! real(8) :: TripAlarmLow
  10. ! real(8) :: TripAlarmHigh
  11. ! real(8) :: RetFlowAlarmLow
  12. ! real(8) :: RetFlowAlarmHigh
  13. ! real(8) :: PitAlarmLow
  14. ! real(8) :: PitAlarmHigh
  15. real(8) :: PortWeightOnBit
  16. real(8) :: PortHookLoad
  17. real(8) :: PortCasingPressure
  18. real(8) :: PortPumpPressure
  19. ! Input vars
  20. real(8) :: TripTankSetAlarmLow
  21. real(8) :: TripTankSetAlarmHigh
  22. integer :: TripTankSetAlarmSwitch
  23. logical :: TripTankPowerSwitch
  24. logical :: TripTankPumpSwitch
  25. logical :: TripTankHornSwitch
  26. logical :: AcidGasDetectionHornSwitch
  27. logical :: TotalStrokeCounterResetSwitch
  28. logical :: DrillingTrippingSelectorSwitch
  29. real(8) :: MVTSetAlarmLowKnob
  30. real(8) :: MVTSetAlarmHighKnob
  31. integer :: MVTSetAlarmSwitch
  32. logical :: MudTank1Switch
  33. logical :: MudTank2Switch
  34. logical :: MudTank3Switch
  35. logical :: MudTank4Switch
  36. real(8) :: MVTFineKnob
  37. real(8) :: MVTCoarseKnob
  38. logical :: MVTHornSwitch
  39. logical :: MVTDeviationTripSelectionSwitch
  40. logical :: MVTPowerSwitch
  41. logical :: MFFIResetTotalStrokes
  42. logical :: MFFIResetFillCounter
  43. integer :: MFFIPumpSelectorSwitch
  44. logical :: MFFIFillSPMSelectorSwitch
  45. real(8) :: MFFISetAlarmLowKnob
  46. real(8) :: MFFISetAlarmHighKnob
  47. integer :: MFFISetAlarmSwitch
  48. logical :: MFFIPowerSwitch
  49. logical :: MFFIHornSwitch
  50. logical :: ResetWob
  51. logical :: Clutch
  52. ! Output vars
  53. real(8) :: WOBPointer
  54. real(8) :: HookLoadPointer
  55. real(8) :: TripTankGauge
  56. integer :: TripTankAlarmLED
  57. integer :: TripTankPumpLED
  58. real(8) :: StandPipePressureGauge
  59. real(8) :: CasingPressureGauge
  60. real(8) :: MP1SPMGauge
  61. real(8) :: MP2SPMGauge
  62. real(8) :: ReturnLineTempGauge
  63. real(8) :: RotaryTorqueGauge
  64. real(8) :: RotaryRPMGauge
  65. ! !**type(DoubleEventHandlerCollection) :: OnRotaryRpmChange
  66. integer :: AcidGasDetectionLED
  67. real(8) :: TotalStrokeCounter
  68. !real(8) :: TotalStrokeCounter_temp
  69. real(8) :: PitGainLossGauge
  70. real(8) :: MudTanksVolumeGauge
  71. integer :: MVTAlarmLED
  72. real(8) :: ReturnMudFlowGauge
  73. real(8) :: FillStrokeCounter
  74. real(8) :: MFFITotalStrokeCounter
  75. integer :: MFFIAlarmLED
  76. integer :: MFFIPumpLED
  77. real(8) :: TotalWellDepth
  78. real(8) :: BitDepth
  79. real(8) :: HookLoad
  80. real(8) :: StandPipePressure
  81. real(8) :: CasingPressure
  82. real(8) :: MP1SPM
  83. real(8) :: MP2SPM
  84. real(8) :: RTTorque
  85. real(8) :: RTRPM
  86. real(8) :: WOP
  87. real(8) :: ROP
  88. real(8) :: MudWeightIn
  89. real(8) :: MudWeightOut
  90. logical :: Buzzer1
  91. logical :: Buzzer2
  92. logical :: Buzzer3
  93. logical :: Buzzer4
  94. End Type DataDisplayConsoleType
  95. contains
  96. end module CDataDisplayConsoleVariables