#include <misc.h>


module rgrid 24,3

  use pmgrid, only: plat, platd
  use pspect, only: pmmax, pmax
  use infnan, only: bigint

  implicit none

  integer :: nlon(plat)        = bigint ! num longitudes per latitude
  integer :: nlonex(platd)     = bigint ! num longitudes per lat (extended grid)
  integer :: beglatpair(pmmax) = bigint
#if ( defined SCAM )
  integer :: nmmax(plat)     = bigint
#else
  integer :: nmmax(plat/2)     = bigint
#endif
  integer :: wnummax(plat)     = bigint ! cutoff Fourier wavenumber

end module rgrid