1 MODULE MODULE_GFS_MACHINE
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)
13 real(kind=kind_evod) mprec ! machine precision to restrict dep
14 parameter(mprec = 1.e-12 )
16 END MODULE MODULE_GFS_MACHINE