A Fortran 3D flow using projection method with FVM