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/Equipments/DrillWatch/DrillWatch.f90

37 lines
1.9 KiB
Raw Permalink Blame History 

  1. module DrillingWatchModule

  2.     use SimulationVariables

  3.     contains

  4. 

  5.     subroutine DrillingWatchToJson(parent)

  6.         type(json_value),pointer :: parent

  7.         type(json_core) :: json

  8.         type(json_value),pointer :: p

  9. 

  10.         ! 1. create new node

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

  12. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  33. 

  34.         call json%add(parent,p)

  35.     end subroutine

  36. 

  37. end module DrillingWatchModule