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.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsoleVariable...

109 lines
3.5 KiB
Raw Permalink 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. 

  50.         real(8) :: MFFIAlarmLow

  51.         real(8) :: MFFIAlarmHigh

  52. 

  53.         real(8) :: MVTAlarmLow

  54.         real(8) :: MVTAlarmHigh

  55. 

  56.         integer :: MFFISetAlarmSwitch

  57.         logical :: MFFIPowerSwitch

  58.         logical :: MFFIHornSwitch

  59.     

  60.         logical :: ResetWob

  61.         logical :: Clutch

  62. 

  63.         ! Output vars

  64.         real(8) :: WOBPointer

  65.         real(8) :: HookLoadPointer

  66.         real(8) :: TripTankGauge

  67.         integer :: TripTankAlarmLED

  68.         integer :: TripTankPumpLED

  69.         real(8) :: StandPipePressureGauge

  70.         real(8) :: CasingPressureGauge

  71.         real(8) :: MP1SPMGauge

  72.         real(8) :: MP2SPMGauge

  73.         real(8) :: ReturnLineTempGauge

  74.         real(8) :: RotaryTorqueGauge

  75.         real(8) :: RotaryRPMGauge

  76.         ! !**type(DoubleEventHandlerCollection) :: OnRotaryRpmChange

  77.         integer :: AcidGasDetectionLED

  78.         real(8) :: TotalStrokeCounter

  79.         !real(8) :: TotalStrokeCounter_temp

  80.         real(8) :: PitGainLossGauge

  81.         real(8) :: MudTanksVolumeGauge

  82.         integer :: MVTAlarmLED

  83.         real(8) :: ReturnMudFlowGauge

  84.         real(8) :: FillStrokeCounter

  85.         real(8) :: MFFITotalStrokeCounter

  86.         integer :: MFFIAlarmLED

  87.         integer :: MFFIPumpLED

  88.         real(8) :: TotalWellDepth

  89.         real(8) :: BitDepth

  90.         real(8) :: HookLoad

  91.         real(8) :: StandPipePressure

  92.         real(8) :: CasingPressure

  93.         real(8) :: MP1SPM

  94.         real(8) :: MP2SPM

  95.         real(8) :: RTTorque

  96.         real(8) :: RTRPM

  97.         real(8) :: WOP

  98.         real(8) :: ROP

  99.         real(8) :: MudWeightIn

  100.         real(8) :: MudWeightOut

  101.         logical :: Buzzer1

  102.         logical :: Buzzer2

  103.         logical :: Buzzer3

  104.         logical :: Buzzer4

  105.     End Type DataDisplayConsoleType

  106.     

  107.     contains

  108.     

  109. end module CDataDisplayConsoleVariables