function [LamB,CldPr,Cld,ad,dA,CldA,Cl]=CldA2(Lamq_w,Beta,Kap,BCldPrKap,CldCldth,Cldth,Cla_w,dl,dr,CldL,CldR)

LamB=atan(tan(Lamq_w/Beta));	%eqn 11.1
CldPr=Kap/Beta* BCldPrKap;		%eqn 11.2
%Cld=ad*CldPr;		  				%eqn 11.3
Cld=CldCldth*Cldth  				%eqn 11.4
ad=Cla_w*Cld;						%eqn 11.4
dA=.5*(dl-dr)						%eqn 11.7
CldA = (CldL+CldR)				%eqn 11.8
Cl=CldA*dA;  						%eqn 11.6