SimulationCore2/CSharp/Equipments/ControlPanels/CChokeManifold.f90

module CChokeManifold
!     use CChokeManifoldVariables
    use SimulationVariables
    use CManifolds
    use CLog2
    implicit none    
    public
    contains

    subroutine CChokeManifoldToJson(parent)

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

        ! 1. create new node
        call json%create_object(p,'CChokeManifold')
        call json%add(p,"ChokeManifoldValve1",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve1)
        call json%add(p,"ChokeManifoldValve2",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve2)
        call json%add(p,"LeftManualChoke",data%Equipments%ContolPanel%CChokeManifold%LeftManualChoke)
        call json%add(p,"ChokeManifoldValve4",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve4)
        call json%add(p,"ChokeManifoldValve5",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve5)
        call json%add(p,"RightManualChoke",data%Equipments%ContolPanel%CChokeManifold%RightManualChoke)
        call json%add(p,"ChokeManifoldValve7",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve7)
        call json%add(p,"ChokeManifoldValve8",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve8)
        call json%add(p,"ChokeManifoldValve9",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve9)
        call json%add(p,"ChokeManifoldValve10",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve10)
        call json%add(p,"ChokeManifoldValve11",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve11)
        call json%add(p,"ChokeManifoldValve12",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve12)
        call json%add(p,"ChokeManifoldValve13",data%Equipments%ContolPanel%CChokeManifold%ChokeManifoldValve13)
        call json%add(p,"HydraulicChock1",data%Equipments%ContolPanel%CChokeManifold%HydraulicChock1)
        call json%add(p,"HydraulicChock2",data%Equipments%ContolPanel%CChokeManifold%HydraulicChock2)
        call json%add(p,"HyChock1OnProblem",data%Equipments%ContolPanel%CChokeManifold%HyChock1OnProblem)
        call json%add(p,"HyChock2OnProblem",data%Equipments%ContolPanel%CChokeManifold%HyChock2OnProblem)
        call json%add(p,"LeftManChokeOnProblem",data%Equipments%ContolPanel%CChokeManifold%LeftManChokeOnProblem)
        call json%add(p,"RightManChokeOnProblem",data%Equipments%ContolPanel%CChokeManifold%RightManChokeOnProblem)

    

        call json%add(parent,p)
    end subroutine

    subroutine SetHydraulicChock1(v)
        implicit none
    integer, intent(in) :: v
    data%EquipmentControl%ChokeManifold%HydraulicChock1 = v
    if(data%EquipmentControl%ChokeManifold%HyChock1OnProblem) then
        call ChangeValve(33, .true.)
    else
        if(v == 100) then 
            if(Manifold%Valve(33)%Status) call ChangeValve(33, .false.)
        else
            if(.not.Manifold%Valve(33)%Status) call ChangeValve(33, .true.)
        endif
    endif
    !WRITE (*,*) ' valve 33 ', Valve(33)%Status, ' arg ', v
end subroutine

subroutine SetHydraulicChock2(v)
        implicit none
    integer, intent(in) :: v
    data%EquipmentControl%ChokeManifold%HydraulicChock2 = v
    if(data%EquipmentControl%ChokeManifold%HyChock2OnProblem) then
        call ChangeValve(34, .true.)
    else
        if(v==100) then 
            if(Manifold%Valve(34)%Status) call ChangeValve(34, .false.)
        else 
            if(.not.Manifold%Valve(34)%Status) call ChangeValve(34, .true.)
        endif
    endif
    !WRITE (*,*) ' valve 34 ', Valve(34)%Status, ' arg ', v
end subroutine
    
end module CChokeManifold