Materials Algorithms Project
Program Library

Subroutine MAP_STEEL_VEL4

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 lengthening rate of a needle, represented as a paraboloid of revolution.

Top | Next | Prev

Specification

Top | Next | Prev

Description

MAP_STEEL_VEL4 calculates the lengthening rate of a needle, represented as a paraboloid of revolution. The rate calculated is for diffusion-controlled growth, using analysis in [1].

Top | Next | Prev

References

1. R. Trivedi, Metallurgical transactions, 1, {1970), 921-927.

Top | Next | Prev

Parameters

Input parameters

XMAX - real

XMAX is the equilibrium mole fraction of carbon in austenite.

XBAR - real

XBAR is the mole fraction of carbon in the alloy.

XALPHA - real

XALPHA is the equilibrium mole fraction of carbon in ferrite.

RADIUS - real

RADIUS is the critical needle tip radius at which growth stops (in metres).

ANS - real

ANS is the weighted average diffusion coefficient of carbon in austenite (in cm²s^-1).

DD - real

DD is ? (0.002)

PI - real

PI is pi.

Output parameters

OMEG - real

OMEG is the fraction (XMAX - XBAR)/(XMAX - XALPHA).

DUMM - real

DUMM is ????.

VMAX - real

VMAX is the maximum rate of growth (in metres per second).

PECLET - real

PECLET is ????.

RAD - real

RAD is the ratio of the actual needle tip radius to the critical radius.

Top | Next | Prev

Error Indicators

None.

Top | Next | Prev

Accuracy

No information supplied.

Top | Next | Prev

Further Comments

An alternative subroutine for this analysis is MAP_STEEL_VEL5.

Top | Next | Prev

Example

1. Program text

      IMPLICIT NONE
      DOUBLE PRECISION VMAX,ANS,RADIUS,XMAX,XBAR,XALPHA
      DOUBLE PRECISION OMEG,DUMMY,PECLET,RAD
      DOUBLE PRECISION DD,PI
      INTEGER IN
C
      INCLUDE 'map_constants_pi.f'
C
      READ (5,*) XMAX,XBAR,XALPHA
      READ (5,*) RADIUS,ANS,DD
      CALL MAP_STEEL_VEL4(VMAX,ANS,RADIUS,XMAX,XBAR,XALPHA,
     &                     OMEG,DUMMY,PECLET,RAD,DD,PI,IN)
      WRITE (6,*) OMEG,RAD,IN
      WRITE (6,*) VMAX,PECLET,DUMMY
C
      STOP
      END

2. Program data

None supplied.

3. Program results

None supplied.

Top | Next | Prev

Auxiliary Routines

None.

Top | Next | Prev

Keywords

lengthening rate, diffusion controlled, needle, growth, diffusion

Top | Next | Prev

Download

Download source code

Top | Prev