mahmood19227
/
SimulationCore2
1
0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
57 Revīzijas
2 Atzari
134 MiB
 
 
 
 
 
 
Koks: 8619d976a7
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no '8619d976a7'
${ noResults }
SimulationCore2/CSharp/Problems/COtherProblems.i90

216 rindas
13 KiB
Neapstrādāts Vainot Vēsture 

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

  2. module COtherProblems

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public 

  6.     contains

  7.     subroutine OtherProblemsFromJson(parent)

  8.         type(json_value),pointer :: parent

  9.         type(json_core) :: json

  10.         type(json_value),pointer :: p

  11. 

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

  13.         call ProblemFromJson(p,"RigAlarm",data%problems%OtherProblems%RigAlarm)

  14.         call ProblemFromJson(p,"RigWaterSupply",data%problems%OtherProblems%RigWaterSupply)

  15.         call ProblemFromJson(p,"RigAir",data%problems%OtherProblems%RigAir)

  16.         call ProblemFromJson(p,"Gen1",data%problems%OtherProblems%Gen1)

  17.         call ProblemFromJson(p,"Gen2",data%problems%OtherProblems%Gen2)

  18.         call ProblemFromJson(p,"Gen3",data%problems%OtherProblems%Gen3)

  19.         call ProblemFromJson(p,"Gen4",data%problems%OtherProblems%Gen4)

  20.         call ProblemFromJson(p,"Scr1",data%problems%OtherProblems%Scr1)

  21.         call ProblemFromJson(p,"Scr2",data%problems%OtherProblems%Scr2)

  22.         call ProblemFromJson(p,"Scr3",data%problems%OtherProblems%Scr3)

  23.         call ProblemFromJson(p,"Scr4",data%problems%OtherProblems%Scr4)

  24.     end subroutine

  25. 

  26.     subroutine OtherProblemsToJson(parent)

  27. 

  28.         type(json_value),pointer :: parent

  29.         type(json_core) :: json

  30.         type(json_value),pointer :: p

  31. 

  32. ! 1. create new node

  33.         call json%create_object(p,'OtherProblems')

  34.         

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

  36.         call ProblemToJson(p,"RigAlarm",data%problems%OtherProblems%RigAlarm)

  37.         call ProblemToJson(p,"RigWaterSupply",data%problems%OtherProblems%RigWaterSupply)

  38.         call ProblemToJson(p,"RigAir",data%problems%OtherProblems%RigAir)

  39.         call ProblemToJson(p,"Gen1",data%problems%OtherProblems%Gen1)

  40.         call ProblemToJson(p,"Gen2",data%problems%OtherProblems%Gen2)

  41.         call ProblemToJson(p,"Gen3",data%problems%OtherProblems%Gen3)

  42.         call ProblemToJson(p,"Gen4",data%problems%OtherProblems%Gen4)

  43.         call ProblemToJson(p,"Scr1",data%problems%OtherProblems%Scr1)

  44.         call ProblemToJson(p,"Scr2",data%problems%OtherProblems%Scr2)

  45.         call ProblemToJson(p,"Scr3",data%problems%OtherProblems%Scr3)

  46.         call ProblemToJson(p,"Scr4",data%problems%OtherProblems%Scr4)

  47. 

  48. ! 3. add new node to parent

  49.         call json%add(parent,p)

  50.     end subroutine

  51. 

  52.     subroutine ProcessOtherProblemsDueTime(time)

  53.         implicit none

  54.         integer :: time

  55.         

  56.         if(data%problems%OtherProblems%RigAlarm%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%RigAlarm, ChangeRigAlarm, time)

  57.         if(data%problems%OtherProblems%RigWaterSupply%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%RigWaterSupply, ChangeRigWaterSupply, time)

  58.         if(data%problems%OtherProblems%RigAir%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%RigAir, ChangeRigAir, time)

  59.         if(data%problems%OtherProblems%Gen1%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Gen1, ChangeGen1, time)

  60.         if(data%problems%OtherProblems%Gen2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Gen2, ChangeGen2, time)

  61.         if(data%problems%OtherProblems%Gen3%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Gen3, ChangeGen3, time)

  62.         if(data%problems%OtherProblems%Gen4%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Gen4, ChangeGen4, time)

  63.         if(data%problems%OtherProblems%Scr1%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Scr1, ChangeScr1, time)

  64.         if(data%problems%OtherProblems%Scr2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Scr2, ChangeScr2, time)

  65.         if(data%problems%OtherProblems%Scr3%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Scr3, ChangeScr3, time)

  66.         if(data%problems%OtherProblems%Scr4%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%OtherProblems%Scr4, ChangeScr4, time)

  67.         

  68.     end subroutine

  69. 	

  70. 	subroutine ProcessOtherProblemsDuePumpStrokes(strokes)

  71.         implicit none

  72.         integer :: strokes

  73.         

  74.         if(data%problems%OtherProblems%RigAlarm%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%RigAlarm, ChangeRigAlarm, strokes)

  75.         if(data%problems%OtherProblems%RigWaterSupply%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%RigWaterSupply, ChangeRigWaterSupply, strokes)

  76.         if(data%problems%OtherProblems%RigAir%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%RigAir, ChangeRigAir, strokes)

  77.         if(data%problems%OtherProblems%Gen1%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Gen1, ChangeGen1, strokes)

  78.         if(data%problems%OtherProblems%Gen2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Gen2, ChangeGen2, strokes)

  79.         if(data%problems%OtherProblems%Gen3%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Gen3, ChangeGen3, strokes)

  80.         if(data%problems%OtherProblems%Gen4%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Gen4, ChangeGen4, strokes)

  81.         if(data%problems%OtherProblems%Scr1%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Scr1, ChangeScr1, strokes)

  82.         if(data%problems%OtherProblems%Scr2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Scr2, ChangeScr2, strokes)

  83.         if(data%problems%OtherProblems%Scr3%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Scr3, ChangeScr3, strokes)

  84.         if(data%problems%OtherProblems%Scr4%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%OtherProblems%Scr4, ChangeScr4, strokes)

  85.         

  86.     end subroutine

  87. 	

  88. 	subroutine ProcessOtherProblemsDueVolumePumped(volume)

  89.         implicit none

  90.         real(8) :: volume

  91.         

  92.         if(data%problems%OtherProblems%RigAlarm%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%RigAlarm, ChangeRigAlarm, volume)

  93.         if(data%problems%OtherProblems%RigWaterSupply%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%RigWaterSupply, ChangeRigWaterSupply, volume)

  94.         if(data%problems%OtherProblems%RigAir%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%RigAir, ChangeRigAir, volume)

  95.         if(data%problems%OtherProblems%Gen1%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Gen1, ChangeGen1, volume)

  96.         if(data%problems%OtherProblems%Gen2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Gen2, ChangeGen2, volume)

  97.         if(data%problems%OtherProblems%Gen3%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Gen3, ChangeGen3, volume)

  98.         if(data%problems%OtherProblems%Gen4%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Gen4, ChangeGen4, volume)

  99.         if(data%problems%OtherProblems%Scr1%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Scr1, ChangeScr1, volume)

  100.         if(data%problems%OtherProblems%Scr2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Scr2, ChangeScr2, volume)

  101.         if(data%problems%OtherProblems%Scr3%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Scr3, ChangeScr3, volume)

  102.         if(data%problems%OtherProblems%Scr4%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%OtherProblems%Scr4, ChangeScr4, volume)

  103.         

  104.     end subroutine

  105. 	

  106. 	subroutine ProcessOtherProblemsDueDistanceDrilled(distance)

  107.         implicit none

  108.         real(8) :: distance

  109.         

  110.         if(data%problems%OtherProblems%RigAlarm%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%RigAlarm, ChangeRigAlarm, distance)

  111.         if(data%problems%OtherProblems%RigWaterSupply%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%RigWaterSupply, ChangeRigWaterSupply, distance)

  112.         if(data%problems%OtherProblems%RigAir%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%RigAir, ChangeRigAir, distance)

  113.         if(data%problems%OtherProblems%Gen1%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Gen1, ChangeGen1, distance)

  114.         if(data%problems%OtherProblems%Gen2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Gen2, ChangeGen2, distance)

  115.         if(data%problems%OtherProblems%Gen3%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Gen3, ChangeGen3, distance)

  116.         if(data%problems%OtherProblems%Gen4%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Gen4, ChangeGen4, distance)

  117.         if(data%problems%OtherProblems%Scr1%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Scr1, ChangeScr1, distance)

  118.         if(data%problems%OtherProblems%Scr2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Scr2, ChangeScr2, distance)

  119.         if(data%problems%OtherProblems%Scr3%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Scr3, ChangeScr3, distance)

  120.         if(data%problems%OtherProblems%Scr4%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%OtherProblems%Scr4, ChangeScr4, distance)

  121.         

  122.     end subroutine

  123.     

  124.     

  125.     subroutine ChangeRigAlarm(status)

  126.         implicit none

  127.         integer, intent (in) :: status

  128. !if(associated(RigAlarmPtr)) call RigAlarmPtr(status)

  129. !if(status == Clear_StatusType) print*,'On_RigAlarm_Clear'

  130. !if(status == Executed_StatusType) print*,'On_RigAlarm_Execute'

  131.     endsubroutine

  132.     

  133.     subroutine ChangeRigWaterSupply(status)

  134.         implicit none

  135.         integer, intent (in) :: status

  136. !if(associated(RigWaterSupplyPtr)) call RigWaterSupplyPtr(status)

  137. !if(status == Clear_StatusType) print*,'On_RigWaterSupply_Clear'

  138. !if(status == Executed_StatusType) print*,'On_RigWaterSupply_Execute'

  139.     endsubroutine

  140.     

  141.     subroutine ChangeRigAir(status)

  142.         use SimulationVariables

  143.         implicit none

  144.         integer, intent (in) :: status

  145. !if(associated(RigAirPtr)) call RigAirPtr(status)

  146.         if(status == Clear_StatusType)          data%State%BopStackAcc%RigAirMalf = 0

  147.         if(status == Executed_StatusType)       data%State%BopStackAcc%RigAirMalf = 1

  148.     endsubroutine

  149.     

  150.     subroutine ChangeGen1(status)

  151.         implicit none

  152.         integer, intent (in) :: status

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

  154. !if(status == Clear_StatusType) print*,'On_Gen1_Clear'

  155. !if(status == Executed_StatusType) print*,'On_Gen1_Execute'

  156.     endsubroutine

  157.     

  158.     subroutine ChangeGen2(status)

  159.         implicit none

  160.         integer, intent (in) :: status

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

  162. !if(status == Clear_StatusType) print*,'On_Gen2_Clear'

  163. !if(status == Executed_StatusType) print*,'On_Gen2_Execute'

  164.     endsubroutine

  165.     

  166.     subroutine ChangeGen3(status)

  167.         implicit none

  168.         integer, intent (in) :: status

  169. !if(associated(Gen3Ptr)) call Gen3Ptr(status)

  170. !if(status == Clear_StatusType) print*,'On_Gen3_Clear'

  171. !if(status == Executed_StatusType) print*,'On_Gen3_Execute'

  172.     endsubroutine

  173.     

  174.     subroutine ChangeGen4(status)

  175.         implicit none

  176.         integer, intent (in) :: status

  177. !if(associated(Gen4Ptr)) call Gen4Ptr(status)

  178. !if(status == Clear_StatusType) print*,'On_Gen4_Clear'

  179. !if(status == Executed_StatusType) print*,'On_Gen4_Execute'

  180.     endsubroutine

  181.     

  182.     subroutine ChangeScr1(status)

  183.         implicit none

  184.         integer, intent (in) :: status

  185. !if(associated(Scr1Ptr)) call Scr1Ptr(status)

  186. !if(status == Clear_StatusType) print*,'On_Scr1_Clear'

  187. !if(status == Executed_StatusType) print*,'On_Scr1_Execute'

  188.     endsubroutine

  189.     

  190.     subroutine ChangeScr2(status)

  191.         implicit none

  192.         integer, intent (in) :: status

  193. !if(associated(Scr2Ptr)) call Scr2Ptr(status)

  194. !if(status == Clear_StatusType) print*,'On_Scr2_Clear'

  195. !if(status == Executed_StatusType) print*,'On_Scr2_Execute'

  196.     endsubroutine

  197.     

  198.     subroutine ChangeScr3(status)

  199.         implicit none

  200.         integer, intent (in) :: status

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

  202. !if(status == Clear_StatusType) print*,'On_Scr3_Clear'

  203. !if(status == Executed_StatusType) print*,'On_Scr3_Execute'

  204.     endsubroutine

  205.     

  206.     subroutine ChangeScr4(status)

  207.         implicit none

  208.         integer, intent (in) :: status

  209. !if(associated(Scr4Ptr)) call Scr4Ptr(status)

  210. !if(status == Clear_StatusType) print*,'On_Scr4_Clear'

  211. !if(status == Executed_StatusType) print*,'On_Scr4_Execute'

  212.     endsubroutine

  213. 

  214. 

  215. end module COtherProblems