H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Calculates the Gibbs-Thompson critical radius for the tip of a needle that leads to zero growth, and the equilibrium concentration at the needle tip.
| Language: | FORTRAN |
| Product form: | Source code |
MAP_STEEL_RRADNED calculates the Gibbs-Thompson critical radius for the tip of a needle that leads to zero growth. It also calculcates the equilibrium concentration at the needle tip, the capillarity constant, and the non-ideality parameter.
The ratio of the actual needle tip radius to the critical radius is calculated using an equation derived by fitting to the graph in Ref [1].
None.
No information supplied.
None.
DOUBLE PRECISION RADIUS,RAD,XMAX,XALPHA,XBAR,T,R,XMAXR,W,
& SIG,MOLVOL,CAPCON,EPSI
INCLUDE 'map_constants_gas.f'
READ (5,*) SIG, XBAR, XALPHA
READ (5,*) XMAX,T,W
CALL MAP_STEEL_RRADNED(RADIUS,RAD,XMAX,XALPHA,XBAR,T,R,XMAXR,W,
& SIG,MOLVOL,CAPCON,EPSI)
WRITE(6,1)SIG,MOLVOL,RADIUS,XMAXR,CAPCON,EPSI
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
None supplied.
None supplied.
Gibbs Thompson, critical radius, equilibrium concentration, austenite, ferrite, tip, needle
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk