File mtt/lib/examples/Thermal/Incompressible/Incompressible-Systems/ShowerHeater/TankC_cr.r artifact dab3fcf1b4 part of check-in 90a0ffa88f

% Constitutive relation file for TankC (TankC_cr.r)
% Generated by MTT at Thu Mar  5 10:30:23 GMT 1998

OPERATOR TankC;

%Pressure
% -- not relevant here

%Temperature
FOR ALL COMP,rho,c_p,volume,Energy
LET TankC(COMP,rho,c_p,volume,effort,1,
	Energy,state,1
	) = Energy/(volume*rho*c_p);

END;