& wmean_hflux, wmean_sflux, wmean_tau,
wmean_hflux = 0. _d 0
& /(wmean_hflux*wmean_hflux)
& wmean_hflux, whflux,
_RL wmean_hflux