NEA-0683 BLOK.

1. NAME OR DESIGNATION OF PROGRAM:  BLOK.

3. DESCRIPTION OF PROBLEM OR FUNCTION

Solution of the flow characteristics - mean velocities, pressure distribution, shear stress, length of recircuited region and mass transfer to the wall - for turbulent flow in pipes and channels with a rectangular obstruction. The code solves the time-averaged Navier-Stokes equations, the continuity equation, the diffusion equation for dissolved species and transport equations for turbulent kinetic energy, k, and turbulent dissipation, epsilon.

4. METHOD OF SOLUTION

The routine applies the finite difference method with an iterative solution procedure.

5. RESTRICTIONS ON THE COMPLEXITY OF THE PROBLEM

The maximum number of mesh points in the present version is 40 x 30.

6. TYPICAL RUNNING TIME

A running time of about 4 minutes CPU is needed for a run with 32 x 20 mesh points on a Univac-1100/82.

7. UNUSUAL FEATURES OF THE PROGRAM:

8. RELATED AND AUXILIARY PROGRAMS:

10. REFERENCES

- O. Kvernvold and A. K. Rastogi:
  "User's Manual" (written for users at Veritas).

- A.K. Rastogi, O. Kvernvold, R. Mollan, and T. Sontvedt:
  "Diffusion controlled corrosion under disbonded coatings on
  offshore risers - Theoretical model. Part 1"
  VERITAS Report No. 80-0072 (August 1980).
- O. Kvernvold, A.K. Rastogi and T. Sontvedt:
  "Diffusion controlled sea water corrosion under disbonded coatings
  on offshore risers - Crevices closed in one end
  Theoretical model, Part 2"
  VERITAS Report No. 80-0347 (August 1980).
- A.K. Rastogi, O. Kvernvold, and T. Sontvedt:
  "Flow and Mass Transfer in a Perturbed Turbulent Pipe Flow"
  VERITAS Report No. 80-0596 (August 1980)
- O. Kvernvold and A.K. Rastogi:
  "Turbulent Flow and Turbulent Mass/Heat Transfer in Pipes and
  Channels with an Abrupt Change in the Wall Geometry.
  Computer Program Specification"
  VERITAS Report No. 80-1116 (December 1980).

11. MACHINE REQUIREMENTS

NEA 0683/01: NEA-DB executed the test case on an UNIVAC 1100 in 43558 decimal words of main storage.

13. OPERATING SYSTEM UNDER WHICH PROGRAM IS EXECUTED:

EXEC 8 Multiprocessor System Level 37R2D.

14. OTHER PROGRAMMING OR OPERATING INFORMATION OR RESTRICTIONS:

15. NAME AND ESTABLISHMENT OF AUTHOR

          A. K. Rastogi
          Det Norske Veritas
          P.O. Box 300
          N-1322 Hoevik
          Norway

File name	File description	Records
NEA0683_01.002	BLOK INFORMATION	36
NEA0683_01.004	JCL	28
NEA0683_01.005	BLOK SOURCE PROGRAM & BLOCK DATA	1922
NEA0683_01.006	BLOK TEST CASE INPUT DATA (UNIT 5)	10
NEA0683_01.007	BLOK TEST CASE OUTPUT (UNIT 6)	1877