Last change
on this file since 4476 was
1585,
checked in by maronga, 10 years ago
|
Added support for RRTMG radiation code
|
File size:
902 bytes
|
Line | |
---|
1 | module parkind |
---|
2 | |
---|
3 | implicit none |
---|
4 | save |
---|
5 | |
---|
6 | !------------------------------------------------------------------ |
---|
7 | ! rrtmg kinds |
---|
8 | ! Define integer and real kinds for various types. |
---|
9 | ! |
---|
10 | ! Initial version: MJIacono, AER, jun2006 |
---|
11 | ! Revised: MJIacono, AER, aug2008 |
---|
12 | !------------------------------------------------------------------ |
---|
13 | |
---|
14 | ! |
---|
15 | ! integer kinds |
---|
16 | ! ------------- |
---|
17 | ! |
---|
18 | integer, parameter :: kind_ib = selected_int_kind(13) ! 8 byte integer |
---|
19 | integer, parameter :: kind_im = selected_int_kind(6) ! 4 byte integer |
---|
20 | integer, parameter :: kind_in = kind(1) ! native integer |
---|
21 | |
---|
22 | ! |
---|
23 | ! real kinds |
---|
24 | ! ---------- |
---|
25 | ! |
---|
26 | integer, parameter :: kind_rb = selected_real_kind(12) ! 8 byte real |
---|
27 | integer, parameter :: kind_rm = selected_real_kind(6) ! 4 byte real |
---|
28 | integer, parameter :: kind_rn = kind(1.0) ! native real |
---|
29 | |
---|
30 | end module parkind |
---|
Note: See
TracBrowser
for help on using the repository browser.