![]() |
Materials Algorithms Project
|
Eun Ju Song
Computational Metallurgy Laboratory,
Graduate Institute of Ferrous Technology ,
Pohang University of Science and Technology,
Pohang, Republic of Korea.
E-mail: joker12@postech.ac.kr
The program was modified by David Bombac in May 2015, after he and Chris Hulme-Smith spotted a problem to some uninitialised array elements that caused the results to become NaN (not a number). This did not happen on Windows as gfortran treats the array elements differently there than it does on Linux. David has rewritten the program in Fortran 90 to avoid this problem and optimise the code slightly and says he has tested it on Windows and Linux and it works as it should. I have attached the new file in case you want to upload it to MAP.
David recommends compiling with the command “gfortran -O3 -static [name of source code] -o [name of binary to be created]". The -O3 (letter O, not digit 0) optimises the binary to speed up the program and the -static builds any required libraries into the binary so that it may be used on any system even if there are no external fortran libraries present.
Added to MAP: March 2013. Modified March 2014 for compatibility with gfortran compiler. Modified May 2015 to correct uninitialized arrays.
Simulation of the thermal desorption spectrum of hydrogen in ferrite, acconting for both diffusion and trapping phenomena. The model is capable of treating more than one trap.
Language: | FORTRAN |
Product form: | Compaq visual Fortran |
Complete program.
This program simulates the charging, aging and releasing of hydrogen by implementaing both diffusion and trapping simultaneously. It increases the temperature during the desorption with the given heating rate. Maximum three kinds of traps can be assumed with different binding energies and trap densities. Users can choose the model for trapping, local equilibrium or kinetic model.
None.
No information supplied.
None.
Complete program.
See inputfile, in.txt.
See outputfile, charging.txt, aging.txt, desorp.txt, RESULT.txt.
None
hydrogen thermal desorption, trapping, ferrite