S.J. Jones* and H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
*Dr S.J. Jones is now with Ford Motor Co. (UK) Ltd.
To calculate the volume fraction of simultaneously nucleating phases. Parabolic and linear growth from both random and grain boundary nuclei is considered.
Language: | FORTRAN |
Product form: | Source code |
SUBROUTINE MAP_STEEL_SIM_TRANS(I2,TIME,PRETIME,DTIME,PARA1D, & PARA3D,DIFFUSY,GRWID,AR,ARWID,VIINCA,VIINCWID,VIA,VIWID, & EQVOLFRAC,OBOUND,PERCENTRANS,VTOTTRANS,VAREAL, & VWIDREAL,VAREALINC,VWIDREALINC,IFLAG,SATTIME) IMPLICIT NONE DOUBLE PRECISION & QA(1001),PREQA(1001),OREA(3000),PREOREA(3000),QWID(1001), & PREQWID(1001),OREWID(3000),PREOREWID(3000),Y(3000), & NOPARTINCA(1001),NOPARTINCWID(1001),NOPARTGBA(1001), & NOPARTGBWID(1001),TIMEOFNUCL(1001) DOUBLE PRECISION TIME,PRETIME,DTIME,PARA1D,PARA3D,DIFFUSY, & GRWID,AR,ARWID,VIINCA,VIINCWID,VIA,VIWID,EQVOLFRAC,OBOUND, & PERCENTRANS,VTOTTRANS,VAREAL,VWIDREAL,VAREALINC,VWIDREALINC, & SATTIME,PI,VOLTOT,YEND,DYSMA,DYMED,DYLAR,SUMINCA, & SUMINCWID,TIMESNINC,NEWCONINCA,NEWCONINCWID, & DVEXTAINC,DVEXTWIDINC,TIMESN, & MAXHGTA,MAXHGTWID,MAXHGT,ALLA,ALLWID,DOEXA, & DOEXWID,DOREA,DOREWID,FRACOBUT,PORA,PORWID,PREVAEXT, & VAEXT,PREVWIDEXT,VWIDEXT,DVAEXT,DVWIDEXT,FRACUT, & DVAREALINC,DVAREAL, & VTOTAREAL,PREVTFERR,GROWCONINCA,QAINCRE, & GROWCONINCWID,QWIDINCRE,DVWIDREALINC,DVWIDREAL,VTOTWIDREAL INTEGER I2,IFLAG,INOSMA,INOMED,INOLAR,IYPLANE,I20, & I610,I642,I810,I10,I400,I500 PARAMETER (PI=3.141592654)
The volume of any number of simultaneously nucleating phases in a system is calculated using a new numerical approach which is based on the methods of Johnson, Mehl and Avrami. Four possibilities are allowed :-
The model may be modified to allow any number of phases to nucleate at any number of sites.
If MAXHGT exceeds YEND then an error is reported and the program execution is stopped.
Numerical accuracy is dependent on the size of the time interval compared to the total time required for complete transformation. Exact solutions for a single nucleating phase indicate that when the nucleation and growth conditions remain invariant and the time interval used is 1% of the total transformation time, then an error of less than 1% is generated. This error may be reduced by using a smaller time interval. However, the computation time becomes enormous if the total number of time intervals is large. A variable time interval should therefore be used to allow both the transformation start and finish to be accurately represented. As the transformation proceeds the time interval should be gradually increased. For brevity this is not shown in the example program.
The numerical nature of the approach taken permits many simplifications to be removed so that the nucleation and growth conditions may vary according to the time, temperature and the degree of transformation. This permits the modelling of solute enrichmenment/depletion, anisothermal transformation conditions and the use of a variable time interval. The model could easily be extended to deal with nucleation on linear defects such as grain edges and dislocations.
PROGRAM MAP_STEEL_SIM_TRANS_EX IMPLICIT NONE DOUBLE PRECISION DTIME,PARA1D,PARA3D,DIFFUSY,GRWID,AR DOUBLE PRECISION ARWID,VIWID,EQVOLFRAC,OBOUND,VIINCA DOUBLE PRECISION VIINCWID,VIA C DOUBLE PRECISION TIME,PRETIME,PERCENTRANS,VTOTTRANS, & VAREAL,VWIDREAL,VAREALINC,VWIDREALINC,SATTIME C INTEGER I100,IFLAG C READ(*,*) DTIME,PARA1D,PARA3D,DIFFUSY,GRWID,AR,ARWID, & VIINCA,VIINCWID,VIA,VIWID,EQVOLFRAC,OBOUND TIME=0.0 DO 100 I100=1,10,1 PRETIME=TIME TIME=DTIME*I100 CALL MAP_STEEL_SIM_TRANS(I100,TIME,PRETIME,DTIME,PARA1D,PARA3D, & DIFFUSY,GRWID,AR,ARWID,VIINCA,VIINCWID,VIA,VIWID, & EQVOLFRAC,OBOUND,PERCENTRANS,VTOTTRANS,VAREAL, & VWIDREAL,VAREALINC,VWIDREALINC,IFLAG,SATTIME) WRITE(*,200) TIME,VTOTTRANS,VAREAL,VWIDREAL, & VAREALINC,VWIDREALINC IF (PERCENTRANS.GE.100.0) GOTO 300 100 CONTINUE 200 FORMAT(E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3,1X,E10.3) 300 STOP END
5.0 2.5 3.0 1.0E-13 1.0E-6 3.0 0.02 4.0E13 4.0E13 1.0E9 1.0E9 0.85 4.0E4
0.500E+01 0.714E-01 0.624E-01 0.500E-03 0.800E-02 0.500E-03 0.100E+02 0.192E+00 0.127E+00 0.363E-01 0.266E-01 0.236E-02 0.150E+02 0.262E+00 0.134E+00 0.628E-01 0.564E-01 0.882E-02 0.200E+02 0.351E+00 0.134E+00 0.933E-01 0.991E-01 0.247E-01 0.250E+02 0.472E+00 0.134E+00 0.132E+00 0.152E+00 0.542E-01 0.300E+02 0.620E+00 0.134E+00 0.179E+00 0.209E+00 0.980E-01 0.350E+02 0.773E+00 0.134E+00 0.228E+00 0.262E+00 0.150E+00 0.400E+02 0.899E+00 0.134E+00 0.267E+00 0.300E+00 0.198E+00
None.
simultaneous, phase, transformation, nucleation, growth, random, boundary, reconstructive, displacive, numerical, anisothermal, depletion, enrichment
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk