Last change
on this file since 2696 was
2696,
checked in by kanani, 6 years ago
|
Merge of branch palm4u into trunk
|
File size:
445 bytes
|
Line | |
---|
1 | |
---|
2 | MODULE chem_gasphase_mod_Precision |
---|
3 | |
---|
4 | ! |
---|
5 | ! Definition of different levels of accuracy |
---|
6 | ! for REAL variables using KIND parameterization |
---|
7 | ! |
---|
8 | ! KPP SP - Single precision kind |
---|
9 | INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) |
---|
10 | ! KPP DP - Double precision kind |
---|
11 | INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) |
---|
12 | ! KPP QP - Quadruple precision kind |
---|
13 | INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) |
---|
14 | |
---|
15 | END MODULE chem_gasphase_mod_Precision |
---|
16 | |
---|
17 | |
---|
Note: See
TracBrowser
for help on using the repository browser.