_RL exf_inscal_uwind
& exf_inscal_uwind,
I exf_inscal_uwind,
I uwindperiod, exf_inscal_uwind, uwindconst,
& exf_inscal_uwind, exf_inscal_vwind, exf_inscal_wspeed,
exf_inscal_uwind = 1. _d 0