Implementación del modelo K-E para la turbulencia a un modelo de flujo con superficie libre bidimensional