source:
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/TOOLS/OBSTOOLS/src/toolspar_kind.F90
@
5985
| Last change on this file since 5985 was 5985, checked in by timgraham, 8 years ago | |
|---|---|
|
|
| File size: 417 bytes | |
| Line | |
|---|---|
| 1 | MODULE toolspar_kind |
| 2 | IMPLICIT NONE |
| 3 | INTEGER, PUBLIC, PARAMETER :: & !: Floating point section |
| 4 | sp = SELECTED_REAL_KIND( 6, 37), & !: single precision (real 4) |
| 5 | dp = SELECTED_REAL_KIND(12,307), & !: double precision (real 8) |
| 6 | wp = SELECTED_REAL_KIND(12,307), & !: double precision (real 8) |
| 7 | ik = SELECTED_INT_KIND(6) !: integer precision |
| 8 | END MODULE toolspar_kind |
Note: See TracBrowser
for help on using the repository browser.
