kinddef.F90

module kinddef

      implicit none

      private

      public :: kind_evod, kind_phys
      public :: kind_dbl_prec, kind_qdt_prec
      public :: kind_io4, kind_io8

      integer, parameter :: kind_io4      = 4

      ! DH* TODO - stochastic physics / CA should be using only one of these
      integer, parameter :: kind_evod     = 8
      integer, parameter :: kind_phys     = 8
      integer, parameter :: kind_dbl_prec = 8
      integer, parameter :: kind_io8      = 8

#ifdef __PGI
      integer, parameter :: kind_qdt_prec = 8
#else
      integer, parameter :: kind_qdt_prec = 16
#endif

end module kinddef