Find_Nearest_Wall_Cell could benefit from Distance_Squared function

[Niceno]

Subroutine Find_Nearest_Wall_Cell in module Turbulence relies on function Distance. That makes it rather slow, since calculation of distance involves taking a square root n*n times. I believe functionality would be the same if one used Distance_Squared function, which doesn't take square root and would thus be much faster.