COMMON /BLOCK1/  irptdt,  rctim
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        REAL      rctim(6)
C*
        INTEGER    irptdt(5)
C*
        CHARACTER*1000  logmsg
C*
        CHARACTER*8  	cborg,   buhd,     bbb,   btime
C*
        CHARACTER*4  	seqnum
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
C*
	PARAMETER	( MXTIDL = 6 )
C*					Maximum number of tidal
C*                                      elevations
C*
  	PARAMETER	(   MTID = ( MXTIDL - 1 ),
     +			  MXTID1 = ( MTID * 2 )   )
C*					
	PARAMETER 	( NRSLMN = 21 )
C*					Number of real single-level 
C*					interface mnemonics
C*
        PARAMETER       ( NRIMN = ( (2 * MXTIDL) + NRSLMN + 1 ) )
C*                                      Total number of real interface
C*                                      mnemnonics ( total number of
C*                                      mult-layer data + single-level
C*                                      data + total number of counters
C*                                      for multi-layer data).
	COMMON	/ RINTFP /
     +		iryear  , irmnth  , irdays  , irhour  , irminu  ,
     +		irslat  , irslon  , irselv  , iramck  , irmmck  ,
     +          irtmpc  , irprlc  , irdrct  , irsped  , irsstk  ,
     +          irawck  , irmwck  , irtpmi  , irstmi  , iritso  ,
     +		irtost  
C*
	COMMON	/ RINTFP /
     +          irntid  , irterc ( MXTIDL ) , irmrte ( MXTIDL )
C*
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by TG_IFSP and then used
C*					as indices into the real
C*					interface values array rivals( ).
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	rivals
C*					Real interface values 
C*
	PARAMETER 	( NCIMN = 1 )
C*
	COMMON	/ CINTFP / icstid
C*					Pointers to relative locations of
C*					character interface mnemonics
C*					within cimnem( ).  These
C*					pointers will be set by TG_IFSP
C*					and then used as indices into the
C*					character interface values array
C*					civals( ).
C*
	CHARACTER	civals ( NCIMN )*8
C*
	COMMON	/ CINTFV /	civals
C*					Character interface values