SPIRAL_DATA
Velocity Vector Field Satisfying Continuity Equation

SPIRAL_DATA is a FORTRAN90 library which samples a velocity vector field that satisfies the continuity equation, and writes the nodes and velocities to a file, suitable for display using GNUPLOT.

The continuous velocity field (U,V)(X,Y) that is discretely sampled here satisfies the homogeneous continuity equation, that is, it has zero divergence. In other words:

        dU/dX + dV/dY = 0.
      

        U(X,Y) =  10 * d/dY ( PHI(X) * PHI(Y) )
        V(X,Y) = -10 * d/dX ( PHI(X) * PHI(Y) )
      

The underlying function PHI is defined by

        PHI(Z) = ( 1 - cos ( C * pi * Z ) ) * ( 1 - Z )^2
      

The velocity data satisifes the (continuous) continuity equation; this in no way implies that it satisfies the momentum equations associated with Stokes or Navier-Stokes flow! Moreover, a flow solution for those equations would normally also require specifying a value for the scalar pressure field P(X,Y).

Licensing:

The computer code and data files made available on this web page are distributed under the GNU LGPL license.

Languages:

SPIRAL_DATA is available in a C version and a C++ version and a FORTRAN90 version and a MATLAB version and a Python version..

Related Data and Programs:

GNUPLOT, FORTRAN90 programs which illustrate the use of the gnuplot graphics program.

NAVIER_STOKES_2D_EXACT, a FORTRAN90 library which evaluates an exact solution to the incompressible time-dependent Navier-Stokes equations over an arbitrary domain in 2D.

STOKES_2D_EXACT, a FORTRAN90 library which evaluates exact solutions to the incompressible steady Stokes equations over the unit square in 2D.

Source Code:

• spiral_data.f90, the source code.

Examples and Tests:

• spiral_data_test.f90, a sample calling program.
• spiral_data_test.txt, the output file.

Graphics data includes:

• spiral_data.txt, the X, Y, U, V values.
• spiral_commands.txt, commands to GNUPLOT.
• spiral.png, the resulting plot.

List of Routines:

• GET_UNIT returns a free FORTRAN unit number.
• GRID_2D returns a regular 2D grid.
• R8VEC_UNIFORM_AB returns a scaled pseudorandom R8VEC.
• RESID_SPIRAL computes the residual for a spiral velocity vector field.
• SPIRAL_GNUPLOT writes the spiral vector field to files for GNUPLOT.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• UV_SPIRAL computes a spiral velocity vector field.

You can go up one level to the FORTRAN90 source codes.