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/Problems/CGaugesProblems.f90

407 lines
32 KiB
Raw Permalink Blame History 

  1. module CGaugesProblems

  2. 	use SimulationVariables

  3. 	implicit none    

  4. 	public 

  5.     contains

  6.     subroutine GaugesProblemsFromJson(parent)

  7.         type(json_value),pointer :: parent

  8.         type(json_core) :: json

  9.         type(json_value),pointer :: p

  10. 

  11.         call json%get(parent,'GaugesProblems',p)

  12. 

  13.         call ProblemFromJson(p,"WeightIndicator",data%problems%GaugesProblems%WeightIndicator)

  14.         call ProblemFromJson(p,"RotaryRpm",data%problems%GaugesProblems%RotaryRpm)

  15.         call ProblemFromJson(p,"RotaryTorque",data%problems%GaugesProblems%RotaryTorque)

  16.         call ProblemFromJson(p,"StandPipePressure",data%problems%GaugesProblems%StandPipePressure)

  17.         call ProblemFromJson(p,"CasingPressure",data%problems%GaugesProblems%CasingPressure)

  18.         call ProblemFromJson(p,"Pump1Strokes",data%problems%GaugesProblems%Pump1Strokes)

  19.         call ProblemFromJson(p,"Pump2Strokes",data%problems%GaugesProblems%Pump2Strokes)

  20.         call ProblemFromJson(p,"ReturnLineTemperature",data%problems%GaugesProblems%ReturnLineTemperature)

  21.         call ProblemFromJson(p,"TripTank",data%problems%GaugesProblems%TripTank)

  22.         call ProblemFromJson(p,"PitGainLoss",data%problems%GaugesProblems%PitGainLoss)

  23.         call ProblemFromJson(p,"MudTankVolume",data%problems%GaugesProblems%MudTankVolume)

  24.         call ProblemFromJson(p,"ReturnMudFlow",data%problems%GaugesProblems%ReturnMudFlow)

  25.         call ProblemFromJson(p,"TorqueLimit",data%problems%GaugesProblems%TorqueLimit)

  26.         call ProblemFromJson(p,"PowerLimit",data%problems%GaugesProblems%PowerLimit)

  27.         call ProblemFromJson(p,"AccumulatorPressure",data%problems%GaugesProblems%AccumulatorPressure)

  28.         call ProblemFromJson(p,"ManifoldPressure",data%problems%GaugesProblems%ManifoldPressure)

  29.         call ProblemFromJson(p,"AnnularPressure",data%problems%GaugesProblems%AnnularPressure)

  30.         call ProblemFromJson(p,"RigAirPressure",data%problems%GaugesProblems%RigAirPressure)

  31.         call ProblemFromJson(p,"StandPipe1",data%problems%GaugesProblems%StandPipe1)

  32.         call ProblemFromJson(p,"StandPipe2",data%problems%GaugesProblems%StandPipe2)

  33.         call ProblemFromJson(p,"DrillPipePressure",data%problems%GaugesProblems%DrillPipePressure)

  34.         call ProblemFromJson(p,"ChokePosition",data%problems%GaugesProblems%ChokePosition)

  35.         call ProblemFromJson(p,"CasingPressure2",data%problems%GaugesProblems%CasingPressure2)

  36. 

  37.     end subroutine

  38. 

  39.     subroutine GaugesProblemsToJson(parent)

  40. 

  41.         type(json_value),pointer :: parent

  42.         type(json_core) :: json

  43.         type(json_value),pointer :: p

  44. 

  45.         ! 1. create new node

  46.         call json%create_object(p,'GaugesProblems')

  47.         

  48.         ! 2. add member of data type to new node

  49.         call ProblemToJson(p,"WeightIndicator",data%problems%GaugesProblems%WeightIndicator)

  50.         call ProblemToJson(p,"RotaryRpm",data%problems%GaugesProblems%RotaryRpm)

  51.         call ProblemToJson(p,"RotaryTorque",data%problems%GaugesProblems%RotaryTorque)

  52.         call ProblemToJson(p,"StandPipePressure",data%problems%GaugesProblems%StandPipePressure)

  53.         call ProblemToJson(p,"CasingPressure",data%problems%GaugesProblems%CasingPressure)

  54.         call ProblemToJson(p,"Pump1Strokes",data%problems%GaugesProblems%Pump1Strokes)

  55.         call ProblemToJson(p,"Pump2Strokes",data%problems%GaugesProblems%Pump2Strokes)

  56.         call ProblemToJson(p,"ReturnLineTemperature",data%problems%GaugesProblems%ReturnLineTemperature)

  57.         call ProblemToJson(p,"TripTank",data%problems%GaugesProblems%TripTank)

  58.         call ProblemToJson(p,"PitGainLoss",data%problems%GaugesProblems%PitGainLoss)

  59.         call ProblemToJson(p,"MudTankVolume",data%problems%GaugesProblems%MudTankVolume)

  60.         call ProblemToJson(p,"ReturnMudFlow",data%problems%GaugesProblems%ReturnMudFlow)

  61.         call ProblemToJson(p,"TorqueLimit",data%problems%GaugesProblems%TorqueLimit)

  62.         call ProblemToJson(p,"PowerLimit",data%problems%GaugesProblems%PowerLimit)

  63.         call ProblemToJson(p,"AccumulatorPressure",data%problems%GaugesProblems%AccumulatorPressure)

  64.         call ProblemToJson(p,"ManifoldPressure",data%problems%GaugesProblems%ManifoldPressure)

  65.         call ProblemToJson(p,"AnnularPressure",data%problems%GaugesProblems%AnnularPressure)

  66.         call ProblemToJson(p,"RigAirPressure",data%problems%GaugesProblems%RigAirPressure)

  67.         call ProblemToJson(p,"StandPipe1",data%problems%GaugesProblems%StandPipe1)

  68.         call ProblemToJson(p,"StandPipe2",data%problems%GaugesProblems%StandPipe2)

  69.         call ProblemToJson(p,"DrillPipePressure",data%problems%GaugesProblems%DrillPipePressure)

  70.         call ProblemToJson(p,"ChokePosition",data%problems%GaugesProblems%ChokePosition)

  71.         call ProblemToJson(p,"CasingPressure2",data%problems%GaugesProblems%CasingPressure2)

  72.         

  73.         ! 3. add new node to parent

  74.         call json%add(parent,p)

  75.     end subroutine

  76. 

  77.     subroutine ProcessGaugesProblemsDueTime(time)

  78.         implicit none

  79.         integer :: time

  80.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, time)

  81.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, time)

  82.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, time)

  83.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, time)

  84.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, time)

  85.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, time)

  86.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, time)

  87.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, time)

  88.         if(data%problems%GaugesProblems%TripTank%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%TripTank, ChangeTripTank, time)

  89.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, time)

  90.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, time)

  91.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, time)

  92.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, time)

  93.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, time)

  94.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, time)

  95.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, time)

  96.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, time)

  97.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, time)

  98.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, time)

  99.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, time)

  100.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, time)

  101.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, time)

  102.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, time)

  103.     end subroutine

  104. 	

  105. 	subroutine ProcessGaugesProblemsDuePumpStrokes(strokes)

  106.         implicit none

  107.         integer :: strokes

  108.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, strokes)

  109.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, strokes)

  110.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, strokes)

  111.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, strokes)

  112.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, strokes)

  113.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, strokes)

  114.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, strokes)

  115.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, strokes)

  116.         if(data%problems%GaugesProblems%TripTank%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%TripTank, ChangeTripTank, strokes)

  117.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, strokes)

  118.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, strokes)

  119.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, strokes)

  120.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, strokes)

  121.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, strokes)

  122.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, strokes)

  123.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, strokes)

  124.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, strokes)

  125.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, strokes)

  126.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, strokes)

  127.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, strokes)

  128.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, strokes)

  129.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, strokes)

  130.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, strokes)

  131.     end subroutine

  132. 	

  133. 	subroutine ProcessGaugesProblemsDueVolumePumped(volume)

  134.         implicit none

  135.         real(8) :: volume

  136.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, volume)

  137.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, volume)

  138.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, volume)

  139.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, volume)

  140.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, volume)

  141.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, volume)

  142.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, volume)

  143.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, volume)

  144.         if(data%problems%GaugesProblems%TripTank%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%TripTank, ChangeTripTank, volume)

  145.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, volume)

  146.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, volume)

  147.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, volume)

  148.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, volume)

  149.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, volume)

  150.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, volume)

  151.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, volume)

  152.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, volume)

  153.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, volume)

  154.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, volume)

  155.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, volume)

  156.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, volume)

  157.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, volume)

  158.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, volume)

  159.     end subroutine

  160. 	

  161. 	subroutine ProcessGaugesProblemsDueDistanceDrilled(distance)

  162.         implicit none

  163.         real(8) :: distance

  164.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, distance)

  165.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, distance)

  166.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, distance)

  167.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, distance)

  168.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, distance)

  169.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, distance)

  170.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, distance)

  171.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, distance)

  172.         if(data%problems%GaugesProblems%TripTank%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%TripTank, ChangeTripTank, distance)

  173.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, distance)

  174.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, distance)

  175.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, distance)

  176.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, distance)

  177.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, distance)

  178.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, distance)

  179.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, distance)

  180.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, distance)

  181.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, distance)

  182.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, distance)

  183.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, distance)

  184.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, distance)

  185.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, distance)

  186.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, distance)

  187.     end subroutine

  188. 	

  189. 	

  190. 	

  191. 	

  192. 	

  193. 	

  194. 	

  195.     

  196.     

  197.     subroutine ChangeWeightIndicator(status)

  198.         use SimulationVariables !@

  199.         implicit none

  200.         integer, intent (in) :: status

  201.         ! if(associated(WeightIndicatorPtr)) call WeightIndicatorPtr(status)

  202.         if(status == Clear_StatusType)    data%State%TD_General%WeightIndicatorMalf = 0

  203.         if(status == Executed_StatusType) data%State%TD_General%WeightIndicatorMalf = 1

  204.     endsubroutine

  205.     

  206.     subroutine ChangeRotaryRpm(status)

  207.         use SimulationVariables !@

  208.         implicit none

  209.         integer, intent (in) :: status

  210.         ! if(associated(RotaryRpmPtr)) call RotaryRpmPtr(status)

  211.         if(status == Clear_StatusType)    data%State%RTable%RpmGaugeMalf = 0

  212.         if(status == Executed_StatusType) data%State%RTable%RpmGaugeMalf = 1

  213.     endsubroutine

  214.     

  215.     subroutine ChangeRotaryTorque(status)

  216.         use SimulationVariables !@

  217.         implicit none

  218.         integer, intent (in) :: status

  219.         ! if(associated(RotaryTorquePtr)) call RotaryTorquePtr(status)

  220.         if(status == Clear_StatusType)    data%State%RTable%TorqueGaugeMalf = 0

  221.         if(status == Executed_StatusType) data%State%RTable%TorqueGaugeMalf = 1

  222.     endsubroutine

  223.     

  224.     subroutine ChangeStandPipePressure(status)

  225.         USE MudSystemVARIABLES

  226. use SimulationVariables !@@@

  227.         implicit none

  228.         integer, intent (in) :: status

  229.         ! if(associated(StandPipePressurePtr)) call StandPipePressurePtr(status)

  230.         if(status == Clear_StatusType) data%State%MudSystem%StandPipePressure_DataDisplayMalf = 0

  231.         if(status == Executed_StatusType) data%State%MudSystem%StandPipePressure_DataDisplayMalf = 1

  232.     endsubroutine

  233.     

  234.     subroutine ChangeCasingPressure(status)

  235.         USE FricPressDropVarsModule

  236.         implicit none

  237.         integer, intent (in) :: status

  238.         ! if(associated(CasingPressurePtr)) call CasingPressurePtr(status)

  239.         if(status == Clear_StatusType) data%State%FricPressDrop%CasingPressure_DataDisplayMalF = 0

  240.         if(status == Executed_StatusType) data%State%FricPressDrop%CasingPressure_DataDisplayMalF = 1

  241.     endsubroutine

  242.     

  243.     subroutine ChangePump1Strokes(status)

  244.         use SimulationVariables

  245.         implicit none

  246.         integer, intent (in) :: status

  247.         ! if(associated(Pump1StrokesPtr)) call Pump1StrokesPtr(status)

  248.         if(status == Clear_StatusType)    data%State%Pump(1)%SPMGaugeMalf = 0

  249.         if(status == Executed_StatusType) data%State%Pump(1)%SPMGaugeMalf = 1

  250.     endsubroutine

  251.     

  252.     subroutine ChangePump2Strokes(status)

  253.         use SimulationVariables

  254.         implicit none

  255.         integer, intent (in) :: status

  256.         ! if(associated(Pump2StrokesPtr)) call Pump2StrokesPtr(status)

  257.         if(status == Clear_StatusType)    data%State%Pump(2)%SPMGaugeMalf = 0

  258.         if(status == Executed_StatusType) data%State%Pump(2)%SPMGaugeMalf = 1

  259.     endsubroutine

  260.     

  261.     subroutine ChangeReturnLineTemperature(status)

  262.         implicit none

  263.         integer, intent (in) :: status

  264.         ! if(associated(ReturnLineTemperaturePtr)) call ReturnLineTemperaturePtr(status)

  265.         !if(status == Clear_StatusType) if(print_log) print*,'On_ReturnLineTemperature_Clear'

  266.         !if(status == Executed_StatusType) if(print_log) print*,'On_ReturnLineTemperature_Execute'

  267.     endsubroutine

  268.     

  269.     subroutine ChangeTripTank(status)

  270.         USE MudSystemVARIABLES

  271. use SimulationVariables !@@@

  272.         implicit none

  273.         integer, intent (in) :: status

  274.         ! if(associated(TripTankPtr)) call TripTankPtr(status)

  275.         if(status == Clear_StatusType) data%State%MudSystem%TripTankPressure_DataDisplayMalf = 0

  276.         if(status == Executed_StatusType) data%State%MudSystem%TripTankPressure_DataDisplayMalf = 1

  277.     endsubroutine

  278.     

  279.     subroutine ChangePitGainLoss(status)

  280.         USE MudSystemVARIABLES

  281. use SimulationVariables !@@@

  282.         implicit none

  283.         integer, intent (in) :: status

  284.         ! if(associated(PitGainLossPtr)) call PitGainLossPtr(status)

  285.         if(status == Clear_StatusType) data%State%MudSystem%PitGainLossGaugeMalf = 0

  286.         if(status == Executed_StatusType) data%State%MudSystem%PitGainLossGaugeMalf = 1

  287.     endsubroutine

  288.     

  289.     subroutine ChangeMudTankVolume(status)

  290.         implicit none

  291.         integer, intent (in) :: status

  292.         ! if(associated(MudTankVolumePtr)) call MudTankVolumePtr(status)

  293.         !if(status == Clear_StatusType) if(print_log) print*,'On_MudTankVolume_Clear'

  294.         !if(status == Executed_StatusType) if(print_log) print*,'On_MudTankVolume_Execute'

  295.     endsubroutine

  296.     

  297.     subroutine ChangeReturnMudFlow(status)

  298.         implicit none

  299.         integer, intent (in) :: status

  300.         ! if(associated(ReturnMudFlowPtr)) call ReturnMudFlowPtr(status)

  301.         !if(status == Clear_StatusType) if(print_log) print*,'On_ReturnMudFlow_Clear'

  302.         !if(status == Executed_StatusType) if(print_log) print*,'On_ReturnMudFlow_Execute'

  303.     endsubroutine

  304.     

  305.     subroutine ChangeTorqueLimit(status)

  306.         use SimulationVariables !@

  307.         implicit none

  308.         integer, intent (in) :: status

  309.         ! if(associated(TorqueLimitPtr)) call TorqueLimitPtr(status)

  310.         if(status == Clear_StatusType)    data%State%RTable%TorqueLimitGaugeMalf = 0

  311.         if(status == Executed_StatusType) data%State%RTable%TorqueLimitGaugeMalf = 1

  312.     endsubroutine

  313.     

  314.     subroutine ChangePowerLimit(status)

  315.         implicit none

  316.         integer, intent (in) :: status

  317.         ! if(associated(PowerLimitPtr)) call PowerLimitPtr(status)

  318.         !if(status == Clear_StatusType) if(print_log) print*,'On_PowerLimit_Clear'

  319.         !if(status == Executed_StatusType) if(print_log) print*,'On_PowerLimit_Execute'

  320.     endsubroutine

  321.     

  322.     subroutine ChangeAccumulatorPressure(status)

  323.         use SimulationVariables

  324.         implicit none

  325.         integer, intent (in) :: status

  326.         ! if(associated(AccumulatorPressurePtr)) call AccumulatorPressurePtr(status)

  327.         if(status == Clear_StatusType) data%State%BopStackAcc%AccumulatorPressureGaugeMalf = 0

  328.         if(status == Executed_StatusType) data%State%BopStackAcc%AccumulatorPressureGaugeMalf = 1

  329.     endsubroutine

  330.     

  331.     subroutine ChangeManifoldPressure(status)

  332.         use SimulationVariables

  333.         implicit none

  334.         integer, intent (in) :: status

  335.         ! if(associated(ManifoldPressurePtr)) call ManifoldPressurePtr(status)

  336.         if(status == Clear_StatusType) data%State%BopStackAcc%ManifoldPressureGaugeMalf = 0

  337.         if(status == Executed_StatusType) data%State%BopStackAcc%ManifoldPressureGaugeMalf = 1

  338.     endsubroutine

  339.     

  340.     subroutine ChangeAnnularPressure(status)

  341.         use SimulationVariables

  342.         implicit none

  343.         integer, intent (in) :: status

  344.         ! if(associated(AnnularPressurePtr)) call AnnularPressurePtr(status)

  345.         if(status == Clear_StatusType) data%State%Annular%AnnularPressureGaugeMalf = 0

  346.         if(status == Executed_StatusType) data%State%Annular%AnnularPressureGaugeMalf = 1

  347.     endsubroutine

  348.     

  349.     subroutine ChangeRigAirPressure(status)

  350.         use SimulationVariables

  351.         implicit none

  352.         integer, intent (in) :: status

  353.         ! if(associated(RigAirPressurePtr)) call RigAirPressurePtr(status)

  354.         if(status == Clear_StatusType) data%State%BopStackAcc%AirSupplyPressureGaugeMalf = 0

  355.         if(status == Executed_StatusType) data%State%BopStackAcc%AirSupplyPressureGaugeMalf = 1

  356.     endsubroutine

  357.     

  358.     subroutine ChangeStandPipe1(status)

  359.         USE MudSystemVARIABLES

  360. use SimulationVariables !@@@

  361.         implicit none

  362.         integer, intent (in) :: status

  363.         ! if(associated(StandPipe1Ptr)) call StandPipe1Ptr(status)

  364.         if(status == Clear_StatusType)          data%State%MudSystem%StandPipeGauge1Malf = 0

  365.         if(status == Executed_StatusType)       data%State%MudSystem%StandPipeGauge1Malf = 1

  366.     endsubroutine

  367.     

  368.     subroutine ChangeStandPipe2(status)

  369.         USE MudSystemVARIABLES

  370. use SimulationVariables !@@@

  371.         implicit none

  372.         integer, intent (in) :: status

  373.         ! if(associated(StandPipe2Ptr)) call StandPipe2Ptr(status)

  374.         if(status == Clear_StatusType)          data%State%MudSystem%StandPipeGauge2Malf = 0

  375.         if(status == Executed_StatusType)       data%State%MudSystem%StandPipeGauge2Malf = 1

  376.     endsubroutine

  377.     

  378.     subroutine ChangeDrillPipePressure(status)

  379.         USE MudSystemVARIABLES

  380. use SimulationVariables !@@@

  381.         implicit none

  382.         integer, intent (in) :: status

  383.         ! if(associated(DrillPipePressurePtr)) call DrillPipePressurePtr(status)

  384.         if(status == Clear_StatusType)         data%State%MudSystem%DrillPipePressureMalf = 0

  385.         if(status == Executed_StatusType)      data%State%MudSystem%DrillPipePressureMalf = 1

  386.     endsubroutine

  387.     

  388.     subroutine ChangeChokePosition(status)

  389.         USE CHOKEVARIABLES

  390. use SimulationVariables !@

  391.         implicit none

  392.         integer, intent (in) :: status

  393.         ! if(associated(ChokePositionPtr)) call ChokePositionPtr(status)

  394.         if(status == Clear_StatusType) data%State%Choke%GaugeChokePositionMailf = 0

  395.         if(status == Executed_StatusType) data%State%Choke%GaugeChokePositionMailf = 1

  396.     endsubroutine

  397.     

  398.     subroutine ChangeCasingPressure2(status)

  399.         USE FricPressDropVarsModule

  400.         implicit none

  401.         integer, intent (in) :: status

  402.         ! if(associated(CasingPressure2Ptr)) call CasingPressure2Ptr(status)

  403.         if(status == Clear_StatusType)          data%State%FricPressDrop%CasingPressure_ChokeMalF = 0

  404.         if(status == Executed_StatusType)       data%State%FricPressDrop%CasingPressure_ChokeMalF = 1

  405.     endsubroutine

  406. 

  407. end module CGaugesProblems