# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPumps.f90"
module CPumps
use SimulationVariables
use json_module
implicit none
public
contains
subroutine PumpsToJson(parent)
type(json_value),pointer :: parent
type(json_core) :: json
type(json_value),pointer :: p
! 1. create new node
call json%create_object(p,'Pumps')
! 2. add member of data type to new node
! call StringConfigurationToJson(p)
! call FormationToJson(p)
call json%add(p,"MudPump1LinerDiameter",data%Configuration%Pumps%MudPump1LinerDiameter)
call json%add(p,"MudPump1Stroke",data%Configuration%Pumps%MudPump1Stroke)
call json%add(p,"MudPump1MechanicalEfficiency",data%Configuration%Pumps%MudPump1MechanicalEfficiency)
call json%add(p,"MudPump1VolumetricEfficiency",data%Configuration%Pumps%MudPump1VolumetricEfficiency)
call json%add(p,"MudPump1Output",data%Configuration%Pumps%MudPump1Output)
call json%add(p,"MudPump1OutputBblStroke",data%Configuration%Pumps%MudPump1OutputBblStroke)
call json%add(p,"MudPump1Maximum",data%Configuration%Pumps%MudPump1Maximum)
call json%add(p,"MudPump1ReliefValvePressure",data%Configuration%Pumps%MudPump1ReliefValvePressure)
call json%add(p,"MudPump2LinerDiameter",data%Configuration%Pumps%MudPump2LinerDiameter)
call json%add(p,"MudPump2Stroke",data%Configuration%Pumps%MudPump2Stroke)
call json%add(p,"MudPump2MechanicalEfficiency",data%Configuration%Pumps%MudPump2MechanicalEfficiency)
call json%add(p,"MudPump2VolumetricEfficiency",data%Configuration%Pumps%MudPump2VolumetricEfficiency)
call json%add(p,"MudPump2Output",data%Configuration%Pumps%MudPump2Output)
call json%add(p,"MudPump2OutputBblStroke",data%Configuration%Pumps%MudPump2OutputBblStroke)
call json%add(p,"MudPump2Maximum",data%Configuration%Pumps%MudPump2Maximum)
call json%add(p,"MudPump2ReliefValvePressure",data%Configuration%Pumps%MudPump2ReliefValvePressure)
call json%add(p,"CementPumpLinerDiameter",data%Configuration%Pumps%CementPumpLinerDiameter)
call json%add(p,"CementPumpStroke",data%Configuration%Pumps%CementPumpStroke)
call json%add(p,"CementPumpMechanicalEfficiency",data%Configuration%Pumps%CementPumpMechanicalEfficiency)
call json%add(p,"CementPumpVolumetricEfficiency",data%Configuration%Pumps%CementPumpVolumetricEfficiency)
call json%add(p,"CementPumpOutput",data%Configuration%Pumps%CementPumpOutput)
call json%add(p,"CementPumpOutputBblStroke",data%Configuration%Pumps%CementPumpOutputBblStroke)
call json%add(p,"CementPumpMaximum",data%Configuration%Pumps%CementPumpMaximum)
call json%add(p,"CementPumpReliefValvePressure ",data%Configuration%Pumps%CementPumpReliefValvePressure )
call json%add(p,"MudPump1ReliefValveIsSet",data%Configuration%Pumps%MudPump1ReliefValveIsSet)
call json%add(p,"MudPump2ReliefValveIsSet",data%Configuration%Pumps%MudPump2ReliefValveIsSet)
call json%add(p,"CementPumpReliefValveIsSet",data%Configuration%Pumps%CementPumpReliefValveIsSet)
! call json%add(p,"ManualPumpPower",data%Configuration%Pumps%ManualPumpPower)
! call json%add(p,"Valve1",data%Configuration%Pumps%Valve1)
! call json%add(p,"Valve2",data%Configuration%Pumps%Valve2)
! call json%add(p,"Valve3",data%Configuration%Pumps%Valve3)
! call json%add(p,"Valve4",data%Configuration%Pumps%Valve4)
! call json%add(p,"Valve5",data%Configuration%Pumps%Valve5)
! 3. add new node to parent
call json%add(parent,p)
end subroutine
subroutine PumpsFromJson(parent)
use json_module,IK =>json_ik
type(json_value),pointer :: parent
type(json_core) :: json
type(json_value),pointer :: p,pitems,pitem,pval,pbit
call json%get(parent,'Pumps',p)
call json%get(p,"MudPump1LinerDiameter",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1LinerDiameter)
call json%get(p,"MudPump1Stroke",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1Stroke)
call json%get(p,"MudPump1MechanicalEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1MechanicalEfficiency)
call json%get(p,"MudPump1VolumetricEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1VolumetricEfficiency)
call json%get(p,"MudPump1Output",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1Output)
call json%get(p,"MudPump1OutputBblStroke",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1OutputBblStroke)
call json%get(p,"MudPump1Maximum",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1Maximum)
call json%get(p,"MudPump1ReliefValvePressure",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1ReliefValvePressure)
call json%get(p,"MudPump2LinerDiameter",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2LinerDiameter)
call json%get(p,"MudPump2Stroke",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2Stroke)
call json%get(p,"MudPump2MechanicalEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2MechanicalEfficiency)
call json%get(p,"MudPump2VolumetricEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2VolumetricEfficiency)
call json%get(p,"MudPump2Output",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2Output)
call json%get(p,"MudPump2OutputBblStroke",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2OutputBblStroke)
call json%get(p,"MudPump2Maximum",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2Maximum)
call json%get(p,"MudPump2ReliefValvePressure",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2ReliefValvePressure)
call json%get(p,"CementPumpLinerDiameter",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpLinerDiameter)
call json%get(p,"CementPumpStroke",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpStroke)
call json%get(p,"CementPumpMechanicalEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpMechanicalEfficiency)
call json%get(p,"CementPumpVolumetricEfficiency",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpVolumetricEfficiency)
call json%get(p,"CementPumpOutput",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpOutput)
call json%get(p,"CementPumpOutputBblStroke",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpOutputBblStroke)
call json%get(p,"CementPumpMaximum",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpMaximum)
call json%get(p,"CementPumpReliefValvePressure",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpReliefValvePressure)
call json%get(p,"MudPump1ReliefValveIsSet",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump1ReliefValveIsSet)
call json%get(p,"MudPump2ReliefValveIsSet",pitem)
call json%get(pitem,data%Configuration%Pumps%MudPump2ReliefValveIsSet)
call json%get(p,"CementPumpReliefValveIsSet",pitem)
call json%get(pitem,data%Configuration%Pumps%CementPumpReliefValveIsSet)
call json%get(p,"ManualPumpPower",pitem)
! call json%get(pitem,data%Configuration%Pumps%ManualPumpPower)
! call json%get(p,"Valve1",pitem)
! call json%get(pitem,data%Configuration%Pumps%Valve1)
! call json%get(p,"Valve2",pitem)
! call json%get(pitem,data%Configuration%Pumps%Valve2)
! call json%get(p,"Valve3",pitem)
! call json%get(pitem,data%Configuration%Pumps%Valve3)
! call json%get(p,"Valve4",pitem)
! call json%get(pitem,data%Configuration%Pumps%Valve4)
! call json%get(p,"Valve5",pitem)
! call json%get(pitem,data%Configuration%Pumps%Valve5)
end subroutine
subroutine OpenPump1()
use CManifolds
implicit none
call ChangeValve(16, .true.)
end subroutine
subroutine ClosePump1()
use CManifolds
implicit none
call ChangeValve(16, .false.)
end subroutine
subroutine OpenPump2()
use CManifolds
implicit none
call ChangeValve(17, .true.)
end subroutine
subroutine ClosePump2()
use CManifolds
implicit none
call ChangeValve(17, .false.)
end subroutine
subroutine OpenCementPump()
use CManifolds
implicit none
call ChangeValve(18, .true.)
end subroutine
subroutine CloseCementPump()
use CManifolds
implicit none
call ChangeValve(18, .false.)
end subroutine
! subroutine SetMudPump1LinerDiameterN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump1LinerDiameterPtr)) call MudPump1LinerDiameterPtr(a)
! end subroutine
! subroutine SetMudPump2LinerDiameterN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump2LinerDiameterPtr)) call MudPump2LinerDiameterPtr(a)
! end subroutine
! subroutine SetMudPump3LinerDiameterN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump3LinerDiameterPtr)) call MudPump3LinerDiameterPtr(a)
! end subroutine
! subroutine SetMudPump1OutputBblStrokeN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump1OutputBblStrokePtr)) call MudPump1OutputBblStrokePtr(a)
! end subroutine
! subroutine SetMudPump2OutputBblStrokeN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump2OutputBblStrokePtr)) call MudPump2OutputBblStrokePtr(a)
! end subroutine
! subroutine SetMudPump3OutputBblStrokeN(a)
! implicit none
! real(8) :: a
! if(associated(MudPump3OutputBblStrokePtr)) call MudPump3OutputBblStrokePtr(a)
! end subroutine
! subroutine CalcMudPump1LinerDiameter()
! use, intrinsic :: IEEE_ARITHMETIC
! implicit none
! real(8) :: a
! a = (MathPI / 4.d0) * data%Configuration%Pumps%MudPump1Stroke * 3.0d0 * data%Configuration%Pumps%MudPump1VolumetricEfficiency / 9702.03d0
! a = dsqrt(data%Configuration%Pumps%MudPump1OutputBblStroke / a)
! if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
! data%Configuration%Pumps%MudPump1LinerDiameter = 0.0
! else
! data%Configuration%Pumps%MudPump1LinerDiameter = a
! endif
! call SetMudPump1LinerDiameterN(data%Configuration%Pumps%MudPump1LinerDiameter)
! end subroutine
! subroutine CalcMudPump2LinerDiameter()
! use, intrinsic :: IEEE_ARITHMETIC
! implicit none
! real(8) :: a
! a = (MathPI / 4.d0) * data%Configuration%Pumps%MudPump2Stroke * 3.0d0 * data%Configuration%Pumps%MudPump2VolumetricEfficiency / 9702.03d0
! a = dsqrt(data%Configuration%Pumps%MudPump2OutputBblStroke / a)
! if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
! data%Configuration%Pumps%MudPump2LinerDiameter = 0.0
! else
! data%Configuration%Pumps%MudPump2LinerDiameter = a
! endif
! call SetMudPump2LinerDiameterN(data%Configuration%Pumps%MudPump2LinerDiameter)
! end subroutine
! subroutine CalcMudPump3LinerDiameter()
! use, intrinsic :: IEEE_ARITHMETIC
! implicit none
! real(8) :: a
! a = (MathPI / 4.d0) * data%Configuration%Pumps%CementPumpStroke * 3.0d0 * data%Configuration%Pumps%CementPumpVolumetricEfficiency / 9702.03d0
! a = dsqrt(data%Configuration%Pumps%CementPumpOutputBblStroke / a)
! if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
! data%Configuration%Pumps%CementPumpLinerDiameter = 0.0
! else
! data%Configuration%Pumps%CementPumpLinerDiameter = a
! endif
! call SetMudPump3LinerDiameterN(data%Configuration%Pumps%CementPumpLinerDiameter)
! end subroutine
! subroutine CalcPump1OutputBblStroke()
! implicit none
! data%Configuration%Pumps%MudPump1OutputBblStroke = (MathPI / 4.d0) * (data%Configuration%Pumps%MudPump1LinerDiameter**2) * data%Configuration%Pumps%MudPump1Stroke * 3.0d0 * data%Configuration%Pumps%MudPump1VolumetricEfficiency / 9702.03d0
! call SetMudPump1OutputBblStrokeN(data%Configuration%Pumps%MudPump1OutputBblStroke)
! end subroutine
! subroutine CalcPump2OutputBblStroke()
! implicit none
! data%Configuration%Pumps%MudPump2OutputBblStroke = (MathPI / 4.d0) * (data%Configuration%Pumps%MudPump2LinerDiameter**2) * data%Configuration%Pumps%MudPump2Stroke * 3.0d0 * data%Configuration%Pumps%MudPump2VolumetricEfficiency / 9702.03d0
! call SetMudPump2OutputBblStrokeN(data%Configuration%Pumps%MudPump2OutputBblStroke)
! end subroutine
! subroutine CalcPump3OutputBblStroke()
! implicit none
! data%Configuration%Pumps%CementPumpOutputBblStroke = (MathPI / 4.d0) * (data%Configuration%Pumps%CementPumpLinerDiameter**2) * data%Configuration%Pumps%CementPumpStroke * 3.0d0 * data%Configuration%Pumps%CementPumpVolumetricEfficiency / 9702.03d0
! call SetMudPump3OutputBblStrokeN(data%Configuration%Pumps%CementPumpOutputBblStroke)
! end subroutine
end module CPumps