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
 
 
 
 
 
 
Tree: a57ac8edd6
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a57ac8edd6'
${ noResults }
SimulationCore2/CSharp/Equipments/DrillWatch/DrillWatch.i90

39 lines
1.9 KiB
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/DrillWatch/DrillWatch.f90"

  2. module DrillingWatchModule

  3.     use SimulationVariables

  4.     contains

  5. 

  6.     subroutine DrillingWatchToJson(parent)

  7.         type(json_value),pointer :: parent

  8.         type(json_core) :: json

  9.         type(json_value),pointer :: p

  10. 

  11. ! 1. create new node

  12.         call json%create_object(p,'DrillingWatch')

  13. 

  14.         call json%add(p,"Depth",data%Equipments%DrillingWatch%Depth)

  15.         call json%add(p,"BitPosition",data%Equipments%DrillingWatch%BitPosition)

  16.         call json%add(p,"HookLoad",data%Equipments%DrillingWatch%HookLoad)

  17.         call json%add(p,"WeightOnBit",data%Equipments%DrillingWatch%WeightOnBit)

  18.         call json%add(p,"RPM",data%Equipments%DrillingWatch%RPM)

  19.         call json%add(p,"ROP",data%Equipments%DrillingWatch%ROP)

  20.         call json%add(p,"Torque",data%Equipments%DrillingWatch%Torque)

  21.         call json%add(p,"PumpPressure",data%Equipments%DrillingWatch%PumpPressure)

  22.         call json%add(p,"SPM1",data%Equipments%DrillingWatch%SPM1)

  23.         call json%add(p,"SPM2",data%Equipments%DrillingWatch%SPM2)

  24.         call json%add(p,"CasingPressure",data%Equipments%DrillingWatch%CasingPressure)

  25. ! call json%add(p,"PercentFlow",50)

  26.         call json%add(p,"PercentFlow",data%Equipments%DrillingWatch%PercentFlow)

  27.         call json%add(p,"PitGainLose",data%Equipments%DrillingWatch%PitGainLose)

  28.         call json%add(p,"PitVolume",data%Equipments%DrillingWatch%PitVolume)

  29.         call json%add(p,"KillMudVolume",data%Equipments%DrillingWatch%KillMudVolume)

  30.         call json%add(p,"TripTankVolume",data%Equipments%DrillingWatch%TripTankVolume)

  31.         call json%add(p,"MudWeightIn",data%Equipments%DrillingWatch%MudWeightIn)

  32.         call json%add(p,"FillVolume",data%Equipments%DrillingWatch%FillVolume)

  33.         call json%add(p,"MudWeightOut",data%Equipments%DrillingWatch%MudWeightOut)

  34. 

  35.         call json%add(parent,p)

  36.     end subroutine

  37. 

  38. end module DrillingWatchModule