H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Subroutine added: April 1999
Calculates the cooling curve for the fusion zone of a steel weld deposit.
Language: | FORTRAN |
Product form: | Source code |
MAP_STEEL_COOLCU calculates the cooling curve for the fusion zone of a steel weld deposit from equation (1b) of reference [1]:
dT/dt = (C1/(Q.eta)).(T - Ti)C2 ,
This equation has been shown to represent accurately the experimental cooling curves over the temperature range 800 to 500 deg. C [1]. The heat input is calculated from the welding current, welding voltage and welding speed. C1 and C2 are defined by the above equation and can be determined by fitting it to an experimental cooling curve. Values for C1 and C2 have also been determined by fitting the 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 estimate the expected cooling curve.
IFAIL is set to 1 if the interpass temperature TINT is too high (> 499oC).
See reference 1.
None.
DOUBLE PRECISION VOLT,CURR,EFF,SPEED,TINT,C1,C2 DOUBLE PRECISION CTEMP(16),TIME(16),TIM INTEGER IFAIL,L1 C WRITE (*,*) 'Welding voltage and welding current:' READ(*,*) VOLT, CURR WRITE (*,*) 'Welding speed and welding efficiency:' READ (*,*) SPEED, EFF WRITE (*,*) 'Interpass temperature:' READ(*,*) TINT WRITE (*,*) 'C1 and C2:' READ(*,*) C1, C2 CALL MAP_STEEL_COOLCU(VOLT, CURR, EFF, SPEED, TINT, & C1, C2, CTEMP, TIME, TIM, IFAIL) IF (IFAIL .EQ. 1) THEN WRITE (6,1) ELSE WRITE (6,2) DO 100 L1=1,16 WRITE (6,3) CTEMP(L1), TIME(L1) 100 CONTINUE WRITE (6,4) TIM ENDIF STOP 1 FORMAT ('Interpass temperature is too high') 2 FORMAT ('Temperature (deg. C) Time (seconds)') 3 FORMAT (5X,F8.2,11X,F8.2) 4 FORMAT (/'Time to cool from 800C to 500C =',F8.2,' seconds') END
Welding voltage and welding current: 34 180 Welding speed and welding efficiency: 0.004 0.775 Interpass temperature: 200 C1 and C2: 1325 1.6
Temperature (deg. C) Time (seconds) 950.00 1.07 900.00 2.25 850.00 3.59 800.00 5.09 750.00 6.81 700.00 8.80 650.00 11.14 600.00 13.94 550.00 17.35 500.00 21.65 450.00 27.28 400.00 35.06 350.00 46.76 300.00 67.08 250.00 115.62 201.00 1464.48 Time to cool from 800C to 500C = 16.56 seconds
None.
cooling curve, steel, weld, fusion zone
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk