[MAP Logo]

Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_HFLOW

Provenance of code.
Purpose of code.
Specification.
Description of subroutine's operation.
References.
Parameter descriptions.
Error indicators.
Accuracy estimate.
Any additional information.
Example of code
Auxiliary subroutines required.
Keywords.
Download source code.
Links.

Provenance of Source Code

H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.

Top | Next

Purpose

Gives values for the heat constants C1, C2, and the arc weld efficiency EFF.

Top | Next | Prev

Specification

Language:	FORTRAN
Product form:	Source code

SUROUTINE MAP_STEEL_HFLOW(J, C1, C2, EFF)

DOUBLE PRECISION C1, C2, EFF

INTEGER J

Top | Next | Prev

Description

The heat constants C₁ and C₂ derive from equation (1b) of [1]:

dT/dt = (C₁/Q*eta)(T - T_i)^C₂

where :-: dT/dt is the cooling rate,; Q is the heat input (Jm^-1),; eta is the arc weld efficiency and; T_i is the interpass temperature.

Top | Next | Prev

References

L.-E. Svensson, B. Gretoft and H.K.D.H. Bhadeshia, Scandinavian Journal of Metallurgy, 15, (1986), 97-103.
S. Park, Internal Report, ESAB AB, Sweden, 1980.
H.K.D.H. Bhadeshia, L.-E. Svensson and B. Gretoft, Welding and Performance of Pipelines, Welding Institute Conference, (1986), Paper 17.
S. Court and J. Pollard, Welding Metallurgy of Structural Steels, ed. J.Y. Koo, TMS-AIME, (1987).
A.P. Chakravati, R. Thibau and S.R. Bala, Metal Construction, (1985), 178R.
E. Metzbower, U.S. Navy Laboratories, Washington, (private communication, 1993).

Top | Next | Prev

Parameters

Input parameters

J - integer
J takes an integer value between 1 and 14:-: 1 - manual metal arc.; 2 - metal cored wire, CO2 shielding - Ref [2].; 3 - metal cored wire, Fogon 20 shielding - Ref [2].; 4 - tandem submerged arc - Ref [3].; 5 - submerged arc.; 6 - vertical-up MMA - Ref [4].; 7 - bead on plate FCAW - Ref [5].; 8 - bead on plate, self-shielded - Ref [5].; 9 - bead on plate SAW - Ref [5].; 10 - measured time-temperature horizontal GMAW - Ref [6]; 11 - measured time-temperature flat GMAW - Ref [6].; 12 - measured time-temperature vertical GMAW - Ref [6].; 13 - measured time-temperature vertical GMAW - Ref [6].; 14 - computed time-temperature for laser weld.

Output parameters

C1 - real: C1 is the heat constant C₁ described above.
C2 - real: C2 is the heat constant C₂ described above.
EFF - real: EFF is the arc welding efficiency.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

       DOUBLE PRECISION C1,C2,EFF
       INTEGER J
       READ (5,*) J
       CALL MAP_STEEL_HFLOW(J,C1,C2,EFF)
       WRITE (6,*) C1,C2,EFF
       STOP
       END