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.
To calculate the time taken for the fusion zone of a steel weld deposit to cool from T1 to T2.
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
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:
(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:
(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]:
C1 | C2 | |
---|---|---|
manual metal arc | 1324.8 | 1.600 |
submerged arc | 4359.0 | 1.510 |
These values for C1 and C2 can be used to predict the expected cooling curve. See also MAP_STEEL_COOLCU.
None.
See reference 1.
None.
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
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
Time taken to cool from 806.0 to 611.0 deg. C = 8.377 seconds.
None.
steel, weld, cooling, time, heat constant
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk