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/OFF_SRC – NEMO

source: trunk/NEMO/OFF_SRC/par_kind.F90 @ 325

Last change on this file since 325 was 325, checked in by opalod, 19 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 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 , LOCEAN-IPSL (2005)
10   !! $Header$
11   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
12   !!----------------------------------------------------------------------
13
14   IMPLICIT NONE
15   PRIVATE
16
17   INTEGER, PUBLIC, PARAMETER ::    &  !:
18      jpbyt   = 8       ,           &  !: real size for mpp communications
19      jpbytda = 4       ,           &  !: real size in input data files 4 or 8
20      jpbi3e  = 4                      !: real size for T3E
21
22   ! Number model from which the SELECTED_*_KIND are requested:
23   !             4 byte REAL       8 byte REAL
24   ! CRAY:           -            precision = 13
25   !                              exponent = 2465
26   ! IEEE:      precision = 6     precision = 15
27   !            exponent = 37     exponent = 307
28
29   INTEGER, PUBLIC, PARAMETER ::        &  !: Floating point section
30      sp = SELECTED_REAL_KIND( 6, 37),  &  !: single precision (real 4)
31      dp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8)
32      wp = dp                              !: working precision
33
34   INTEGER, PUBLIC, PARAMETER ::        &  !: Integer section
35      i4 = SELECTED_INT_KIND(9) ,       &  !: single precision (integer 4)
36      i8 = SELECTED_INT_KIND(14)           !: double precision (integer 8)
37
38!!----------------------------------------------------------------------
39END MODULE par_kind
Note: See TracBrowser for help on using the repository browser.