Last change
on this file since 4808 was
1585,
checked in by maronga, 9 years ago
|
Added support for RRTMG radiation code
|
File size:
902 bytes
|
Rev | Line | |
---|
[1585] | 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.