source:
branches/UKMO/GO6_package_r8356_CICEnudging/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_singledouble.F90
Last change on this file 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.