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.4 KiB

1 year ago
1 year ago
1 year ago
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  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. real(8) :: MFFIAlarmLow
  48. real(8) :: MFFIAlarmHigh
  49. real(8) :: MVTAlarmLow
  50. real(8) :: MVTAlarmHigh
  51. integer :: MFFISetAlarmSwitch
  52. logical :: MFFIPowerSwitch
  53. logical :: MFFIHornSwitch
  54. logical :: ResetWob
  55. logical :: Clutch
  56. ! Output vars
  57. real(8) :: WOBPointer
  58. real(8) :: HookLoadPointer
  59. real(8) :: TripTankGauge
  60. integer :: TripTankAlarmLED
  61. integer :: TripTankPumpLED
  62. real(8) :: StandPipePressureGauge
  63. real(8) :: CasingPressureGauge
  64. real(8) :: MP1SPMGauge
  65. real(8) :: MP2SPMGauge
  66. real(8) :: ReturnLineTempGauge
  67. real(8) :: RotaryTorqueGauge
  68. real(8) :: RotaryRPMGauge
  69. ! !**type(DoubleEventHandlerCollection) :: OnRotaryRpmChange
  70. integer :: AcidGasDetectionLED
  71. real(8) :: TotalStrokeCounter
  72. !real(8) :: TotalStrokeCounter_temp
  73. real(8) :: PitGainLossGauge
  74. real(8) :: MudTanksVolumeGauge
  75. integer :: MVTAlarmLED
  76. real(8) :: ReturnMudFlowGauge
  77. real(8) :: FillStrokeCounter
  78. real(8) :: MFFITotalStrokeCounter
  79. integer :: MFFIAlarmLED
  80. integer :: MFFIPumpLED
  81. real(8) :: TotalWellDepth
  82. real(8) :: BitDepth
  83. real(8) :: HookLoad
  84. real(8) :: StandPipePressure
  85. real(8) :: CasingPressure
  86. real(8) :: MP1SPM
  87. real(8) :: MP2SPM
  88. real(8) :: RTTorque
  89. real(8) :: RTRPM
  90. real(8) :: WOP
  91. real(8) :: ROP
  92. real(8) :: MudWeightIn
  93. real(8) :: MudWeightOut
  94. logical :: Buzzer1
  95. logical :: Buzzer2
  96. logical :: Buzzer3
  97. logical :: Buzzer4
  98. End Type DataDisplayConsoleType
  99. contains
  100. end module CDataDisplayConsoleVariables