![[MAP Logo]](../../maplogo1.gif) 
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