model media_test

  import SI = Modelica.SIunits;

  package Medium=Modelica.Media.Water.WaterIF97_ph
    "Water/steam medium according to IF97";

  parameter Medium.AbsolutePressure p = 1e5 "Water/steam pressure";
  parameter Medium.SpecificEnthalpy h_0 = 2800e3 "Begin of h range";
  parameter Medium.SpecificEnthalpy h_1 = 6000e3 "End of h range";
  parameter SI.Time T=100 "time for h-range";

  Medium.BaseProperties h2o;

equation
  h2o.p = p;
  h2o.h = h_0 + (h_1-h_0)*time/T;

  annotation (uses(Modelica(version="3.1")));
end media_test;