Desenvolvimento de rotina para resolver as equações de navier-stokes com diferenças finitas