Modify the calc_esw function

Beaufort must be taken as numerical and not factor Found a way to create matrix