source:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/mocsy_singledouble.F90
@
10046
Last change on this file since 10046 was 5841, checked in by jpalmier, 9 years ago | |
---|---|
File size: 458 bytes |
Rev | Line | |
---|---|---|
[5841] | 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.