model Intake

  extends Modelica.Fluid.Interfaces.PartialTwoPortTransport;

  

  input Real RPM;

  output Real SCFM;

  redeclare package Medium = Modelica.Media.Water.StandardWater;

  

   //obtained from Modelica ValveLinear

  Modelica.Blocks.Interfaces.RealInput input_position(min = 0, max = 1) "=1: completely open, =0: completely closed";



  inner Modelica.Fluid.System system annotation(

    Placement(visible = true, transformation(origin = {-70, 70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

equation

  SCFM = path.solveSCFM(AirValvePos=input_position, engineRPM=RPM);

  RPM = path.solveRPM(SCFM);



end Intake;

function solveSCFM 

  extends BaseClasses.Capacity_partial(AirValvePos=Pos);

  

  input Real Pos;

  input Real engineRPM;

  output Real capacity;

  

protected

  parameter Real AmbientTemp = 20 "Ambient temperature in degrees C";

  

algorithm

  capacity := formula with AmbientTemp and engineRPM;



end solveSCFM;