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.
42 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: d59a3f06a3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd59a3f06a3'
${ noResults }
SimulationCore2/CSharp/Equipments/DrillWatch/DrillWatch.f90

37 lines
2.0 KiB
Raw 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.         integer :: i

  10. 

  11.         ! 1. create new node

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

  13. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  33. 

  34.         call json%add(parent,p)

  35.     end subroutine

  36. 

  37. end module DrillingWatchModule