tau = rhoa*ustar**2
csha = rhoa*cpair*us*rh*rd
clha = rhoa*lath*us*re*rd
ust = rhoa*exf_BulkCdn(usm)*us*uw
vst = rhoa*exf_BulkCdn(usm)*us*vw
WRITE(iUnit,*) 'BlkF: rhoa =',rhoa
& rhoa, rhofw,
rhoa = 1.3 _d 0
& rhoa, rhosw, rhofw,
_RL rhoa