within OTRERA_formation.Models;

model Coupled_model_prescribed
  extends OTRERA_formation.Models.Coupled_model (M1(m = 100));
  Modelica.Thermal.HeatTransfer.Sources.PrescribedHeatFlow prescribedHeatFlow annotation(
    Placement(transformation(origin = {-62, 30}, extent = {{-10, -10}, {10, 10}})));
  Modelica.Blocks.Sources.Constant const(k = 1000) annotation(
    Placement(transformation(origin = {-90, 30}, extent = {{-10, -10}, {10, 10}})));
equation
  connect(const.y, prescribedHeatFlow.Q_flow) annotation(
    Line(points = {{-78, 30}, {-72, 30}}, color = {0, 0, 127}));
  connect(prescribedHeatFlow.port, M1.port) annotation(
    Line(points = {{-52, 30}, {-32, 30}}, color = {191, 0, 0}));
  annotation(
    Diagram(coordinateSystem(extent = {{-100, -100}, {100, 100}})));
end Coupled_model_prescribed;