external/io_grib2/grib2tbls_types.F

   1 module grib2tbls_types
   2
   3 !*
   4 !* This module will hold data from a grib2map.tbl table
   5 !*   The variables will be accessible by all functions (provided they have a
   6 !*   "USE grb2tbls" line).
   7 !*
   8
   9   integer, parameter                          :: MaxNames = 40
  10   integer, parameter                          :: maxLineSize = 500
  11
  12   TYPE :: grib2Entries_type
  13      integer                                  :: Disc
  14      integer                                  :: Category
  15      integer                                  :: ParmNum
  16      character(len=maxLineSize)               :: WRFNameString
  17      character(len=30), dimension(MaxNames)   :: WRFNames
  18      integer                                  :: numWRFNames
  19      character(len=200)                       :: Description
  20      integer                                  :: DecScl
  21      integer                                  :: BinScl
  22      TYPE(grib2Entries_type), pointer         :: next
  23      TYPE(grib2Entries_type), pointer         :: previous
  24   END TYPE grib2Entries_type
  25
  26   TYPE :: grib2tbls_type
  27      integer                                  :: center
  28      integer                                  :: subcenter
  29      integer                                  :: MasterTblV
  30      integer                                  :: LocalTblV
  31      integer                                  :: numEntries
  32      TYPE(grib2Entries_type),pointer          :: ParmHead
  33      TYPE(grib2Entries_type),pointer          :: ParmTail
  34      TYPE(grib2tbls_type),pointer             :: next
  35      TYPE(grib2tbls_type),pointer             :: previous
  36   END TYPE grib2tbls_type
  37
  38   TYPE(grib2tbls_type), pointer               :: TblHead
  39   TYPE(grib2tbls_type), pointer               :: TblTail
  40
  41 end module grib2tbls_types
  42