module CDrillingConsole use CDrillingConsoleVariables use SimulationVariables use SimulationVariables ! use CSimulationVariables use CLog4 use CLog3 implicit none public contains subroutine DrillingConsoleToJson(parent) type(json_value),pointer :: parent type(json_core) :: json type(json_value),pointer :: p ! 1. create new node call json%create_object(p,'Drilling') call json%add(p,"AssignmentSwitch",data%EquipmentControl%DrillingConsole%AssignmentSwitch) call json%add(p,"EmergencySwitch",data%EquipmentControl%DrillingConsole%EmergencySwitch) call json%add(p,"RTTorqueLimitKnob",data%EquipmentControl%DrillingConsole%RTTorqueLimitKnob) call json%add(p,"MP1CPSwitchI",data%EquipmentControl%DrillingConsole%MP1CPSwitchI) call json%add(p,"MP1CPSwitchT",data%EquipmentControl%DrillingConsole%MP1CPSwitchT) call json%add(p,"MP1CPSwitch",data%EquipmentControl%DrillingConsole%MP1CPSwitch) call json%add(p,"MP1ThrottleUpdate",data%EquipmentControl%DrillingConsole%MP1ThrottleUpdate) call json%add(p,"MP1Throttle",data%EquipmentControl%DrillingConsole%MP1Throttle) call json%add(p,"MP2SwitchI",data%EquipmentControl%DrillingConsole%MP2SwitchI) call json%add(p,"MP2SwitchT",data%EquipmentControl%DrillingConsole%MP2SwitchT) call json%add(p,"MP2Switch",data%EquipmentControl%DrillingConsole%MP2Switch) call json%add(p,"MP2ThrottleUpdate",data%EquipmentControl%DrillingConsole%MP2ThrottleUpdate) call json%add(p,"MP2Throttle",data%EquipmentControl%DrillingConsole%MP2Throttle) call json%add(p,"DWSwitch",data%EquipmentControl%DrillingConsole%DWSwitch) call json%add(p,"DWThrottle",data%EquipmentControl%DrillingConsole%DWThrottle) call json%add(p,"RTSwitch",data%EquipmentControl%DrillingConsole%RTSwitch) call json%add(p,"RTThrottle",data%EquipmentControl%DrillingConsole%RTThrottle) call json%add(p,"DWBreak",data%EquipmentControl%DrillingConsole%DWBreak) call json%add(p,"PreviousDWBreak",data%EquipmentControl%DrillingConsole%PreviousDWBreak) call json%add(p,"ForceBreak",data%EquipmentControl%DrillingConsole%ForceBreak) call json%add(p,"DWAcceleretor",data%EquipmentControl%DrillingConsole%DWAcceleretor) call json%add(p,"DWTransmisionLever",data%EquipmentControl%DrillingConsole%DWTransmisionLever) call json%add(p,"DWPowerLever",data%EquipmentControl%DrillingConsole%DWPowerLever) call json%add(p,"TongLever",data%EquipmentControl%DrillingConsole%TongLever) call json%add(p,"RTTransmissionLever",data%EquipmentControl%DrillingConsole%RTTransmissionLever) call json%add(p,"DWClutchLever",data%EquipmentControl%DrillingConsole%DWClutchLever) call json%add(p,"EddyBreakLever",data%EquipmentControl%DrillingConsole%EddyBreakLever) call json%add(p,"AutoDW",data%EquipmentControl%DrillingConsole%AutoDW) call json%add(p,"GEN1",data%EquipmentControl%DrillingConsole%GEN1) call json%add(p,"GEN2",data%EquipmentControl%DrillingConsole%GEN2) call json%add(p,"GEN3",data%EquipmentControl%DrillingConsole%GEN3) call json%add(p,"GEN4",data%EquipmentControl%DrillingConsole%GEN4) call json%add(p,"Permission_OpenKellyCock",data%EquipmentControl%DrillingConsole%Permission_OpenKellyCock) call json%add(p,"OpenKellyCock",data%EquipmentControl%DrillingConsole%OpenKellyCock) call json%add(p,"Permission_CloseKellyCock",data%EquipmentControl%DrillingConsole%Permission_CloseKellyCock) call json%add(p,"CloseKellyCock",data%EquipmentControl%DrillingConsole%CloseKellyCock) call json%add(p,"Permission_OpenSafetyValve",data%EquipmentControl%DrillingConsole%Permission_OpenSafetyValve) call json%add(p,"OpenSafetyValve",data%EquipmentControl%DrillingConsole%OpenSafetyValve) call json%add(p,"Permission_CloseSafetyValve",data%EquipmentControl%DrillingConsole%Permission_CloseSafetyValve) call json%add(p,"CloseSafetyValve",data%EquipmentControl%DrillingConsole%CloseSafetyValve) call json%add(p,"Permission_IRSafetyValve",data%EquipmentControl%DrillingConsole%Permission_IRSafetyValve) call json%add(p,"IRSafetyValve",data%EquipmentControl%DrillingConsole%IRSafetyValve) call json%add(p,"Permission_IRIBop",data%EquipmentControl%DrillingConsole%Permission_IRIBop) call json%add(p,"IRIBop",data%EquipmentControl%DrillingConsole%IRIBop) call json%add(p,"LatchPipe",data%EquipmentControl%DrillingConsole%LatchPipe) call json%add(p,"UnlatchPipe",data%EquipmentControl%DrillingConsole%UnlatchPipe) call json%add(p,"Swing",data%EquipmentControl%DrillingConsole%Swing) call json%add(p,"FillMouseHole",data%EquipmentControl%DrillingConsole%FillMouseHole) call json%add(p,"Slips",data%EquipmentControl%DrillingConsole%Slips) call json%add(p,"BrakeLeverCoefficient",data%EquipmentControl%DrillingConsole%BrakeLeverCoefficient) call json%add(p,"HideDrillingBrake",data%EquipmentControl%DrillingConsole%HideDrillingBrake) call json%add(p,"ParkingBrakeBtn",data%EquipmentControl%DrillingConsole%ParkingBrakeBtn) call json%add(p,"ParkingBrakeLed",data%EquipmentControl%DrillingConsole%ParkingBrakeLed) call json%add(p,"GEN1LED",data%EquipmentControl%DrillingConsole%GEN1LED) call json%add(p,"GEN2LED",data%EquipmentControl%DrillingConsole%GEN2LED) call json%add(p,"GEN3LED",data%EquipmentControl%DrillingConsole%GEN3LED) call json%add(p,"GEN4LED",data%EquipmentControl%DrillingConsole%GEN4LED) call json%add(p,"SCR1LED",data%EquipmentControl%DrillingConsole%SCR1LED) call json%add(p,"SCR2LED",data%EquipmentControl%DrillingConsole%SCR2LED) call json%add(p,"SCR3LED",data%EquipmentControl%DrillingConsole%SCR3LED) call json%add(p,"SCR4LED",data%EquipmentControl%DrillingConsole%SCR4LED) call json%add(p,"MP1BLWR",data%EquipmentControl%DrillingConsole%MP1BLWR) call json%add(p,"MP2BLWR",data%EquipmentControl%DrillingConsole%MP2BLWR) call json%add(p,"DWBLWR",data%EquipmentControl%DrillingConsole%DWBLWR) call json%add(p,"RTBLWR",data%EquipmentControl%DrillingConsole%RTBLWR) call json%add(p,"PWRLIM",data%EquipmentControl%DrillingConsole%PWRLIM) call json%add(p,"PWRLIMMTR",data%EquipmentControl%DrillingConsole%PWRLIMMTR) call json%add(p,"RTTorqueLimitGauge",data%EquipmentControl%DrillingConsole%RTTorqueLimitGauge) call json%add(p,"AutoDWLED",data%EquipmentControl%DrillingConsole%AutoDWLED) call json%add(p,"GEN1BTNLED",data%EquipmentControl%DrillingConsole%GEN1BTNLED) call json%add(p,"GEN2BTNLED",data%EquipmentControl%DrillingConsole%GEN2BTNLED) call json%add(p,"GEN3BTNLED",data%EquipmentControl%DrillingConsole%GEN3BTNLED) call json%add(p,"GEN4BTNLED",data%EquipmentControl%DrillingConsole%GEN4BTNLED) call json%add(p,"OpenKellyCockLed",data%EquipmentControl%DrillingConsole%OpenKellyCockLed) call json%add(p,"CloseKellyCockLed",data%EquipmentControl%DrillingConsole%CloseKellyCockLed) call json%add(p,"OpenSafetyValveLed",data%EquipmentControl%DrillingConsole%OpenSafetyValveLed) call json%add(p,"CloseSafetyValveLed",data%EquipmentControl%DrillingConsole%CloseSafetyValveLed) call json%add(p,"IRSafetyValveLed",data%EquipmentControl%DrillingConsole%IRSafetyValveLed) call json%add(p,"IRIBopLed",data%EquipmentControl%DrillingConsole%IRIBopLed) call json%add(p,"LatchPipeLED",data%EquipmentControl%DrillingConsole%LatchPipeLED) call json%add(p,"UnlatchPipeLED",data%EquipmentControl%DrillingConsole%UnlatchPipeLED) call json%add(p,"SwingLed",data%EquipmentControl%DrillingConsole%SwingLed) call json%add(p,"FillMouseHoleLed",data%EquipmentControl%DrillingConsole%FillMouseHoleLed) call json%add(parent,p) end subroutine end module CDrillingConsole