Computer Programs
NEA-0683 BLOK.
last modified: 20-JUL-1984 | catalog | categories | new | search |

NEA-0683 BLOK.

BLOK, Turbulent Flow in Pipes and Channels with Rectangular Obstruction

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.