H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Added to MAP: September 1999.
To calculate the nitrogen concentration in manual metal arc welds.
Language: | FORTRAN |
Product form: | Source code |
SUBROUTINE MAP_STEEL_NITMMA(C,SI,MN,NI,MO,CR,V,AL,TI,CO,NB,TA,W, & ZR,CU,NITPPM,HEAT,IFAIL) DOUBLE PRECISION C,SI,MN,NI,MO,CR,V,AL,TI,CO,NB,TA,W,ZR,CU DOUBLE PRECISION NITPPM,HEAT INTEGER IFAIL
MAP_STEEL_NITMMA calculates the nitrogen concentration, Nc, in manual metal arc welds using the equation:
where F is the activity coefficient of the steel and Ht is the electrical heat input to the weld [1].
The activity coefficient [3] is a factor which accounts for the influence of alloying elements on the solubility of nitrogen in dilute liquid steel. It is calculated from the concentrations (wt. %) of C, Si, Mn, Ni, Mo, Cr, V, Al, Ti, Co, Cu, Nb, Ta, W, and Zr present in the steel weld by calling MAP_STEEL_NITR. If any of the input values for the concentrations of C, Si, Mn, Ni, Mo, Cr, or V, are greater than certain specified limits, beyond which the nitrogen calculation is uncertain, then the value for the upper limit is used in the calculations. The input variables, however, remain unchanged on exit from the subroutine. It is assumed that Al, Ti, Co, Cu, Nb, Ta, W, and Zr are present as trace elements only.
IFAIL = 1 on exit if any of the concentrations of C, Si, Mn, Ni, Mo, Cr, or V exceed the specified limits.
IFAIL = 0 otherwise.
The typical error is ±20 ppmw.
If the estimated value for the nitrogen concentration, obtained using the above equation, is less than zero, then it is set to zero.
DOUBLE PRECISION AL,TI,CO,NB,TA,W,ZR,CU DOUBLE PRECISION C,SI,MN,NI,MO,CR,V,NITPPM,HEAT INTEGER IFAIL C WRITE(*,*) 'Input C, Si, Mn, Ni, Mo, Cr, V (wt%):' READ (*,*) C, SI, MN, NI, MO, CR, V WRITE(*,*) 'Input Al, Ti, Co, Nb, Ta, W, Zr, Cu (wt%):' READ (*,*) AL, TI, CO, NB, TA, W, ZR, CU WRITE(*,*) 'Give heat input to weld (J/m):' READ (*,*) HEAT CALL MAP_STEEL_NITMMA(C,SI,MN,NI,MO,CR,V,AL,TI,CO,NB,TA,W, & ZR,CU,NITPPM,HEAT,IFAIL) WRITE (*,1) NITPPM IF (IFAIL.EQ.1) & WRITE(*,*) '**** WARNING **** Input data exceeded limits.' STOP 1 FORMAT(//' Nitrogen content of weld = ',F7.2, ' ppmw') END
Input C, Si, Mn, Ni, Mo, Cr, V (wt%): 0.05 0.5 1.0 0.0 0.5 0.5 0.0 Input Al, Ti, Co, Nb, Ta, W, Zr, Cu (wt%): 0.001 0.0 0.0 0.0 0.01 0.0 0.0 0.0 Give heat input to weld (J/m): 1.2E6
Nitrogen content of weld = 84.57 ppmw
Subroutines
MAP_STEEL_NITR
nitrogen, concentration, manual metal arc, weld, activity coefficient
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk