Subversion Repositories lagranto.wrf

Rev

Rev 2 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 10
1 
module precision
 1 
module precision
2 
 
 2 
 
3 
! Real kinds
 3 
! Real kinds
4 
 
 4 
 
5 
integer, parameter :: kr4 = selected_real_kind(6,37)       ! single precision real
 5 
integer, parameter :: kr4 = selected_real_kind(6,37)       ! single precision real
6 
integer, parameter :: kr8 = selected_real_kind(15,307)     ! double precision real
 6 
integer, parameter :: kr8 = selected_real_kind(15,307)     ! double precision real
7 
 
 7 
 
8 
! Integer kinds
 8 
! Integer kinds
9 
 
 9 
 
10 
integer, parameter :: ki4 = selected_int_kind(9)           ! single precision integer
 10 
integer, parameter :: ki4 = selected_int_kind(9)           ! single precision integer
11 
integer, parameter :: ki8 = selected_int_kind(18)          ! double precision integer
 11 
integer, parameter :: ki8 = selected_int_kind(18)          ! double precision integer
12 
 
 12 
 
13 
!Complex kinds
 13 
!Complex kinds
14 
 
 14 
 
15 
integer, parameter :: kc4 = kr4                            ! single precision complex
 15 
integer, parameter :: kc4 = kr4                            ! single precision complex
16 
integer, parameter :: kc8 = kr8                            ! double precision complex
 16 
integer, parameter :: kc8 = kr8                            ! double precision complex
17 
 
 17 
 
18 
end module precision
 18 
end module precision