source: lmdz_wrf/WRFV3/phys/module_cam_shr_kind_mod.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.5 KB
Line 
1!------------------------------------------------------------------------
2! Based on csm_share/shr/shr_kind_mod.F90 from CAM
3! Ported to WRF by William.Gustafson@pnl.gov, Nov. 2009
4!------------------------------------------------------------------------
5!===============================================================================
6! SVN $Id: shr_kind_mod.F90 11926 2008-09-25 21:10:40Z mvertens $
7! SVN $URL: https://svn-ccsm-models.cgd.ucar.edu/csm_share/branch_tags/cesm1_0_rel_tags/cesm1_0_rel03_share3_100802/shr/shr_kind_mod.F90 $
8!===============================================================================
9
10MODULE shr_kind_mod
11
12   !----------------------------------------------------------------------------
13   ! precision/kind constants add data public
14   !----------------------------------------------------------------------------
15   public
16   integer,parameter :: SHR_KIND_R8 = selected_real_kind(12) ! 8 byte real
17   integer,parameter :: SHR_KIND_R4 = selected_real_kind( 6) ! 4 byte real
18   integer,parameter :: SHR_KIND_RN = kind(1.0)              ! native real
19   integer,parameter :: SHR_KIND_I8 = selected_int_kind (13) ! 8 byte integer
20   integer,parameter :: SHR_KIND_I4 = selected_int_kind ( 6) ! 4 byte integer
21   integer,parameter :: SHR_KIND_IN = kind(1)                ! native integer
22   integer,parameter :: SHR_KIND_CS = 80                     ! short char
23   integer,parameter :: SHR_KIND_CL = 256                    ! long char
24   integer,parameter :: SHR_KIND_CX = 512                    ! extra-long char
25
26END MODULE shr_kind_mod
Note: See TracBrowser for help on using the repository browser.