>

[MAP Logo]

Materials Algorithms Project
Program Library


Subroutine MAP_STEEL_START

  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.

Top | Next

Purpose

To calculate the allotriomorphic ferrite start temperature.

Top | Next | Prev

Specification

Language:FORTRAN
Product form:Source code

SUBROUTINE MAP_STEEL_START(C1,C2,CURR,VOLT,EFF,SPEED,TINT,TOR,
& DCTEMP,TSTART,COOLR)

DOUBLE PRECISION C1,C2,CURR,VOLT,EFF,SPEED,TINT,TSTART,
& DCTEMP(40),TOR(40),COOLR(40)

Top | Next | Prev

Description

MAP_STEEL_START uses the function MAP_STEEL_CULRAT to calculate the cooling rate for temperature values in the array DCTEMP. These are used to determine the start temperature for allotriomorphic ferrite.

The heat flow constants C1 and C2 derive from equation (1b) of Ref [1]:

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

where dT/dt is the cooling rate, Q is the heat input (Jm-1), eta is the arc weld efficiency, and Ti is the interpass temperature.

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

DCTEMP - real array of dimension 40
DCTEMP holds the temperature values (in degrees celsius)

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

C2 - real
C2 is the heat flow constant C2 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).

TOR - real array of dimension 40
TOR contains the incubation times (in seconds)

Output parameters

TSTART - real
TSTART is the allotriomorphic start temperature (in centigrade).

COOLR - real array of dimension 40
COOLR contains the cooling rates associated with values of DCTEMP.

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

      DOUBLE PRECISION RADIUS,RAD,XMAX,XALPHA,XBAR,T,R,XMAXR,W,
     &SIG,MOLVOL,CAPCON,EPSI
C
      INCLUDE 'map_constants_gas.f'
      READ (5,*) SIG, XBAR, XALPHA
      READ (5,*) XMAX,T,W
C
      CALL MAP_STEEL_RRADNED(RADIUS,RAD,XMAX,XALPHA,XBAR,T,R,XMAXR,W,
     &SIG,MOLVOL,CAPCON,EPSI)
C
      WRITE(6,1)SIG,MOLVOL,RADIUS,XMAXR,CAPCON,EPSI
C
1     FORMAT(' INTERFACIAL ENERGY=',F8.4,' JOULES/METERS SQUARED'/
     &' MOLAR VOLUME OF FERRITE(METERS CUBED PER MOL)=',D15.6/
     &' GIBBS THOMPSON CRITICAL RADIUS(METERS)=',D15.6/
     &' EQUILIBRIUM CONC AT PLATE TIP, MOL FRAC, XMAXR=',D15.6/
     &' CAPILLARITY CONSTANT CAPCON,=',D15.6/
     &' NON-IDEALITY PARAMETER EPSI=',D15.6)
      STOP
      END

2. Program data

None supplied.

3. Program results

None supplied.

Top | Next | Prev

Auxiliary Routines

MAP_STEEL_CULRAT

Top | Next | Prev

Keywords

allotriomorphic ferrite, ferrite, start temperature, cooling rate

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!