function [CLi_h]=CLi_h2(CLa_h,S_h,S_w)
CLi_h = CLa_h*S_h/S_w;		%eqn 10.4