|
Last change
on this file since 5214 was
5214,
checked in by dcugnet, 7 weeks ago
|
|
The fortran parameters file "iso_params_mod.F90" is introduced so that "tnat" and "alpha_ideal" are defined in a single place but used in several.
The "getKey" routine is only used in "infotrac" and "infotrac_phy" routines, but could be used outside this scope to get tracers parameters (read from "tracer.def") or isotopic parameters (read from "isotopes_params.def" - disabled for now).
|
|
File size:
423 bytes
|
| Line | |
|---|
| 1 | MODULE iso_params_mod |
|---|
| 2 | |
|---|
| 3 | REAL, PARAMETER :: tnat_H216O = 1.0000, alpha_ideal_H216O = 1.000, & |
|---|
| 4 | tnat_H217O = 40.000e-6, alpha_ideal_H217O = 1.003, & |
|---|
| 5 | tnat_H218O = 2005.2e-6, alpha_ideal_H218O = 1.006, & |
|---|
| 6 | tnat_HDO = 155.76e-6, alpha_ideal_HDO = 1.010, & |
|---|
| 7 | tnat_HTO = 0.0000, alpha_ideal_HTO = 1.000 |
|---|
| 8 | |
|---|
| 9 | END MODULE iso_params_mod |
|---|
| 10 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
