[MAP Logo]

Materials Algorithms Project
Program Library



Subroutine MAP_STEEL_TIM

  1. Provenance of code.
  2. Purpose of code.
  3. Specification.
  4. Description of subroutine's operation.
  5. References.
  6. Parameter descriptions.
  7. Error indicators.
  8. Accuracy estimate.
  9. Any additional information.
  10. Example of code
  11. Auxiliary subroutines required.
  12. Keywords.
  13. Download source code.
  14. 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.

Added to MAP: May 1999.

Top | Next

Purpose

To calculate the time taken for the fusion zone of a steel weld deposit to cool from T1 to T2.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

 SUBROUTINE MAP_STEEL_TIM(C1,C2,TIME,HIGHT,LOWT,CURR,
&                                   VOLT,EFF,VELOC,TINT)

 DOUBLE PRECISION C1,C2,TIME,HIGHT,LOWT,CURR,VOLT,EFF
 DOUBLE PRECISION VELOC,TINT

Top | Next | Prev

Description

MAP_STEEL_TIM calculates the time taken for the fusion zone of a steel weld deposit to cool from T1 to T2 using the equation:

t = (Q*eta/C1(1-C2)).[(T1-Ti)1-C2 - (T2-Ti)1-C2]

(equation 1(c) in reference 1), where Q is the heat input (Jm-1) (determined by the welding current, welding voltage and welding speed), eta is the arc weld efficiency and Ti is the interpass temperature (°C). The heat constants C1 and C2 are derived by fitting the experimental cooling curve with the equation:

dT/dt = (C1/Q*eta).(T - Ti)C2

(equation 1(b) of reference 1),where dT/dt is the cooling rate. This equation has been shown to represent accurately the experimental cooling curve from manual metal arc and submerged arc welds over the temperature range 800 to 500 °C. Values for C1 and C2 were determined by fitting this equation to a large data-set from many different welds [1]:

C1C2
manual metal arc1324.81.600
submerged arc4359.01.510

These values for C1 and C2 can be used to predict the expected cooling curve. See also MAP_STEEL_COOLCU.

Top | Next | Prev

References

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

C1 - real
C1 is the heat constant C1 described above.

C2 - real
C2 is the heat constant C2 described above.

HIGHT - real
HIGHT is the start temperature T1 (°C).

LOWT - real
LOWT is the stop temperature T2 (°C).

CURR - real
CURR is the welding current (Amps).

VOLT - real
VOLT is the welding voltage (Volts).

EFF - real
EFF is the arc transfer efficiency.

VELOC - real
VELOC is the welding speed (ms-1).

TINT - real
TINT is the interpass or preheat temperature (°C).

Output parameters

TIME - real
TIME is the time taken to cool from T1 to T2 (seconds).

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

See reference 1.

Top | Next | Prev

Further Comments

None.

Top | Next | Prev

Example

1. Program text

      DOUBLE PRECISION C1,C2,TIME,HIGHT,LOWT,CURR
      DOUBLE PRECISION VOLT,EFF,VELOC,TINT
      WRITE(*,*)
      WRITE(*,*) 'Input initial and final temperatures:'
      READ (*,*) HIGHT,LOWT
      WRITE(*,*) 'Input heat constants C1 and C2:'
      READ (*,*) C1,C2
      WRITE(*,*) 'Input welding current, voltage and efficiency:'
      READ (*,*) CURR,VOLT,EFF
      WRITE(*,*) 'Input welding speed and interpass temperature:'
      READ (*,*) VELOC,TINT
      CALL MAP_STEEL_TIM(C1,C2,TIME,HIGHT,LOWT,CURR,VOLT,EFF,
     &                                                    VELOC,TINT)
      WRITE (*,1) HIGHT,LOWT,TIME
    1 FORMAT(/'Time taken to cool from ',F6.1,' to ',F6.1,
     &       ' deg. C =',F10.3,' seconds.')
      STOP
      END

2. Program data

 Input initial and final temperatures:
        806         611
 Input heat constants C1 and C2:
       1324.8       1.6
 Input welding current, voltage and efficiency:
        180          34          0.775
 Input welding speed and interpass temperature:
      0.004         200

3. Program results

Time taken to cool from  806.0 to  611.0 deg. C =     8.377 seconds.

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

steel, weld, cooling, time, heat constant

Top | Next | Prev

Download

Download source code

Top | Prev


MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.

MAP Website administration / map@msm.cam.ac.uk

Top | Index | MAP Homepage Valid HTML 3.2!