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.
defprec.f90 in branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/EXTERNAL/IOIPSL/src – NEMO

source: branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/EXTERNAL/IOIPSL/src/defprec.f90 @ 5591

Last change on this file since 5591 was 5477, checked in by cguiavarch, 9 years ago

Clear svn keywords from UKMO/dev_r5107_hadgem3_cplseq

File size: 859 bytes
Line 
1MODULE defprec 
2!-
3! $Id$
4!-
5! This software is governed by the CeCILL license
6! See IOIPSL/IOIPSL_License_CeCILL.txt
7!!--------------------------------------------------------------------
8!! The module "defprec" set default precision for computation
9!!
10!! This module should be used by every modules
11!! to keep the right precision for every variable
12!!--------------------------------------------------------------------
13!?INTEGERS of KIND 1 are not supported on all computers
14!?INTEGER,PARAMETER :: i_1=SELECTED_INT_KIND(2)
15  INTEGER,PARAMETER :: i_2=SELECTED_INT_KIND(4)
16  INTEGER,PARAMETER :: i_4=SELECTED_INT_KIND(9)
17  INTEGER,PARAMETER :: i_8=SELECTED_INT_KIND(13)
18  INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37)
19  INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307)
20  INTEGER,PARAMETER :: i_std=i_4, r_std=r_8
21!-----------------
22END MODULE defprec
Note: See TracBrowser for help on using the repository browser.