source: lmdz_wrf/trunk/WRFV3/phys/module_gfs_machine.F

Last change on this file 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:

  • Property svn:executable set to *
File size: 567 bytes
Line 
1      MODULE MODULE_GFS_MACHINE
2
3      IMPLICIT NONE
4      SAVE
5!  Machine dependant constants
6      integer kind_io4,kind_io8,kind_phys,kind_rad,kind_evod
7      parameter (kind_rad  = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
8      parameter (kind_phys = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
9      parameter (kind_io4  = 4)
10      parameter (kind_io8  = 8)
11      parameter (kind_evod = 8)
12
13      real(kind=kind_evod) mprec ! machine precision to restrict dep
14      parameter(mprec  = 1.e-12 )
15
16      END MODULE MODULE_GFS_MACHINE
Note: See TracBrowser for help on using the repository browser.