Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
 
 
 
 
 
 

102 řádky
3.3 KiB

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