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