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/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/par_kind.F90 @ 11738

Last change on this file since 11738 was 11738, checked in by marc, 4 years ago

The Dr Hook changes from my perl code.

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   USE yomhook, ONLY: lhook, dr_hook
11   USE parkind1, ONLY: jprb, jpim
12
13   IMPLICIT NONE
14   PRIVATE
15
16   INTEGER, PUBLIC, PARAMETER ::   jpbyt   = 8    !: real size for mpp communications
17   INTEGER, PUBLIC, PARAMETER ::   jpbytda = 4    !: real size in input data files 4 or 8
18
19   ! Number model from which the SELECTED_*_KIND are requested:
20   !             4 byte REAL       8 byte REAL
21   ! CRAY:           -            precision = 13
22   !                              exponent = 2465
23   ! IEEE:      precision = 6     precision = 15
24   !            exponent = 37     exponent = 307
25
26   !                                                                !!** Floating point **
27   INTEGER, PUBLIC, PARAMETER ::   sp = SELECTED_REAL_KIND( 6, 37)   !: single precision (real 4)
28   INTEGER, PUBLIC, PARAMETER ::   dp = SELECTED_REAL_KIND(12,307)   !: double precision (real 8)
29   INTEGER, PUBLIC, PARAMETER ::   wp = dp                              !: working precision
30
31   !                                                                !!** Integer **
32   INTEGER, PUBLIC, PARAMETER ::   i4 = SELECTED_INT_KIND( 9)        !: single precision (integer 4)
33   INTEGER, PUBLIC, PARAMETER ::   i8 = SELECTED_INT_KIND(14)        !: double precision (integer 8)
34   
35   !                                                                !!** Integer **
36   INTEGER, PUBLIC, PARAMETER ::   lc = 256                          !: Lenght of Character strings
37
38   !!----------------------------------------------------------------------
39   !! NEMO 3.3 , NEMO Consortium (2010)
40   !! $Id$
41   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
42   !!----------------------------------------------------------------------
43END MODULE par_kind
Note: See TracBrowser for help on using the repository browser.