EQUIVALENCE ( cpair , CP )
csha = rhoa*cpair*us*rh*rd
& rhoa, cpair, stefan,
_RL rhoa, cpair, stefan
hf=-cpair*rhoa*usr*tsr !sensible W/m2
dSensdTs = cpair*rhoa*usr
csha = rhoa*cpair*usm*rh*rd
cpair = 1004. _d 0
xef=1. _d 0 /rhoa/cpair
WRITE(iUnit,*) 'Caml: cpair =',cpair
& rhoa, cpair, stefan, gasR, xkar,