G.I. Rees,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Gives the time for any given temperature as a function of the characteristic time.
Language: | FORTRAN |
Product form: | Source code |
The thermal cycle of the weld is assumed to be past its peak. As a function of the characteristic time Delta, MAP_STEEL_TIMTEMP gives the time for any temperature, with zero time corresponding to 800°C.
where tcc is the input temperature and t00 is set within the program to be 70°C.
None supplied.
None.
No information supplied.
Called by MAP_STEEL_MICRO if natural weld-type cooling is being used rather than cooling that is linear with time.
DOUBLE PRECISION TCC, DELT, MAP_STEEL_TIMTEMP, TIMX READ (5,*) TCC, DELT TIMX = MAP_STEEL_TIMTEMP(TCC, DELT) WRITE (6,10) TIMX 10 FORMAT ('Time is ',D13.5,' seconds') STOP END
700.0 500.0
Time is 0.11376D+03 seconds
None.
natural weld-type cooling
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk