within OTRERA_formation.Components;

model ThermalCapacity
  //USER DEFINED PARAMETERS
  parameter Modelica.Units.SI.Mass m = 10 "Object mass";
  parameter Modelica.Units.SI.SpecificHeatCapacity cp(min=0) = 1000 ;
  parameter Modelica.Units.SI.Temperature T_start = 283.15 ;
  
  //INTERNAL VARIABLES
  Modelica.Units.SI.Temperature T ;
  Modelica.Units.SI.HeatFlowRate Q_flow ;
  
  //IMPORTED COMPONENTS
  Modelica.Thermal.HeatTransfer.Interfaces.HeatPort_a port annotation(
    Placement(transformation(extent = {{-10, -10}, {10, 10}}), iconTransformation(origin = {-2, -4}, extent = {{-10, -10}, {10, 10}})));
initial equation 

  T = T_start ;

equation 

  Q_flow = m * cp * der(T) ;
 
  //PORT HANDOVER
  Q_flow = port.Q_flow ; 
  T = port.T ;

annotation(
    Icon(graphics = {Ellipse(origin = {-2, 3}, fillColor = {134, 94, 60}, fillPattern = FillPattern.Solid, extent = {{-92, -85}, {92, 85}})}));
end ThermalCapacity;