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