|
Last change
on this file since 5183 was
5183,
checked in by dcugnet, 3 months ago
|
- Remove INCA retro-compatibility with "traceur.def" (containing only water tracers but getting chemical species from an internal INCA routine).
- The "trac_type" derived type internal to "readTracFiles_mod" is removed because a generic "keys_type" is enough: no explicit key ("%" operator) is needed, even %name.
- The "trac_type" and "isot_type" derived types are now defined locally in "infotrac" and "infotrac_phy" (and more generally in each context: dynamic, lmdz dynamics, lmdz physics, etc.).
The "readTracFiles_mod" module is now only used in these two routines:
- few internal routines/variables (addPhase, delPhase, new2oldH2O, newHNO3, oldHNO3) are made available through "infotrac" and "infotrac_phy".
- the "getKey" routine is only used in these two routines to define the explicit keys ("%" operator) of the local derived types "trac_type" and "isot_type".
It could be in principle used outside this scope to get tracers parameters (read from "tracer.def") or isotopic parameters (read from "isotopes_params.def" - disabled for now).
- 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.
"ltnat1" is no longer hardcoded but defined with the *.def files parameter "tnat1"
- Few minor changes:
- use "infotrac_phy" instead of "infotrac" in calfis* because "tracers(:)%isAdvected" is defined in physics only.
- "isotopes_mod" now ready for several isotopes classes (currently: only H2O)
- isotopes class name (the name of the parent of the isotopes) is now %name and no longer %parent.
- improvement of "getKey"
|
|
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.
