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/CChokeProblems.i90

289 lines
22 KiB
Raw Permalink Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Problems/CChokeProblems.f90"

  2. module CChokeProblems

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public 

  6.     contains

  7. 

  8.     subroutine ChokeProblemsFromJson(parent)

  9.         type(json_value),pointer :: parent

  10.         type(json_core) :: json

  11.         type(json_value),pointer :: p,pval

  12. 

  13.         call json%get(parent,'ChokeProblems',p)

  14.         call ProblemFromJson(p,"HydraulicChoke1Plugged",data%problems%ChokeProblems%HydraulicChoke1Plugged)

  15.         call ProblemFromJson(p,"HydraulicChoke1Fail",data%problems%ChokeProblems%HydraulicChoke1Fail)

  16.         call ProblemFromJson(p,"HydraulicChoke1Washout",data%problems%ChokeProblems%HydraulicChoke1Washout)

  17.         call ProblemFromJson(p,"HydraulicChoke2Plugged",data%problems%ChokeProblems%HydraulicChoke2Plugged)

  18.         call ProblemFromJson(p,"HydraulicChoke2Fail",data%problems%ChokeProblems%HydraulicChoke2Fail)

  19.         call ProblemFromJson(p,"HydraulicChoke2Washout",data%problems%ChokeProblems%HydraulicChoke2Washout)

  20.         call ProblemFromJson(p,"ManualChoke1Plugged",data%problems%ChokeProblems%ManualChoke1Plugged)

  21.         call ProblemFromJson(p,"ManualChoke1Fail",data%problems%ChokeProblems%ManualChoke1Fail)

  22.         call ProblemFromJson(p,"ManualChoke1Washout",data%problems%ChokeProblems%ManualChoke1Washout)

  23.         call ProblemFromJson(p,"ManualChoke2Plugged",data%problems%ChokeProblems%ManualChoke2Plugged)

  24.         call ProblemFromJson(p,"ManualChoke2Fail",data%problems%ChokeProblems%ManualChoke2Fail)

  25.         call ProblemFromJson(p,"ManualChoke2Washout",data%problems%ChokeProblems%ManualChoke2Washout)

  26.         call ProblemFromJson(p,"ChokePanelAirFail",data%problems%ChokeProblems%ChokePanelAirFail)

  27. 

  28.         call json%get(p,'ManualChoke1PluggedPercent',pval)

  29. 		call json%get(pval,data%problems%ChokeProblems%ManualChoke1PluggedPercent)

  30. 		call json%get(p,'HydraulicChoke2PluggedPercent',pval)

  31. 		call json%get(pval,data%problems%ChokeProblems%HydraulicChoke2PluggedPercent)

  32. 		call json%get(p,'HydraulicChoke1PluggedPercent',pval)

  33. 		call json%get(pval,data%problems%ChokeProblems%HydraulicChoke1PluggedPercent)

  34. 		call json%get(p,'ManualChoke2PluggedPercent',pval)

  35. 		call json%get(pval,data%problems%ChokeProblems%ManualChoke2PluggedPercent)

  36. 

  37.     end subroutine

  38. 

  39.     subroutine ChokeProblemsToJson(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,'ChokeProblems')

  47.         

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

  49.         call ProblemToJson(p,"HydraulicChoke1Plugged",data%problems%ChokeProblems%HydraulicChoke1Plugged)

  50.         call ProblemToJson(p,"HydraulicChoke1Fail",data%problems%ChokeProblems%HydraulicChoke1Fail)

  51.         call ProblemToJson(p,"HydraulicChoke1Washout",data%problems%ChokeProblems%HydraulicChoke1Washout)

  52.         call ProblemToJson(p,"HydraulicChoke2Plugged",data%problems%ChokeProblems%HydraulicChoke2Plugged)

  53.         call ProblemToJson(p,"HydraulicChoke2Fail",data%problems%ChokeProblems%HydraulicChoke2Fail)

  54.         call ProblemToJson(p,"HydraulicChoke2Washout",data%problems%ChokeProblems%HydraulicChoke2Washout)

  55.         call ProblemToJson(p,"ManualChoke1Plugged",data%problems%ChokeProblems%ManualChoke1Plugged)

  56.         call ProblemToJson(p,"ManualChoke1Fail",data%problems%ChokeProblems%ManualChoke1Fail)

  57.         call ProblemToJson(p,"ManualChoke1Washout",data%problems%ChokeProblems%ManualChoke1Washout)

  58.         call ProblemToJson(p,"ManualChoke2Plugged",data%problems%ChokeProblems%ManualChoke2Plugged)

  59.         call ProblemToJson(p,"ManualChoke2Fail",data%problems%ChokeProblems%ManualChoke2Fail)

  60.         call ProblemToJson(p,"ManualChoke2Washout",data%problems%ChokeProblems%ManualChoke2Washout)

  61.         call ProblemToJson(p,"ChokePanelAirFail",data%problems%ChokeProblems%ChokePanelAirFail)

  62.         

  63.         call json%add(p,"ManualChoke1PluggedPercent",data%problems%ChokeProblems%ManualChoke1PluggedPercent)

  64.         call json%add(p,"HydraulicChoke2PluggedPercent",data%problems%ChokeProblems%HydraulicChoke2PluggedPercent)

  65.         call json%add(p,"HydraulicChoke1PluggedPercent",data%problems%ChokeProblems%HydraulicChoke1PluggedPercent)

  66.         call json%add(p,"ManualChoke2PluggedPercent",data%problems%ChokeProblems%ManualChoke2PluggedPercent)

  67. ! 3. add new node to parent

  68.         call json%add(parent,p)

  69.     end subroutine

  70. 

  71.     subroutine ProcessChokeProblemsDueTime(time)

  72.         implicit none

  73.         integer :: time

  74.         if(data%problems%ChokeProblems%HydraulicChoke1Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, time)

  75.         if(data%problems%ChokeProblems%HydraulicChoke1Fail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, time)

  76.         if(data%problems%ChokeProblems%HydraulicChoke1Washout%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, time)

  77.         if(data%problems%ChokeProblems%HydraulicChoke2Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, time)

  78.         if(data%problems%ChokeProblems%HydraulicChoke2Fail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, time)

  79.         if(data%problems%ChokeProblems%HydraulicChoke2Washout%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, time)

  80.         if(data%problems%ChokeProblems%ManualChoke1Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, time)

  81.         if(data%problems%ChokeProblems%ManualChoke1Fail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, time)

  82.         if(data%problems%ChokeProblems%ManualChoke1Washout%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, time)

  83.         if(data%problems%ChokeProblems%ManualChoke2Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, time)

  84.         if(data%problems%ChokeProblems%ManualChoke2Fail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, time)

  85.         if(data%problems%ChokeProblems%ManualChoke2Washout%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, time)

  86.         if(data%problems%ChokeProblems%ChokePanelAirFail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, time)

  87.     end subroutine

  88. 	

  89. 	subroutine ProcessChokeProblemsDuePumpStrokes(strokes)

  90.         implicit none

  91.         integer :: strokes

  92.         if(data%problems%ChokeProblems%HydraulicChoke1Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, strokes)

  93.         if(data%problems%ChokeProblems%HydraulicChoke1Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, strokes)

  94.         if(data%problems%ChokeProblems%HydraulicChoke1Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, strokes)

  95.         if(data%problems%ChokeProblems%HydraulicChoke2Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, strokes)

  96.         if(data%problems%ChokeProblems%HydraulicChoke2Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, strokes)

  97.         if(data%problems%ChokeProblems%HydraulicChoke2Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, strokes)

  98.         if(data%problems%ChokeProblems%ManualChoke1Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, strokes)

  99.         if(data%problems%ChokeProblems%ManualChoke1Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, strokes)

  100.         if(data%problems%ChokeProblems%ManualChoke1Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, strokes)

  101.         if(data%problems%ChokeProblems%ManualChoke2Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, strokes)

  102.         if(data%problems%ChokeProblems%ManualChoke2Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, strokes)

  103.         if(data%problems%ChokeProblems%ManualChoke2Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, strokes)

  104.         if(data%problems%ChokeProblems%ChokePanelAirFail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, strokes)

  105.     end subroutine

  106. 	

  107. 	subroutine ProcessChokeProblemsDueVolumePumped(volume)

  108.         implicit none

  109.         real(8) :: volume

  110.         if(data%problems%ChokeProblems%HydraulicChoke1Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, volume)

  111.         if(data%problems%ChokeProblems%HydraulicChoke1Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, volume)

  112.         if(data%problems%ChokeProblems%HydraulicChoke1Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, volume)

  113.         if(data%problems%ChokeProblems%HydraulicChoke2Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, volume)

  114.         if(data%problems%ChokeProblems%HydraulicChoke2Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, volume)

  115.         if(data%problems%ChokeProblems%HydraulicChoke2Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, volume)

  116.         if(data%problems%ChokeProblems%ManualChoke1Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, volume)

  117.         if(data%problems%ChokeProblems%ManualChoke1Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, volume)

  118.         if(data%problems%ChokeProblems%ManualChoke1Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, volume)

  119.         if(data%problems%ChokeProblems%ManualChoke2Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, volume)

  120.         if(data%problems%ChokeProblems%ManualChoke2Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, volume)

  121.         if(data%problems%ChokeProblems%ManualChoke2Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, volume)

  122.         if(data%problems%ChokeProblems%ChokePanelAirFail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, volume)

  123.     end subroutine

  124. 	

  125. 	subroutine ProcessChokeProblemsDueDistanceDrilled(distance)

  126.         implicit none

  127.         real(8) :: distance

  128.         if(data%problems%ChokeProblems%HydraulicChoke1Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, distance)

  129.         if(data%problems%ChokeProblems%HydraulicChoke1Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, distance)

  130.         if(data%problems%ChokeProblems%HydraulicChoke1Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, distance)

  131.         if(data%problems%ChokeProblems%HydraulicChoke2Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, distance)

  132.         if(data%problems%ChokeProblems%HydraulicChoke2Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, distance)

  133.         if(data%problems%ChokeProblems%HydraulicChoke2Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, distance)

  134.         if(data%problems%ChokeProblems%ManualChoke1Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, distance)

  135.         if(data%problems%ChokeProblems%ManualChoke1Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, distance)

  136.         if(data%problems%ChokeProblems%ManualChoke1Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, distance)

  137.         if(data%problems%ChokeProblems%ManualChoke2Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, distance)

  138.         if(data%problems%ChokeProblems%ManualChoke2Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, distance)

  139.         if(data%problems%ChokeProblems%ManualChoke2Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, distance)

  140.         if(data%problems%ChokeProblems%ChokePanelAirFail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, distance)

  141.     end subroutine

  142. 	

  143.     

  144.     

  145.     

  146.     subroutine ChangeHydraulicChoke1Plugged(status)

  147.         USE CHOKEVARIABLES

  148. use SimulationVariables !@

  149.         implicit none

  150.         integer, intent (in) :: status

  151. ! if(associated(HydraulicChoke1PluggedPtr)) call HydraulicChoke1PluggedPtr(status)

  152.         if(status == Clear_StatusType) data%State%CHOOKE(1)%PlugMalf = 0

  153.         if(status == Executed_StatusType) data%State%CHOOKE(1)%PlugMalf = 1

  154.     endsubroutine

  155.     

  156.     subroutine ChangeHydraulicChoke1Fail(status)

  157.         USE CHOKEVARIABLES

  158. use SimulationVariables !@

  159.         implicit none

  160.         integer, intent (in) :: status

  161. ! if(associated(HydraulicChoke1FailPtr)) call HydraulicChoke1FailPtr(status)

  162.         if(status == Clear_StatusType) data%State%CHOOKE(1)%FailMalf = 0

  163.         if(status == Executed_StatusType) data%State%CHOOKE(1)%FailMalf = 1

  164.     endsubroutine

  165.     

  166.     subroutine ChangeHydraulicChoke1Washout(status)

  167.         USE CHOKEVARIABLES

  168. use SimulationVariables !@

  169.         use CChokeManifoldVariables

  170.     use SimulationVariables

  171.         implicit none

  172.         integer, intent (in) :: status

  173. ! if(associated(HydraulicChoke1WashoutPtr)) call HydraulicChoke1WashoutPtr(status)

  174.         if(status == Clear_StatusType) data%State%CHOOKE(1)%WashoutMalf = 0

  175.         if(status == Executed_StatusType) data%State%CHOOKE(1)%WashoutMalf = 1

  176.         

  177.         if(status == Clear_StatusType) data%Equipments%ChokeManifold%HyChock1OnProblem = .false.

  178.         if(status == Executed_StatusType) data%Equipments%ChokeManifold%HyChock1OnProblem = .true.

  179.     endsubroutine

  180.     

  181.     subroutine ChangeHydraulicChoke2Plugged(status)

  182.         USE CHOKEVARIABLES

  183. use SimulationVariables !@

  184.         implicit none

  185.         integer, intent (in) :: status

  186. ! if(associated(HydraulicChoke2PluggedPtr)) call HydraulicChoke2PluggedPtr(status)

  187.         if(status == Clear_StatusType) data%State%CHOOKE(2)%PlugMalf = 0

  188.         if(status == Executed_StatusType) data%State%CHOOKE(2)%PlugMalf = 1

  189.     endsubroutine

  190.     

  191.     subroutine ChangeHydraulicChoke2Fail(status)

  192.         USE CHOKEVARIABLES

  193. use SimulationVariables !@

  194.         implicit none

  195.         integer, intent (in) :: status

  196. ! if(associated(HydraulicChoke2FailPtr)) call HydraulicChoke2FailPtr(status)

  197.         if(status == Clear_StatusType) data%State%CHOOKE(2)%FailMalf = 0

  198.         if(status == Executed_StatusType) data%State%CHOOKE(2)%FailMalf = 1

  199.     endsubroutine

  200.     

  201.     subroutine ChangeHydraulicChoke2Washout(status)

  202.         USE CHOKEVARIABLES

  203. use SimulationVariables !@

  204.         use CChokeManifoldVariables

  205.     use SimulationVariables

  206.         implicit none

  207.         integer, intent (in) :: status

  208. ! if(associated(HydraulicChoke2WashoutPtr)) call HydraulicChoke2WashoutPtr(status)

  209.         if(status == Clear_StatusType) data%State%CHOOKE(2)%WashoutMalf = 0

  210.         if(status == Executed_StatusType) data%State%CHOOKE(2)%WashoutMalf = 1

  211.         

  212.         if(status == Clear_StatusType) data%Equipments%ChokeManifold%HyChock2OnProblem = .false.

  213.         if(status == Executed_StatusType) data%Equipments%ChokeManifold%HyChock2OnProblem = .true.

  214.     endsubroutine

  215.     

  216.     subroutine ChangeManualChoke1Plugged(status)

  217.         USE FricPressDropVarsModule

  218.         implicit none

  219.         integer, intent (in) :: status

  220. ! if(associated(ManualChoke1PluggedPtr)) call ManualChoke1PluggedPtr(status)

  221.         if(status == Clear_StatusType)          data%State%FricPressDrop%ManChoke1Plug = 0

  222.         if(status == Executed_StatusType)       data%State%FricPressDrop%ManChoke1Plug = 1

  223.     endsubroutine

  224.     

  225.     subroutine ChangeManualChoke1Fail(status)

  226.         implicit none

  227.         integer, intent (in) :: status

  228. ! if(associated(ManualChoke1FailPtr)) call ManualChoke1FailPtr(status)

  229. !if(status == Clear_StatusType) if(print_log) print*,'On_ManualChoke1Fail_Clear'

  230. !if(status == Executed_StatusType) if(print_log) print*,'On_ManualChoke1Fail_Execute'

  231.     endsubroutine

  232.     

  233.     subroutine ChangeManualChoke1Washout(status)

  234.         USE FricPressDropVarsModule

  235.         use CChokeManifoldVariables

  236.         use SimulationVariables

  237.         implicit none

  238.         integer, intent (in) :: status

  239. ! if(associated(ManualChoke1WashoutPtr)) call ManualChoke1WashoutPtr(status)

  240.         if(status == Clear_StatusType)          data%State%FricPressDrop%ManChoke1Washout = 0

  241.         if(status == Executed_StatusType)       data%State%FricPressDrop%ManChoke1Washout = 1

  242.         

  243.         if(status == Clear_StatusType) data%Equipments%ChokeManifold%LeftManChokeOnProblem = .false.

  244.         if(status == Executed_StatusType) data%Equipments%ChokeManifold%LeftManChokeOnProblem = .true.

  245.     endsubroutine

  246.     

  247.     subroutine ChangeManualChoke2Plugged(status)

  248.         USE FricPressDropVarsModule

  249.         implicit none

  250.         integer, intent (in) :: status

  251. ! if(associated(ManualChoke2PluggedPtr)) call ManualChoke2PluggedPtr(status)

  252.         if(status == Clear_StatusType)          data%State%FricPressDrop%ManChoke2Plug = 0

  253.         if(status == Executed_StatusType)       data%State%FricPressDrop%ManChoke2Plug = 1

  254.     endsubroutine

  255.     

  256.     subroutine ChangeManualChoke2Fail(status)

  257.         implicit none

  258.         integer, intent (in) :: status

  259. ! if(associated(ManualChoke2FailPtr)) call ManualChoke2FailPtr(status)

  260. !if(status == Clear_StatusType) if(print_log) print*,'On_ManualChoke2Fail_Clear'

  261. !if(status == Executed_StatusType) if(print_log) print*,'On_ManualChoke2Fail_Execute'

  262.     endsubroutine

  263.     

  264.     subroutine ChangeManualChoke2Washout(status)

  265.         USE FricPressDropVarsModule

  266.         use CChokeManifoldVariables

  267.     use SimulationVariables

  268.         implicit none

  269.         integer, intent (in) :: status

  270. ! if(associated(ManualChoke2WashoutPtr)) call ManualChoke2WashoutPtr(status)

  271.         if(status == Clear_StatusType)          data%State%FricPressDrop%ManChoke2Washout = 0

  272.         if(status == Executed_StatusType)       data%State%FricPressDrop%ManChoke2Washout = 1

  273.         

  274.         if(status == Clear_StatusType) data%Equipments%ChokeManifold%RightManChokeOnProblem = .false.

  275.         if(status == Executed_StatusType) data%Equipments%ChokeManifold%RightManChokeOnProblem = .true.

  276.     endsubroutine

  277.     

  278.     subroutine ChangeChokePanelAirFail(status)

  279.         USE CHOKEVARIABLES

  280. use SimulationVariables !@

  281.         implicit none

  282.         integer, intent (in) :: status

  283. ! if(associated(ChokePanelAirFailPtr)) call ChokePanelAirFailPtr(status)

  284.         if(status == Clear_StatusType) data%State%AirDrivenPump%ChokeAirFail = 0

  285.         if(status == Executed_StatusType) data%State%AirDrivenPump%ChokeAirFail = 1

  286.     endsubroutine

  287.     

  288. end module CChokeProblems