module DrillingWatchModule
    use SimulationVariables
    contains

    subroutine DrillingWatchToJson(parent)
        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p

        ! 1. create new node
        call json%create_object(p,'DrillingWatch')

        call json%add(p,"Depth",data%Equipments%DrillingWatch%Depth)
        call json%add(p,"BitPosition",data%Equipments%DrillingWatch%BitPosition)
        call json%add(p,"HookLoad",data%Equipments%DrillingWatch%HookLoad)
        call json%add(p,"WeightOnBit",data%Equipments%DrillingWatch%WeightOnBit)
        call json%add(p,"RPM",data%Equipments%DrillingWatch%RPM)
        call json%add(p,"ROP",data%Equipments%DrillingWatch%ROP)
        call json%add(p,"Torque",data%Equipments%DrillingWatch%Torque)
        call json%add(p,"PumpPressure",data%Equipments%DrillingWatch%PumpPressure)
        call json%add(p,"SPM1",data%Equipments%DrillingWatch%SPM1)
        call json%add(p,"SPM2",data%Equipments%DrillingWatch%SPM2)
        call json%add(p,"CasingPressure",data%Equipments%DrillingWatch%CasingPressure)
        ! call json%add(p,"PercentFlow",50)
        call json%add(p,"PercentFlow",data%Equipments%DrillingWatch%PercentFlow)
        call json%add(p,"PitGainLose",data%Equipments%DrillingWatch%PitGainLose)
        call json%add(p,"PitVolume",data%Equipments%DrillingWatch%PitVolume)
        call json%add(p,"KillMudVolume",data%Equipments%DrillingWatch%KillMudVolume)
        call json%add(p,"TripTankVolume",data%Equipments%DrillingWatch%TripTankVolume)
        call json%add(p,"MudWeightIn",data%Equipments%DrillingWatch%MudWeightIn)
        call json%add(p,"FillVolume",data%Equipments%DrillingWatch%FillVolume)
        call json%add(p,"MudWeightOut",data%Equipments%DrillingWatch%MudWeightOut)

        call json%add(parent,p)
    end subroutine

end module DrillingWatchModule