INCLUDE          'CURR.CMN'
        COMMON /BLOCK1/  ihour,   irptdt,  rctim
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        COMMON /BLOCK6/ isec1,  lsec1,  isec2,  lsec2,  isec3,  lsec3,
     +                  isec4,  lsec4,  isec5,  lsec5
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************************************************************************
	PARAMETER	( MXDLYR = 200 )
C*					Maximum number of layers of
C*					depth/temperature/salinity/current data
C*
  	PARAMETER	(   MDM1 =  MXDLYR - 1 )
        PARAMETER	(   MDM1T3 = ( MDM1 * 3 )   )
        PARAMETER	(   MCM1T3 = ( MDM1 * 3 )   )
C*					
        PARAMETER      ( NRSLMN = 63 )
C*					Number of real single-level 
C*					interface mnemonics
C*
        PARAMETER       ( MNNN = NRSLMN + MDM1T3 + 4 )
        PARAMETER ( NRIMN = ( NRSLMN + 
     +              ( 2 * ( ( MXDLYR * 3 ) + 1 ) ) ) )
C*					Total number of real interface 
C*					mnemonics (total number of 
C*                                      single-level data + total number of
C*                                      depth/temp/salin data + total number
C*                                      of current depth/dir/speed data +
C*                                      total number of counters for 
C*                                      multi-layer data).
C*
	COMMON	/ RINTFP /
     +		irydgt  , irmnth  , irdays  , irhour  , irminu  ,
     +		irslat  , irslon  , irselv  , irdrct  , irsped  , 
     +		irpres  , irpmsl  , irp03d  , irchpt  , ir3hpc  ,
     +		irrelh  , irtmpc  , irdwpc  , irsstc  , irtost  ,
     +		irqopm  , irqcbh  , irqwtm  , irqatm  , irqbst  ,
     +          irqcil  , irmsdm  , irwper  , irwhgt  , irisws  ,
     +          irqpos  , irqtim  , irqcls  , irqds1  , irqxs1  ,
     +          irqds2  , irqxs2  , irq3d1  , irq3d2  , irq4cl  ,
     +          irpsyr  , irpsmn  , irpsdy  , irpshr  , irpsmi  ,
     +		irdbvv  , irdbdd  , irbeng  , irdrot  , irdrod  ,
     +          irdlat  , irdlon  , irqdep  , irhple  , ircalt  ,
     +          irbuyt  , iranht  , irantp  , irmrmv  , irdtcc  ,
     +          irldds  , irldrs  , irbvol 
C*
C*
	COMMON	/ RINTFP /
     +		irndts  , irdbss ( MXDLYR ) , irstmp ( MXDLYR ) , 
     +                    irsaln ( MXDLYR )  
C*
	COMMON	/ RINTFP /
     +		irnddc  , irdbsc ( MXDLYR ) , irdroc ( MXDLYR ) , 
     +                    irspoc ( MXDLYR )  
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by DB_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 DB_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