phys/module_gfs_machine.F

   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