source: palm/trunk/LIB/rrtmg/parkind.f90 @ 1653

Last change on this file since 1653 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.