within OTRERA_formation.Components;

model Convection

  //USER DEFINED PARAMETERS
  parameter Modelica.Units.SI.Area S=0.0 "Exchange area between fluid and solid" ;
  parameter Modelica.Units.SI.CoefficientOfHeatTransfer h = 0.0 "Convective heat transfer coefficient";
  
  
  //INTERNAL VARIABLES
  Modelica.Units.SI.HeatFlowRate Q_flow ;
  Modelica.Units.SI.Temperature T_wall ;
  Modelica.Units.SI.Temperature T_fluid ;
  //IMPORTED COMPONENTS
  Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_a port_wall annotation(
    Placement(transformation(origin = {-96, 2}, extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {-90, 0}, extent = {{-10, -10}, {10, 10}})));
  Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_b port_fluid annotation(
    Placement(transformation(origin = {96, 0}, extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {90, 0}, extent = {{-10, -10}, {10, 10}})));
equation

  Q_flow = h * S * (T_wall - T_fluid) ; 

  //Port handover
  
  port_fluid.Q_flow + port_wall.Q_flow = 0.0 ;
  port_fluid.Q_flow = -Q_flow ; 
  T_wall = port_wall.T ; 
  T_fluid = port_fluid.T ;
  
  

end Convection;