kinds.f90

Go to the documentation of this file.

module kinds
  implicit none
  private
!
! for name string
  integer, parameter, public  :: len_sta_name  = 8

! Integer type definitions below

! Integer types
  integer, parameter, public  :: i_kind = 4
  integer, parameter, public  :: i_short = 2
  integer, parameter, public  :: i_byte  = 1
! Real types
  integer, parameter, public  :: r_single = 4
  integer, parameter, public  :: r_kind = 8

!
  real(r_single),parameter,public :: rmissing=-99999.0
  real(i_kind),parameter,public :: imissing=-99999
  real(r_kind),parameter,public :: drmissing=-99999.0

end module kinds