Program Library

- Provenance of code.
- Purpose of code.
- Specification.
- Description of program's operation.
- References.
- Parameter descriptions.
- Error indicators.
- Accuracy estimate.
- Any additional information.
- Example of code
- Auxiliary routines required.
- Keywords.
- Download source code.
- Links.

Jeevan Jaidi

Research Scholar,

Mechanical Engineering Department,

Indian Institute of Science, Bangalore 560012,

India

E-mail: jaidi@mecheng.iisc.ernet.in

Added to MAP: August 2000.The code calculates the average grain size in the absence of alloying elements/precipitates (free grain growth). This code has been written for a continuous arc welding application, where the thermal history consists of heating and cooling periods. Here, the temperature is transient. The code can also be used for the average grian size calculations in the presence of stabe alloying elements/precipitates or growing precipitates or dissolving precipitates by modifying the rate equation. The maximum average grain size depends on the peak temperature of the thermal cycle.

The rate of change of average grain size in the case of free growth is expressed

by the following equation:

Language: |
FORTRAN 90 |

Product form: |
Source code |

Complete program.

- .] O. M. Akselsen, O. Grong, N. Ryum, and N. Christensen, Acta Metall. 34 (1986) 1807-1815.
- M. F. Ashby and K. E. Easterling, Acta Metallurgica, 30 (1982) 1969-1978.
- J. Oystein Grong, Metallurgical Modelling of Welding, 2
^{nd}edition, published by the Insitute of Materials, London.

DT is a real array containing the time in seconds, G0 is the initial average grain size in micrometers, ISTART is an integer (the Nth starting data point for heating or cooling period ) IEND is an integer (the Nth ending data point for heating or cooling period), LL is an integer describing the number of data points, M0 or M_{o}* are real and represent the physical parameter related to the grain boundary mobility in units of square micrometers per second, n is a real number representing the time exponent (0.5), QG (or Q_{app} ) are real numbers representing the activation energy for grain growth in Joules per mole, R is a real number representing the universal gas constant in Joules per mole per Kelvin, T is a real array containing the temperature in Kelvin.

- G is a real array giving the average grain size in micrometers

The ISTART and IEND for heating/cooling periods must be given correctly. Otherwise the consequence is inexact temperatures during interpolation.

No information supplied.

None.

Complete program.

See file ags1.in

See file ags1out.m

Average grain size, peak temperature, thermal cycle.

MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.