phys/module_cam_shr_kind_mod.F

   1 #define WRF_PORT
   2 #define MODAL_AERO
   3 ! Updated to CESM1.0.3 (CAM5.1.01) by Balwinder.Singh@pnnl.gov
   4 !------------------------------------------------------------------------
   5 ! Based on csm_share/shr/shr_kind_mod.F90 from CAM
   6 ! Ported to WRF by William.Gustafson@pnl.gov, Nov. 2009
   7 ! Updated to CESM1.0.3 (CAM5.1.01) by Balwinder.Singh@pnnl.gov
   8 !------------------------------------------------------------------------
   9 !===============================================================================
  10 ! SVN $Id: shr_kind_mod.F90 11926 2008-09-25 21:10:40Z mvertens $
  11 ! SVN $URL: https://svn-ccsm-models.cgd.ucar.edu/csm_share/branch_tags/cesm1_0_rel_tags/cesm1_0_3_n01_share3_110527/shr/shr_kind_mod.F90 $
  12 !===============================================================================
  13
  14 MODULE shr_kind_mod
  15
  16    !----------------------------------------------------------------------------
  17    ! precision/kind constants add data public
  18    !----------------------------------------------------------------------------
  19    public
  20    integer,parameter :: SHR_KIND_R8 = selected_real_kind(12) ! 8 byte real
  21    integer,parameter :: SHR_KIND_R4 = selected_real_kind( 6) ! 4 byte real
  22    integer,parameter :: SHR_KIND_RN = kind(1.0)              ! native real
  23    integer,parameter :: SHR_KIND_I8 = selected_int_kind (13) ! 8 byte integer
  24    integer,parameter :: SHR_KIND_I4 = selected_int_kind ( 6) ! 4 byte integer
  25    integer,parameter :: SHR_KIND_IN = kind(1)                ! native integer
  26    integer,parameter :: SHR_KIND_CS = 80                     ! short char
  27    integer,parameter :: SHR_KIND_CL = 256                    ! long char
  28    integer,parameter :: SHR_KIND_CX = 512                    ! extra-long char
  29
  30 END MODULE shr_kind_mod