mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
42 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: d59a3f06a3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd59a3f06a3'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsoleVariable...

106 lines
3.4 KiB
Raw Blame History 

  1. module CDataDisplayConsoleVariables

  2.     use CIActionReference

  3.     ! !**use CDoubleEventHandlerCollection

  4.     implicit none    

  5.     public    

  6.     

  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.     

  16.         real(8) :: PortWeightOnBit

  17.         real(8) :: PortHookLoad

  18.         real(8) :: PortCasingPressure

  19.         real(8) :: PortPumpPressure

  20. 

  21.         ! Input vars

  22.         real(8) :: TripTankSetAlarmLow

  23.         real(8) :: TripTankSetAlarmHigh

  24.         integer :: TripTankSetAlarmSwitch

  25.         logical :: TripTankPowerSwitch

  26.         logical :: TripTankPumpSwitch

  27.         logical :: TripTankHornSwitch

  28.         logical :: AcidGasDetectionHornSwitch

  29.         logical :: TotalStrokeCounterResetSwitch

  30.         logical :: DrillingTrippingSelectorSwitch

  31.         real(8) :: MVTSetAlarmLowKnob

  32.         real(8) :: MVTSetAlarmHighKnob

  33.         integer :: MVTSetAlarmSwitch

  34.         logical :: MudTank1Switch

  35.         logical :: MudTank2Switch

  36.         logical :: MudTank3Switch

  37.         logical :: MudTank4Switch

  38.         real(8) :: MVTFineKnob

  39.         real(8) :: MVTCoarseKnob

  40.         logical :: MVTHornSwitch

  41.         logical :: MVTDeviationTripSelectionSwitch

  42.         logical :: MVTPowerSwitch

  43.         logical :: MFFIResetTotalStrokes

  44.         logical :: MFFIResetFillCounter

  45.         integer :: MFFIPumpSelectorSwitch

  46.         logical :: MFFIFillSPMSelectorSwitch

  47.         real(8) :: MFFISetAlarmLowKnob

  48.         real(8) :: MFFISetAlarmHighKnob

  49.         integer :: MFFISetAlarmSwitch

  50.         logical :: MFFIPowerSwitch

  51.         logical :: MFFIHornSwitch

  52.     

  53.         logical :: ResetWob

  54.         logical :: Clutch

  55. 

  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.     

  100. 

  101.     ! events

  102.     ! procedure (ActionDualDouble), pointer :: PumpsSpmChanges => null()

  103.     

  104.     contains

  105.     

  106. end module CDataDisplayConsoleVariables