CESM_Driver: shr_kind_mod.F90 Source File

00001 !===============================================================================
00002 ! SVN $Id: shr_kind_mod.F90 11926 2008-09-25 21:10:40Z mvertens $
00003 ! SVN $URL: https://svn-ccsm-models.cgd.ucar.edu/csm_share/branch_tags/cesm1_0_rel_tags/cesm1_0_rel01_share3_100616/shr/shr_kind_mod.F90 $
00004 !===============================================================================
00005 
00006 MODULE shr_kind_mod
00007 
00008    !----------------------------------------------------------------------------
00009    ! precision/kind constants add data public
00010    !----------------------------------------------------------------------------
00011    public
00012    integer,parameter :: SHR_KIND_R8 = selected_real_kind(12) ! 8 byte real
00013    integer,parameter :: SHR_KIND_R4 = selected_real_kind( 6) ! 4 byte real
00014    integer,parameter :: SHR_KIND_RN = kind(1.0)              ! native real
00015    integer,parameter :: SHR_KIND_I8 = selected_int_kind (13) ! 8 byte integer
00016    integer,parameter :: SHR_KIND_I4 = selected_int_kind ( 6) ! 4 byte integer
00017    integer,parameter :: SHR_KIND_IN = kind(1)                ! native integer
00018    integer,parameter :: SHR_KIND_CS = 80                     ! short char
00019    integer,parameter :: SHR_KIND_CL = 256                    ! long char
00020    integer,parameter :: SHR_KIND_CX = 512                    ! extra-long char
00021 
00022 END MODULE shr_kind_mod