EQUIVALENCE ( cpair , CP )
csha = rhoa*cpair*us*rh*rd
& rhoa,cpair,stefan,
_RL cheapaml_dtc,rhoa,cpair,stefan
xef=1.d0/rhoa/cpair
xefi=rhoa*cpair
csha = rhoa*cpair*usm*rh*rd
WRITE(iUnit,*) 'Caml: cpair =',cpair
& rhoa, cpair, stefan,
cpair = 1004.d0