mahmood19227
/
SimulationCore2
1
0
Fork 0
Código Incidencias 0 Pull Requests 0 Lanzamientos 0 Wiki Actividad
Simulation Core
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
57 Commits
2 Ramas
134 MiB
 
 
 
 
 
 
Árbol: 8619d976a7
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde '8619d976a7'
${ noResults }
SimulationCore2/CSharp/Problems/CPumpProblems.i90

160 líneas
9.7 KiB
Original Blame Histórico 

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

  2. module CPumpProblems

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public 

  6.     contains

  7.     subroutine PumpProblemsFromJson(parent)

  8.         type(json_value),pointer :: parent

  9.         type(json_core) :: json

  10.         type(json_value),pointer :: p

  11. 

  12.         call json%get(parent,'PumpProblems',p)

  13.         call ProblemFromJson(p,"Pump1PowerFail",data%problems%PumpProblems%Pump1PowerFail)

  14.         call ProblemFromJson(p,"Pump1BlowPopOffValve",data%problems%PumpProblems%Pump1BlowPopOffValve)

  15.         call ProblemFromJson(p,"Pump2PowerFail",data%problems%PumpProblems%Pump2PowerFail)

  16.         call ProblemFromJson(p,"Pump2BlowPopOffValve",data%problems%PumpProblems%Pump2BlowPopOffValve)

  17.         call ProblemFromJson(p,"CementPumpPowerFail",data%problems%PumpProblems%CementPumpPowerFail)

  18.         call ProblemFromJson(p,"CementPumpBlowPopOffValve",data%problems%PumpProblems%CementPumpBlowPopOffValve)

  19.     end subroutine

  20.     

  21.     subroutine PumpProblemsToJson(parent)

  22. 

  23.         type(json_value),pointer :: parent

  24.         type(json_core) :: json

  25.         type(json_value),pointer :: p

  26. 

  27. ! 1. create new node

  28.         call json%create_object(p,'PumpProblems')

  29.         

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

  31.         call ProblemToJson(p,"Pump1PowerFail",data%problems%PumpProblems%Pump1PowerFail)

  32.         call ProblemToJson(p,"Pump1BlowPopOffValve",data%problems%PumpProblems%Pump1BlowPopOffValve)

  33.         call ProblemToJson(p,"Pump2PowerFail",data%problems%PumpProblems%Pump2PowerFail)

  34.         call ProblemToJson(p,"Pump2BlowPopOffValve",data%problems%PumpProblems%Pump2BlowPopOffValve)

  35.         call ProblemToJson(p,"CementPumpPowerFail",data%problems%PumpProblems%CementPumpPowerFail)

  36.         call ProblemToJson(p,"CementPumpBlowPopOffValve",data%problems%PumpProblems%CementPumpBlowPopOffValve)

  37.         

  38. ! 3. add new node to parent

  39.         call json%add(parent,p)

  40.     end subroutine

  41. 

  42.     subroutine ProcessPumpProblemsDueTime(time)

  43.         implicit none

  44.         integer :: time

  45.         

  46.         if(data%problems%PumpProblems%Pump1PowerFail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%Pump1PowerFail, ChangePump1PowerFail, time)

  47.         if(data%problems%PumpProblems%Pump1BlowPopOffValve%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%Pump1BlowPopOffValve, ChangePump1BlowPopOffValve, time)

  48.         if(data%problems%PumpProblems%Pump2PowerFail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%Pump2PowerFail, ChangePump2PowerFail, time)

  49.         if(data%problems%PumpProblems%Pump2BlowPopOffValve%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%Pump2BlowPopOffValve, ChangePump2BlowPopOffValve, time)

  50.         if(data%problems%PumpProblems%CementPumpPowerFail%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%CementPumpPowerFail, ChangeCementPumpPowerFail, time)

  51.         if(data%problems%PumpProblems%CementPumpBlowPopOffValve%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%PumpProblems%CementPumpBlowPopOffValve, ChangeCementPumpBlowPopOffValve, time)

  52.         

  53.     end subroutine

  54. 	

  55. 	subroutine ProcessPumpProblemsDuePumpStrokes(strokes)

  56.         implicit none

  57.         integer :: strokes

  58.         

  59.         if(data%problems%PumpProblems%Pump1PowerFail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%Pump1PowerFail, ChangePump1PowerFail, strokes)

  60.         if(data%problems%PumpProblems%Pump1BlowPopOffValve%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%Pump1BlowPopOffValve, ChangePump1BlowPopOffValve, strokes)

  61.         if(data%problems%PumpProblems%Pump2PowerFail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%Pump2PowerFail, ChangePump2PowerFail, strokes)

  62.         if(data%problems%PumpProblems%Pump2BlowPopOffValve%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%Pump2BlowPopOffValve, ChangePump2BlowPopOffValve, strokes)

  63.         if(data%problems%PumpProblems%CementPumpPowerFail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%CementPumpPowerFail, ChangeCementPumpPowerFail, strokes)

  64.         if(data%problems%PumpProblems%CementPumpBlowPopOffValve%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%PumpProblems%CementPumpBlowPopOffValve, ChangeCementPumpBlowPopOffValve, strokes)

  65.         

  66.     end subroutine

  67. 	

  68. 	subroutine ProcessPumpProblemsDueVolumePumped(volume)

  69.         implicit none

  70.         real(8) :: volume

  71.         

  72.         if(data%problems%PumpProblems%Pump1PowerFail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%Pump1PowerFail, ChangePump1PowerFail, volume)

  73.         if(data%problems%PumpProblems%Pump1BlowPopOffValve%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%Pump1BlowPopOffValve, ChangePump1BlowPopOffValve, volume)

  74.         if(data%problems%PumpProblems%Pump2PowerFail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%Pump2PowerFail, ChangePump2PowerFail, volume)

  75.         if(data%problems%PumpProblems%Pump2BlowPopOffValve%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%Pump2BlowPopOffValve, ChangePump2BlowPopOffValve, volume)

  76.         if(data%problems%PumpProblems%CementPumpPowerFail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%CementPumpPowerFail, ChangeCementPumpPowerFail, volume)

  77.         if(data%problems%PumpProblems%CementPumpBlowPopOffValve%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%PumpProblems%CementPumpBlowPopOffValve, ChangeCementPumpBlowPopOffValve, volume)

  78.         

  79.     end subroutine

  80. 	

  81. 	subroutine ProcessPumpProblemsDueDistanceDrilled(distance)

  82.         implicit none

  83.         real(8) :: distance

  84.         

  85.         if(data%problems%PumpProblems%Pump1PowerFail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%Pump1PowerFail, ChangePump1PowerFail, distance)

  86.         if(data%problems%PumpProblems%Pump1BlowPopOffValve%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%Pump1BlowPopOffValve, ChangePump1BlowPopOffValve, distance)

  87.         if(data%problems%PumpProblems%Pump2PowerFail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%Pump2PowerFail, ChangePump2PowerFail, distance)

  88.         if(data%problems%PumpProblems%Pump2BlowPopOffValve%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%Pump2BlowPopOffValve, ChangePump2BlowPopOffValve, distance)

  89.         if(data%problems%PumpProblems%CementPumpPowerFail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%CementPumpPowerFail, ChangeCementPumpPowerFail, distance)

  90.         if(data%problems%PumpProblems%CementPumpBlowPopOffValve%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%PumpProblems%CementPumpBlowPopOffValve, ChangeCementPumpBlowPopOffValve, distance)

  91.         

  92.     end subroutine

  93. 	

  94. 	

  95. 	

  96. 	

  97. 	

  98. 	

  99. 	

  100. 	

  101. 	

  102. 	

  103.     

  104.     subroutine ChangePump1PowerFail(status)

  105.         use SimulationVariables

  106.         implicit none

  107.         integer, intent (in) :: status

  108. !if(associated(Pump1PowerFailPtr)) call Pump1PowerFailPtr(status)

  109.         if(status == Clear_StatusType)     data%State%Pump(1)%PowerFailMalf=0

  110.         if(status == Executed_StatusType)  data%State%Pump(1)%PowerFailMalf=1

  111.     endsubroutine

  112.     

  113.     subroutine ChangePump1BlowPopOffValve(status)

  114.         use SimulationVariables

  115.         implicit none

  116.         integer, intent (in) :: status

  117. !if(associated(Pump1BlowPopOffValvePtr)) call Pump1BlowPopOffValvePtr(status)

  118.         if(status == Clear_StatusType)     data%State%Pump(1)%BlowPopOffMalf=0

  119.         if(status == Executed_StatusType)  data%State%Pump(1)%BlowPopOffMalf=1

  120.     endsubroutine

  121.     

  122.     subroutine ChangePump2PowerFail(status)

  123.         use SimulationVariables

  124.         implicit none

  125.         integer, intent (in) :: status

  126. !if(associated(Pump2PowerFailPtr)) call Pump2PowerFailPtr(status)

  127.         if(status == Clear_StatusType)     data%State%Pump(2)%PowerFailMalf=0

  128.         if(status == Executed_StatusType)  data%State%Pump(2)%PowerFailMalf=1

  129.     endsubroutine

  130.     

  131.     subroutine ChangePump2BlowPopOffValve(status)

  132.         use SimulationVariables

  133.         implicit none

  134.         integer, intent (in) :: status

  135. !if(associated(Pump2BlowPopOffValvePtr)) call Pump2BlowPopOffValvePtr(status)

  136.         if(status == Clear_StatusType)     data%State%Pump(2)%BlowPopOffMalf=0

  137.         if(status == Executed_StatusType)  data%State%Pump(2)%BlowPopOffMalf=1

  138.     endsubroutine

  139.     

  140.     subroutine ChangeCementPumpPowerFail(status)

  141.         use SimulationVariables

  142.         implicit none

  143.         integer, intent (in) :: status

  144. !if(associated(CementPumpPowerFailPtr)) call CementPumpPowerFailPtr(status)

  145.         if(status == Clear_StatusType)    data%State%Pump(3)%PowerFailMalf=0

  146.         if(status == Executed_StatusType) data%State%Pump(3)%PowerFailMalf=1

  147.     endsubroutine

  148.     

  149.     subroutine ChangeCementPumpBlowPopOffValve(status)

  150.         use SimulationVariables

  151.         implicit none

  152.         integer, intent (in) :: status

  153. !if(associated(CementPumpBlowPopOffValvePtr)) call CementPumpBlowPopOffValvePtr(status)

  154.         if(status == Clear_StatusType)    data%State%Pump(3)%BlowPopOffMalf=0

  155.         if(status == Executed_StatusType) data%State%Pump(3)%BlowPopOffMalf=1

  156.     endsubroutine

  157.     

  158. 

  159. end module CPumpProblems