Computer Programs

NEA-0683 BLOK.

NEA-0683 BLOK.

BLOK, Turbulent Flow in Pipes and Channels with Rectangular Obstruction

NAME OR DESIGNATION OF PROGRAM, COMPUTER, DESCRIPTION OF PROBLEM OR FUNCTION, METHOD OF SOLUTION, RESTRICTIONS ON THE COMPLEXITY OF THE PROBLEM, TYPICAL RUNNING TIME, UNUSUAL FEATURES OF THE PROGRAM, RELATED AND AUXILIARY PROGRAMS, STATUS, REFERENCES, MACHINE REQUIREMENTS, LANGUAGE, OPERATING SYSTEM UNDER WHICH PROGRAM IS EXECUTED, OTHER PROGRAMMING OR OPERATING INFORMATION OR RESTRICTIONS, NAME AND ESTABLISHMENT OF AUTHOR, MATERIAL, CATEGORIES

[ top ]

1. NAME OR DESIGNATION OF PROGRAM: BLOK.

[ top ]

2. COMPUTERS

To submit a request, click below on the link of the version you wish to order. Rules for end-users are available here.

Program name	Package id	Status	Status date
BLOK	NEA-0683/01	Tested	20-JUL-1984

Machines used:

Package ID	Orig. computer	Test computer
NEA-0683/01	UNIVAC 1100	UNIVAC 1100

[ top ]

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.

[ top ]

4. METHOD OF SOLUTION

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

[ top ]

5. RESTRICTIONS ON THE COMPLEXITY OF THE PROBLEM

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

[ top ]

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.

[ top ]

7. UNUSUAL FEATURES OF THE PROGRAM:

[ top ]

8. RELATED AND AUXILIARY PROGRAMS:

[ top ]

9. STATUS

Package ID	Status date	Status
NEA-0683/01	20-JUL-1984	Tested at NEADB

[ top ]

10. REFERENCES

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

NEA-0683/01, included references:

- 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).

[ top ]

11. MACHINE REQUIREMENTS

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

[ top ]

12. PROGRAMMING LANGUAGE(S) USED

Package ID	Computer language
NEA-0683/01	FORTRAN-IV

[ top ]

13. OPERATING SYSTEM UNDER WHICH PROGRAM IS EXECUTED:

NEA-0683/01

EXEC 8 Multiprocessor System Level 37R2D.

[ top ]

14. OTHER PROGRAMMING OR OPERATING INFORMATION OR RESTRICTIONS:

[ top ]

15. NAME AND ESTABLISHMENT OF AUTHOR

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

[ top ]

16. MATERIAL AVAILABLE

NEA-0683/01

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

[ top ]

17. CATEGORIES

H. Heat Transfer and Fluid Flow

Keywords: flow blockage, fluid flow, mass transfer, pressure gradients, shear, turbulent flow, velocity, walls.