function [T] = Tinlet(y)

condif_params;

if (y > h),
  T = Thot;
else,
  T = Tcool;
end