models/johnpye/separator.a4c

REQUIRE "johnpye/iapws_sat_curves.a4c";
REQUIRE "johnpye/iapws95.a4c";

MODEL separator;
	S_in IS_A iapws95_2phase;
	S_l ALIASES S_in.Sl;
	S_v ALIASES S_in.Sv;

	mdot_in,mdot_l, mdot_v IS_A mass_rate;

	mdot_in = mdot_l + mdot_v;

	mdot_v = mdot_in * S_in.x;

	mdot_l = mdot_in * (1 - S_in.x);

METHODS
METHOD default_self;
	RUN reset; RUN values;
END default_self;

METHOD specify;
	FIX S_in.T;
	FIX S_in.x;
	FIX mdot_in;
END specify;

METHOD values;
	S_in.T := 400 {K};
	S_in.x := 0.3;
	mdot_in := 1 {kg/s};
END values;

END separator;
1	REQUIRE "johnpye/iapws_sat_curves.a4c";
2	REQUIRE "johnpye/iapws95.a4c";
3
4	MODEL separator;
5	S_in IS_A iapws95_2phase;
6	S_l ALIASES S_in.Sl;
7	S_v ALIASES S_in.Sv;
8
9	mdot_in,mdot_l, mdot_v IS_A mass_rate;
10
11	mdot_in = mdot_l + mdot_v;
12
13	mdot_v = mdot_in * S_in.x;
14
15	mdot_l = mdot_in * (1 - S_in.x);
16
17	METHODS
18	METHOD default_self;
19	RUN reset; RUN values;
20	END default_self;
21
22	METHOD specify;
23	FIX S_in.T;
24	FIX S_in.x;
25	FIX mdot_in;
26	END specify;
27
28	METHOD values;
29	S_in.T := 400 {K};
30	S_in.x := 0.3;
31	mdot_in := 1 {kg/s};
32	END values;
33
34	END separator;