moda_tababd.F

Go to the documentation of this file.

C> @file
C> @brief Declare arrays for internal storage of DX BUFR tables.
 
C> This module contains array and variable declarations used to
C> store DX BUFR tables internally for multiple I/O streams.
C>
C> @author J. Ator
C> @date 2014-12-10
 
    MODULE moda_tababd
 
C>        @var ntba
C>        Number of Table A entries for each internal I/O stream
C>        (up to a maximum of MAXTBA, whose value is stored in
C>        array element 0).
C>
C>        @var taba
C>        Table A entries for each internal I/O stream.
C>
C>        @var idna
C>        Message types (in array element 1) and subtypes (in array
C>        element 2) corresponding to taba.
C>
C>        @var mtab
C>        Entries within jump/link table corresponding to taba.
C>
C>        @var ntbb
C>        Number of Table B entries for each internal I/O stream
C>        (up to a maximum of MAXTBB, whose value is stored in
C>        array element 0).
C>
C>        @var tabb
C>        Table B entries for each internal I/O stream.
C>
C>        @var idnb
C>        Bit-wise representations of the FXY values corresponding
C>        to tabb.
C>
C>        @var ntbd
C>        Number of Table D entries for each internal I/O stream
C>        (up to a maximum of MAXTBD, whose value is stored in
C>        array element 0).
C>
C>        @var tabd
C>        Table D entries for each internal I/O stream.
C>
C>        @var idnd
C>        Bit-wise representations of the FXY values corresponding
C>        to tabd.
 
      INTEGER, ALLOCATABLE :: ntba(:)
      INTEGER, ALLOCATABLE :: ntbb(:)
      INTEGER, ALLOCATABLE :: ntbd(:)
      INTEGER, ALLOCATABLE :: mtab(:,:)
      INTEGER, ALLOCATABLE :: idna(:,:,:)
      INTEGER, ALLOCATABLE :: idnb(:,:)
      INTEGER, ALLOCATABLE :: idnd(:,:)
      CHARACTER*128, ALLOCATABLE :: taba(:,:)
      CHARACTER*128, ALLOCATABLE :: tabb(:,:)
      CHARACTER*600, ALLOCATABLE :: tabd(:,:)
 
    END MODULE