Added function beaufort() to weather.f90

* Added function beaufort() to weather.f90:
  * returns wind "force" on the Beaufort scale as a function of speed in m/s