source: NEMO/trunk/src/OCE/par_kind.F90 @ 14433

Last change on this file since 14433 was 14433, checked in by smasson, 4 months ago

trunk: merge dev_r14312_MPI_Interface into the trunk, #2598

  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1MODULE par_kind
2   !!======================================================================
3   !!                   ***  MODULE par_kind  ***
4   !! Ocean :  define the kind of real for the whole model
5   !!======================================================================
6   !! History :  1.0  ! 2002-06  (G. Madec)  Original code
7   !!            3.3  ! 2010-12  (G. Madec)  add a standard length of character strings
8   !!----------------------------------------------------------------------
9
10   IMPLICIT NONE
11   PRIVATE
12
13   ! Number model from which the SELECTED_*_KIND are requested:
14   !             4 byte REAL       8 byte REAL
15   ! CRAY:           -            precision = 13
16   !                              exponent = 2465
17   ! IEEE:      precision = 6     precision = 15
18   !            exponent = 37     exponent = 307
19
20   !                                                                !!** Floating point **
21   INTEGER, PUBLIC, PARAMETER ::   sp = SELECTED_REAL_KIND( 6, 37)   !: single precision (real 4)
22   INTEGER, PUBLIC, PARAMETER ::   dp = SELECTED_REAL_KIND(12,307)   !: double precision (real 8)
23# if defined key_single
24   INTEGER, PUBLIC, PARAMETER ::   wp = sp                              !: working precision
25# else
26   INTEGER, PUBLIC, PARAMETER ::   wp = dp                              !: working precision
27# endif
28
29   !                                                                !!** Integer **
30   INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)        !: single precision (integer 4)
31   INTEGER, PUBLIC, PARAMETER ::   i8 = SELECTED_INT_KIND(14)        !: double precision (integer 8)
32   
33   !                                                                !!** Integer **
34   INTEGER, PUBLIC, PARAMETER ::   lc  = 256                          !: Lenght of Character strings
35   INTEGER, PUBLIC, PARAMETER ::   lca = 400                          !: Lenght of Character arrays
36
37   !!----------------------------------------------------------------------
38   !! NEMO 3.3 , NEMO Consortium (2018)
39   !! $Id$
40   !! Software governed by the CeCILL license (see ./LICENSE)
41   !!----------------------------------------------------------------------
42END MODULE par_kind
Note: See TracBrowser for help on using the repository browser.