models/steam/satsteamstream.a4c

REQUIRE "iapwssat.a4c";

MODEL satsteamstream REFINES iapwssat;
	mdot IS_A mass_rate;
	Hdot IS_A energy_rate;
	Hdot = mdot*h;
	rho IS_A mass_density;
	rho * v = 1;
METHODS
METHOD specify;
	RUN iapwssat::specify;
	FIX mdot;
END specify;
METHOD values;
	RUN iapwssat::values;
	mdot := 0.1 {kg/s};
END values;
METHOD on_load;
	RUN bound_self;
	RUN reset;
	RUN values;
END on_load;
END satsteamstream;
1	REQUIRE "iapwssat.a4c";
2
3	MODEL satsteamstream REFINES iapwssat;
4	mdot IS_A mass_rate;
5	Hdot IS_A energy_rate;
6	Hdot = mdot*h;
7	rho IS_A mass_density;
8	rho * v = 1;
9	METHODS
10	METHOD specify;
11	RUN iapwssat::specify;
12	FIX mdot;
13	END specify;
14	METHOD values;
15	RUN iapwssat::values;
16	mdot := 0.1 {kg/s};
17	END values;
18	METHOD on_load;
19	RUN bound_self;
20	RUN reset;
21	RUN values;
22	END on_load;
23	END satsteamstream;