source: dynamico_lmdz/aquaplanet/IOIPSL/src/def.prec @ 3847

Last change on this file since 3847 was 3847, checked in by ymipsl, 9 years ago

Add IOIPSL in the configuration.
Temporary configuration.
Makefile is ready for Curie

YM

File size: 1.1 KB
Line 
1! @author Jacques Bellier, Marie-Alice Foujols, Jan Polcher
2! @Version : $Revision: 2.1 $, $Date: 2005/06/24 09:57:17 $
3! $Header: /home/ioipsl/CVSROOT/IOIPSL/src/def.prec,v 2.1 2005/06/24 09:57:17 adm Exp $
4!
5MODULE defprec
6!!--------------------------------------------------------------------
7!! The module "defprec" set default precision for computation
8!!
9!! This module should be used by every modules
10!! to keep the right precision for every variable
11!!--------------------------------------------------------------------
12!?INTEGERS of KIND 1 are not supported on all computers
13!?INTEGER,PARAMETER :: i_1=SELECTED_INT_KIND(2)
14  INTEGER,PARAMETER :: i_2=SELECTED_INT_KIND(4)
15  INTEGER,PARAMETER :: i_4=SELECTED_INT_KIND(9)
16  INTEGER,PARAMETER :: i_8=SELECTED_INT_KIND(13)
17  INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37)
18  INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307)
19!#-P-I4R4   INTEGER,PARAMETER :: i_std=i_4, r_std=r_4
20!#-P-I4R8   INTEGER,PARAMETER :: i_std=i_4, r_std=r_8
21!#-P-I8R8   INTEGER,PARAMETER :: i_std=i_8, r_std=r_8
22!-----------------
23END MODULE defprec
Note: See TracBrowser for help on using the repository browser.