New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_kind.F90 in trunk/NEMO/OPA_SRC – NEMO

source: trunk/NEMO/OPA_SRC/par_kind.F90 @ 3

Last change on this file since 3 was 3, checked in by opalod, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1MODULE par_kind
2   !!======================================================================
3   !!                   ***  MODULE par_kind  ***
4   !! Ocean :  define the kind of real for the whole model
5   !!======================================================================
6   !! History :
7   !!   8.5   02/06  (G. Madec)  Original code
8   !!----------------------------------------------------------------------
9   !!   OPA 9.0 , LODYC-IPSL (2003)
10   !!----------------------------------------------------------------------
11
12   IMPLICIT NONE
13   PRIVATE
14
15   INTEGER, PUBLIC, PARAMETER ::    &
16      jpbyt   = 8       ,           &  !: real size for mpp communications
17      jpbytda = 4       ,           &  !: real size in input data files 4 or 8
18      jpbi3e  = 4                      !: real size for T3E
19
20   ! Number model from which the SELECTED_*_KIND are requested:
21   !             4 byte REAL       8 byte REAL
22   ! CRAY:           -            precision = 13
23   !                              exponent = 2465
24   ! IEEE:      precision = 6     precision = 15
25   !            exponent = 37     exponent = 307
26
27   INTEGER, PUBLIC, PARAMETER ::        &  !  Floating point section
28      sp = SELECTED_REAL_KIND(6,37)  ,  &  !: single precision (real 4)
29      dp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8)
30      wp = dp                              !: working precision
31
32   INTEGER, PUBLIC, PARAMETER ::        &  !  Integer section
33      i4 = SELECTED_INT_KIND(9) ,       &  !: single precision (integer 4)
34      i8 = SELECTED_INT_KIND(14)           !: double precision (integer 8)
35
36!!----------------------------------------------------------------------
37END MODULE par_kind
Note: See TracBrowser for help on using the repository browser.