mahmood19227
/
SimulationCore2
1
0
Креирај огранак 0
Код Дискусије 0 Захтеви за спајање 0 Издања 0 Вики 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.
68 Комити
2 Гране
134 MiB
 
 
 
 
 
 
Дрво: 14f31e09cb
Гране Ознаке
${ item.name }
Create branch ${ searchTerm }
from '14f31e09cb'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CBopControlPanel.i90

199 lines
8.4 KiB
Датотека Blame Историја 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CBopControlPanel.f90"

  2. module CBopControlPanel

  3. ! use CBopControlPanel

  4.     use SimulationVariables

  5.     implicit none    

  6.     public    

  7.     contains

  8. 

  9.     subroutine BopControlPanelFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13. 

  14. ! 1. get related root

  15.         call json%get(parent,'BopControl',p)

  16. 		call json%get(p,'AirMasterValve',pval)

  17. 		call json%get(pval,data%Equipments%BopControlPanel%AirMasterValve)

  18. 		call json%get(p,'ByePassValve',pval)

  19. 		call json%get(pval,data%Equipments%BopControlPanel%ByePassValve)

  20. 		call json%get(p,'AnnularValve',pval)

  21. 		call json%get(pval,data%Equipments%BopControlPanel%AnnularValve)

  22. 		call json%get(p,'UpperRamsValve',pval)

  23. 		call json%get(pval,data%Equipments%BopControlPanel%UpperRamsValve)

  24. 		call json%get(p,'MiddleRamsValve',pval)

  25. 		call json%get(pval,data%Equipments%BopControlPanel%MiddleRamsValve)

  26. 		call json%get(p,'KillLineValve',pval)

  27. 		call json%get(pval,data%Equipments%BopControlPanel%KillLineValve)

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

  29. 		call json%get(pval,data%Equipments%BopControlPanel%ChokeLineValve)

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

  31. 		call json%get(pval,data%Equipments%BopControlPanel%LowerRamsValve)

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

  33. ! call json%get(pval,data%Equipments%BopControlPanel%ManifoldPressureGauge)

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

  35. ! call json%get(pval,data%Equipments%BopControlPanel%AirSupplyPressureGauge)

  36. ! call json%get(p,'AccumulatorPressureGauge',pval)

  37. ! call json%get(pval,data%Equipments%BopControlPanel%AccumulatorPressureGauge)

  38. ! call json%get(p,'AnnularPressureGauge',pval)

  39. ! call json%get(pval,data%Equipments%BopControlPanel%AnnularPressureGauge)

  40. ! call json%get(p,'AnnularOpenLED',pval)

  41. ! call json%get(pval,data%Equipments%BopControlPanel%AnnularOpenLED)

  42. ! call json%get(p,'AnnularCloseLED',pval)

  43. ! call json%get(pval,data%Equipments%BopControlPanel%AnnularCloseLED)

  44. ! call json%get(p,'UpperRamsOpenLED',pval)

  45. ! call json%get(pval,data%Equipments%BopControlPanel%UpperRamsOpenLED)

  46. ! call json%get(p,'UpperRamsCloseLED',pval)

  47. ! call json%get(pval,data%Equipments%BopControlPanel%UpperRamsCloseLED)

  48. ! call json%get(p,'MiddleRamsOpenLED',pval)

  49. ! call json%get(pval,data%Equipments%BopControlPanel%MiddleRamsOpenLED)

  50. ! call json%get(p,'MiddleRamsCloseLED',pval)

  51. ! call json%get(pval,data%Equipments%BopControlPanel%MiddleRamsCloseLED)

  52. ! call json%get(p,'KillLineOpenLED',pval)

  53. ! call json%get(pval,data%Equipments%BopControlPanel%KillLineOpenLED)

  54. ! call json%get(p,'KillLineCloseLED',pval)

  55. ! call json%get(pval,data%Equipments%BopControlPanel%KillLineCloseLED)

  56. ! call json%get(p,'ChokeLineOpenLED',pval)

  57. ! call json%get(pval,data%Equipments%BopControlPanel%ChokeLineOpenLED)

  58. ! call json%get(p,'ChokeLineCloseLED',pval)

  59. ! call json%get(pval,data%Equipments%BopControlPanel%ChokeLineCloseLED)

  60. ! call json%get(p,'LowerRamsOpenLED',pval)

  61. ! call json%get(pval,data%Equipments%BopControlPanel%LowerRamsOpenLED)

  62. ! call json%get(p,'LowerRamsCloseLED',pval)

  63. ! call json%get(pval,data%Equipments%BopControlPanel%LowerRamsCloseLED)

  64. ! call json%get(p,'AnnularStatus',pval)

  65. ! call json%get(pval,data%Equipments%BopControlPanel%AnnularStatus)

  66. ! call json%get(p,'UpperRamsStatus',pval)

  67. ! call json%get(pval,data%Equipments%BopControlPanel%UpperRamsStatus)

  68. ! call json%get(p,'MiddleRamsStatus',pval)

  69. ! call json%get(pval,data%Equipments%BopControlPanel%MiddleRamsStatus)

  70. ! call json%get(p,'LowerRamsStatus',pval)

  71. ! call json%get(pval,data%Equipments%BopControlPanel%LowerRamsStatus)

  72. 

  73.         call json%get(p,'AnnularRegulatorSetControl',pval)

  74. 		call json%get(pval,data%Equipments%BopControlPanel%AnnularRegulatorSetControl)

  75. ! 2. get member of data type from node

  76.     end subroutine

  77. 

  78.     subroutine BopControlPanelToJson(parent)

  79. 

  80.         type(json_value),pointer :: parent

  81.         type(json_core) :: json

  82.         type(json_value),pointer :: p

  83. 

  84. ! 1. create new node

  85.         call json%create_object(p,'BopControl')

  86.         

  87. ! call json%add(p,"AnnularRegulatorSetControl",data%Equipments%BopControlPanel%AnnularRegulatorSetControl)

  88.         call json%add(p,"AirMasterValve",data%Equipments%BopControlPanel%AirMasterValve)

  89.         call json%add(p,"ByePassValve",data%Equipments%BopControlPanel%ByePassValve)

  90. ! call json%add(p,"AnnularValve",data%Equipments%BopControlPanel%AnnularValve)

  91. ! call json%add(p,"UpperRamsValve",data%Equipments%BopControlPanel%UpperRamsValve)

  92. ! call json%add(p,"MiddleRamsValve",data%Equipments%BopControlPanel%MiddleRamsValve)

  93. ! call json%add(p,"KillLineValve",data%Equipments%BopControlPanel%KillLineValve)

  94. ! call json%add(p,"ChokeLineValve",data%Equipments%BopControlPanel%ChokeLineValve)

  95. ! call json%add(p,"LowerRamsValve",data%Equipments%BopControlPanel%LowerRamsValve)

  96.         call json%add(p,"ManifoldPressureGauge",data%Equipments%BopControlPanel%ManifoldPressureGauge)

  97.         call json%add(p,"AirSupplyPressureGauge",data%Equipments%BopControlPanel%AirSupplyPressureGauge)

  98.         call json%add(p,"AccumulatorPressureGauge",data%Equipments%BopControlPanel%AccumulatorPressureGauge)

  99.         call json%add(p,"AnnularPressureGauge",data%Equipments%BopControlPanel%AnnularPressureGauge)

  100.         call json%add(p,"AnnularOpenLED",data%Equipments%BopControlPanel%AnnularOpenLED)

  101.         call json%add(p,"AnnularCloseLED",data%Equipments%BopControlPanel%AnnularCloseLED)

  102.         call json%add(p,"UpperRamsOpenLED",data%Equipments%BopControlPanel%UpperRamsOpenLED)

  103.         call json%add(p,"UpperRamsCloseLED",data%Equipments%BopControlPanel%UpperRamsCloseLED)

  104.         call json%add(p,"MiddleRamsOpenLED",data%Equipments%BopControlPanel%MiddleRamsOpenLED)

  105.         call json%add(p,"MiddleRamsCloseLED",data%Equipments%BopControlPanel%MiddleRamsCloseLED)

  106.         call json%add(p,"KillLineOpenLED",data%Equipments%BopControlPanel%KillLineOpenLED)

  107.         call json%add(p,"KillLineCloseLED",data%Equipments%BopControlPanel%KillLineCloseLED)

  108.         call json%add(p,"ChokeLineOpenLED",data%Equipments%BopControlPanel%ChokeLineOpenLED)

  109.         call json%add(p,"ChokeLineCloseLED",data%Equipments%BopControlPanel%ChokeLineCloseLED)

  110.         call json%add(p,"LowerRamsOpenLED",data%Equipments%BopControlPanel%LowerRamsOpenLED)

  111.         call json%add(p,"LowerRamsCloseLED",data%Equipments%BopControlPanel%LowerRamsCloseLED)

  112.         call json%add(p,"AnnularStatus",data%Equipments%BopControlPanel%AnnularStatus)

  113.         call json%add(p,"UpperRamsStatus",data%Equipments%BopControlPanel%UpperRamsStatus)

  114.         call json%add(p,"MiddleRamsStatus",data%Equipments%BopControlPanel%MiddleRamsStatus)

  115.         call json%add(p,"LowerRamsStatus",data%Equipments%BopControlPanel%LowerRamsStatus)    

  116. 

  117.         call json%add(parent,p)

  118.     end subroutine

  119. 

  120. 

  121. 

  122.     subroutine OpenAnnular()

  123.         use CManifolds

  124.         implicit none

  125.         call ChangeValve(52, .true.)

  126.     end subroutine

  127.     

  128.     subroutine CloseAnnular()

  129.         use CManifolds

  130.         implicit none

  131.         call ChangeValve(52, .false.)

  132.     end subroutine

  133.     

  134.     subroutine OpenUpperRams()

  135.         use CManifolds

  136.         implicit none

  137.         call ChangeValve(51, .true.)

  138.     end subroutine

  139.     

  140.     subroutine CloseUpperRams()

  141.         use CManifolds

  142.         implicit none

  143.         call ChangeValve(51, .false.)

  144.     end subroutine

  145.     

  146.     subroutine OpenMiddleRams()

  147.         use CManifolds

  148.         implicit none

  149.         call ToggleMiddleRams(.true.)

  150.     end subroutine

  151.     

  152.     subroutine CloseMiddleRams()

  153.         use CManifolds

  154.         implicit none

  155.         call ToggleMiddleRams(.false.)

  156.     end subroutine

  157.     

  158.     subroutine OpenKillLine()

  159.         use CManifolds

  160.         implicit none

  161.         call ChangeValve(46, .true.)        

  162.     end subroutine

  163.     

  164.     subroutine CloseKillLine()

  165.         use CManifolds

  166.         implicit none

  167.         call ChangeValve(46, .false.)        

  168.     end subroutine

  169.     

  170.     subroutine OpenChokeLine()

  171.         use CManifolds

  172.         implicit none

  173.         call ChangeValve(47, .true.)

  174. !WRITE (*,*) ' valve 47 true '

  175.     end subroutine

  176.     

  177.     subroutine CloseChokeLine()

  178.         use CManifolds

  179.         implicit none

  180.         call ChangeValve(47, .false.)

  181. !WRITE (*,*) ' valve 47 false '

  182.     end subroutine

  183.     

  184.     subroutine OpenLowerRams()

  185.         use CManifolds

  186.         implicit none

  187.         call ChangeValve(49, .true.)

  188. !WRITE (*,*) ' valve 49 true '

  189.     end subroutine

  190.     

  191.     subroutine CloseLowerRams()

  192.         use CManifolds

  193.         implicit none

  194.         call ChangeValve(49, .false.)

  195. !WRITE (*,*) ' valve 49 false '

  196.     end subroutine

  197. 

  198.  end module CBopControlPanel