% Eikrem model - Pipeline dimetions
% Gisle Otto Eikrem
% 160504
%scale0=3;
% The geometry of the pipeline is given below
riser_length = 2400; % [m]
riser_diameter = 0.2; % [m] 
V_total_riser = pi*(riser_diameter/2)^2 * riser_length;
A_riser = pi*(riser_diameter/2)^2;

pipeline_length = 2800; % [m]
pipeline_diameter = 0.2; % [m] 
V_total_pipeline = pi*(pipeline_diameter/2)^2 * pipeline_length;
A_pipeline = pi*(pipeline_diameter/2)^2;

alpha_pipeline = 5/360 * 2 * pi; % [deg]
alpha_riser = 90/360 * 2 * pi; % [deg]

% Inflow conditions
inflow_oil = 17.0; %1.2; % [kg/s]
inflow_gas = 10*0.1400; %0.015; %0.014; %0.1% [kg/s]
GOR_nom=inflow_gas/inflow_oil;  % nominal phasefrac
X_gas_nom=inflow_gas/(inflow_oil+inflow_gas);
X_oil_nom=1-X_gas_nom;

% Valve equation - bottom of riser - "manual valve - restriction"
% Kv = 0.865*Cv, Kv [m^3/h bar^0.5] Cv [gallon/min psi^0.5]
% Q = Cv* (deltaP / G)^0.5
u_bottom = 0.92;
scale=54;
C_r = scale*50*u_bottom;
K_r_oil = 0.4*0.08*0.865*C_r; %0.4 0.10%0.75
K_r_gas = 0.0013*0.865*C_r; %0.0013


