source: LMDZ6/trunk/libf/phymar/tsmbkind.h @ 3472

Last change on this file since 3472 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR

Integration of MAR physics
File size: 1.1 KB
Line 
1!*    kindef: define default KIND macros
2! --------------------------------------
3
4
5USE PARKIND1, ONLY :&
6 &JPIT, JPIS, JPIM, JPIB,&
7 &JPRT, JPRS, JPRM, JPRB,&
8 &JPRD
9
10
11#ifndef INTEGER_T
12#define INTEGER_T INTEGER(KIND=JPIT)
13#define INTEGER_S INTEGER(KIND=JPIS)
14#define INTEGER_M INTEGER(KIND=JPIM)
15#define INTEGER_B INTEGER(KIND=JPIB)
16#endif
17
18#ifndef REAL_T
19#define REAL_T REAL(KIND=JPRT)
20#define REAL_S REAL(KIND=JPRS)
21#define REAL_M REAL(KIND=JPRM)
22#define REAL_B REAL(KIND=JPRB)
23#define REAL_D REAL(KIND=JPRD)
24#endif
25
26#ifndef _0T
27#define _0T  0.0_JPRT
28#define _0S  0.0_JPRS
29#define _0M  0.0_JPRM
30#define _0B  0.0_JPRB
31#endif
32
33#ifndef _05T
34#define _05T 0.5_JPRT
35#define _05S 0.5_JPRS
36#define _05M 0.5_JPRM
37#define _05B 0.5_JPRB
38#endif
39
40#ifndef _1T
41#define _1T  1.0_JPRT
42#define _1S  1.0_JPRS
43#define _1M  1.0_JPRM
44#define _1B  1.0_JPRB
45#endif
46
47#ifndef _2T
48#define _2T  2.0_JPRT
49#define _2S  2.0_JPRS
50#define _2M  2.0_JPRM
51#define _2B  2.0_JPRB
52#endif
53
54#define _ZERO_   _0B
55#define _HALF_   _05B
56#define _ONE_    _1B
57#define _TWO_    _2B
58
59! --------------------------------------
Note: See TracBrowser for help on using the repository browser.