1
2! KGEN-generated Fortran source file
3!
4! Filename    : kinds.F90
5! Generated at: 2015-04-12 19:37:49
6! KGEN version: 0.4.9
7
8
9
10    MODULE kinds
11        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
12        USE shr_kind_mod, ONLY: shr_kind_i4
13        USE shr_kind_mod, ONLY: shr_kind_i8
14        USE shr_kind_mod, ONLY: shr_kind_r8
15        ! _EXTERNAL
16        IMPLICIT NONE
17        PRIVATE
18        !
19        !  most floating point variables should be of type real_kind = real*8
20        !  For higher precision, we also have quad_kind = real*16, but this
21        !  is only supported on IBM systems
22        !
23        INTEGER(KIND=4), public, parameter :: real_kind    = shr_kind_r8
24        INTEGER(KIND=4), public, parameter :: int_kind     = shr_kind_i4
25        INTEGER(KIND=4), public, parameter :: log_kind     = kind(.true.)
26        INTEGER(KIND=4), public, parameter :: long_kind    = shr_kind_i8
27
28    ! write subroutines
29    ! No subroutines
30    ! No module extern variables
31    END MODULE kinds
32