



module infnan
  use shr_kind_mod, only: r8 => shr_kind_r8
  real(r8), parameter :: inf = 1.e19
  real(r8), parameter :: nan = 1.e21
  integer, parameter :: bigint = O'17777777777'
  real(r8), parameter :: uninit_r8 = inf
end module infnan
