source:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_singledouble.F90
@
7251
Last change on this file since 7251 was 5841, checked in by jpalmier, 9 years ago | |
---|---|
File size: 458 bytes |
Line | |
---|---|
1 | !> \file mocsy_singledouble.f90 |
2 | !! \BRIEF |
3 | !> Module that defines single and double precision - used by all other modules |
4 | MODULE mocsy_singledouble |
5 | ! INTEGER, PARAMETER :: r4 = SELECTED_REAL_KIND(6) |
6 | ! INTEGER, PARAMETER :: r8 = SELECTED_REAL_KIND(12) |
7 | INTEGER, PARAMETER :: r4 = KIND(1.0) |
8 | INTEGER, PARAMETER :: r8 = KIND(1.0d0) |
9 | ! INTEGER, PARAMETER :: wp = KIND(1.0d0) |
10 | INTEGER, PARAMETER :: wp = SELECTED_REAL_KIND(12,307) |
11 | END MODULE mocsy_singledouble |
Note: See TracBrowser
for help on using the repository browser.