[MAP Logo]

Materials Algorithms Project
Program Library

Function MAP_STEEL_CULRAT

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

To obtain the cooling rate of a steel weld at a specified temperature.

Top | Next | Prev

Specification

Language:	FORTRAN
Product form:	Source code

DOUBLE PRECISION FUNCTION MAP_STEEL_CULRAT(T,TINT,C1,C2,CURR,VOLT,EFF,SPEED)

DOUBLE PRECISION T,TINT,C1,C2,CURR,VOLT,EFF,SPEED
DOUBLE PRECISION MAP_STEEL_CULRAT,XCUL

Top | Next | Prev

Description

MAP_STEEL_CULRAT calculates the cooling rate of a steel weld at a specified temperature. The heat flow constants C₁ and C₂ derive from equation (1b) of Ref [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.

Top | Next | Prev

Parameters

Input parameters

T - real: T is the temperature (in kelvin).
TINT - real: TINT is the interpass or preheat temperature (in kelvin).
C1 - real: C1 is the heat flow constant described above.
C2 - real: C2 is the heat flow constant described above.
CURR - real: CURR is the welding current (in amperes).
VOLT - real: VOLT is the welding voltage (in volts).
EFF - real: EFF is the arc transfer efficiency.
SPEED - real: SPEED is the welding speed (in metres per second, ms^-1).

Output parameters

CULRAT - real: CULRAT is the cooling rate (in degrees Kelvin/second).

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

C Test program for the function MAP_STEEL_CULRAT 
C
C
      DOUBLE PRECISION T,TINT,C1,C2,CURR,VOLT,EFF,SPEED
      DOUBLE PRECISION MAP_STEEL_CULRAT,XCUL
      READ (*,*) T,TINT,C1,C2
      READ (*,*) CURR,VOLT,EFF,SPEED
      XCUL=MAP_STEEL_CULRAT(T,TINT,C1,C2,CURR,VOLT,EFF,SPEED)
      WRITE (*,1) T,XCUL
      STOP
1     FORMAT (1H ,'Cooling rate at ',F7.2,' Kelvin is ', F6.3,
     & ' Kelvin/second')
      END