C************************************************************************
C*                                                                      *
C* Common blocks containing coast guard surface decoded report variables*
C* and station table data.                                              *
C*                                                                      *
C* Log:							                *
C* R. Hollern/NCEP     6/96                                             *
C* R. Hollern/NCEP     9/96   Increased dimension of rctim from 5 to 6  *
C* D. Kidwell/NCEP     4/97   Added block INTF and associated PARAMETER *
C*			      values                                    *
C* R. Hollern/NCEP     9/97   Added wsped to BLOCK1                     *
C* D. Kidwell/NCEP    10/97   Revised interface INTF                    *
C* D. Kidwell/NCEP     5/98   TDXC -> MTXM, TDNC -> MITM                *
C* R. Hollern/NCEP     7/99   Added many more parameter values          *
C* R. Hollern/NCEP     9/99   Added drifter section 444 parameter values*
C* R. Hollern/NCEP    11/99   Added summplementary wind parameter values*
C* R. Hollern/NCEP    11/99   Added jnprcv to count precip values       *
C* R. Hollern/NCEP    12/99   Removed the drifting buoy interface       *
C*                            variables                                 *
C* R. Hollern/NCEP     3/00   Removed the ircorn interface variable     *
C* C. Caruso Magee/NCEP 04/00 Modify for coast guard reports            *
C* C. Caruso Magee/NCEP 06/00 Change irsped to irsknt                   *
C* C. Caruso Magee/NCEP 08/00 Added ircorn back in since it can be part *
C*                            of a report.                              *
C* C. Caruso Magee/NCEP 08/00 Remove poww and howw (not used)           *
C* C. Caruso Magee/NCEP 08/00 Remove posw and hosw (not used)           *
C* C. Caruso Magee/NCEP 10/00 Remove iuwind from com BLOCK1 (not used)  *
C* C. Caruso Magee/NCEP 10/00 Remove wdgflg from com BLOCK1 (not used)  *
C* C. Caruso Magee/NCEP 06/01 Moved tost to right after corn in common. *
C* J. Ator/NCEP		08/01 Moved COMMON /FIELDS/ to 'FIELDS.CMN'	*
C* C. Caruso Magee/NCEP 02/02 Rename orign to cborg; suws to isws       *
C************************************************************************
	INCLUDE		'FIELDS.CMN'

        COMMON /BLOCK1/  irptdt,  rctim    
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        COMMON /BLOCK5/  jstn,  jstnid,  elev,  ylat,  ylon
C*
        COMMON /BLOCK6/  iwxvsb, iwind, iwave, isea, iair,
     *                   ipres, irmk, gothdr
C*
        COMMON /BLOCK7/  iwindslsh
C*
        COMMON /CSTNAME/ stationname
C*
        REAL   		rctim(6)
        REAL   		ylat(200),   ylon(200),   elev(200)
C*
        INTEGER  	irptdt(5)
C*
        LOGICAL         gothdr
        LOGICAL  	iwxvsb, iwind, iwave, isea, iair
        LOGICAL  	ipres, irmk                    
        integer         iwindslsh
C*
        CHARACTER*1000  logmsg
C*
        CHARACTER*8  	cborg, buhd, bbb, btime
        CHARACTER*8   	jstnid(200)
C*
        CHARACTER*4  	seqnum
C*
        CHARACTER*25    stationname
C*
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
C*
	PARAMETER 	( NRSLMN = 31 )
C*					Number of real single-level 
C*					interface mnemonics
C*
        PARAMETER       ( NRIMN = NRSLMN ) 
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  , ircorn  , irtost  ,
     +          irdrct  , irsknt  , irisws  , irpres  , irpmsl  , 
     +          iralti  , irtmpf  , irsstf  , irmxtm  , irmitm  ,  
     +          irvsby  , ircfrt  , irwwmo  , irwhgt  , irwper  , 
     +          irmxwh  , irterc  , irgust  , irclam  , irhocb  , 
     +          irdosw    

C*** tost - manned or auto station,  vsby - horiz. vis in statute miles
C*** cfrt - percent of total cloud cover
c*** mxtm & mitm - max and min. temps in deg F
c*** wwmo - present weather from manned station
C*
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by MA_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 MA_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