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 branches/dev_001_GM/NEMO/OPA_SRC – NEMO

source: branches/dev_001_GM/NEMO/OPA_SRC/par_kind.F90 @ 2291

Last change on this file since 2291 was 778, checked in by gm, 17 years ago

dev_001_GM - par_oce evolution: suppress the par_...h90 and create new module for all ocean configuration -compilation OK
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.9 KB
Line 
1MODULE par_kind
2   !!======================================================================
3   !!                   ***  MODULE par_kind  ***
4   !! Ocean :  define the kind of real for the whole model
5   !!======================================================================
6   !! History :   8.5   2002/06  (G. Madec)  Original code
7   !!             9.0   2007/11  (G. Madec)  Coding style
8   !!----------------------------------------------------------------------
9   !! NEMO 2.4, LOCEAN-IPSL (2007)
10   !! $Id:$
11   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
12   !!----------------------------------------------------------------------
13
14   IMPLICIT NONE
15   PRIVATE
16
17   INTEGER, PUBLIC, PARAMETER ::   jpbyt   = 8        !: real size for mpp communications
18   INTEGER, PUBLIC, PARAMETER ::   jpbytda = 4        !: real size in input data files 4 or 8
19   INTEGER, PUBLIC, PARAMETER ::   jpbi3e  = 4        !: real size for T3E
20
21   ! Number model from which the SELECTED_*_KIND are requested:
22   !             4 byte REAL       8 byte REAL
23   ! CRAY:           -            precision = 13
24   !                              exponent = 2465
25   ! IEEE:      precision = 6     precision = 15
26   !            exponent = 37     exponent = 307
27
28   !                                       !: Floating point section
29   INTEGER, PUBLIC, PARAMETER ::   sp = SELECTED_REAL_KIND( 6, 37)    !: single precision (real 4)
30   INTEGER, PUBLIC, PARAMETER ::   dp = SELECTED_REAL_KIND(12,307)    !: double precision (real 8)
31   INTEGER, PUBLIC, PARAMETER ::   wp = dp                            !: working precision
32
33   !                                       !: Integer section
34   INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)         !: single precision (integer 4)
35   INTEGER, PUBLIC, PARAMETER ::   i8 = SELECTED_INT_KIND(14)         !: double precision (integer 8)
36
37!!----------------------------------------------------------------------
38END MODULE par_kind
Note: See TracBrowser for help on using the repository browser.