PARAMETER	( MXSTNS = 50000 )
C*					Maximum number of stations
C*					in a COOP data file
C*
	PARAMETER	( NVAR = 19 )
C*					Number of COOP variables
C*					to retrieve for each station
C*
C************************************************************************
C*  / LOGMSG /								*
C*									*
C*  This common area contains a string used to hold messages that are	*
C*  to be written to the decoder log.					*
C************************************************************************
	CHARACTER	logmsg*200
C*
	COMMON	/ LOGMSG /	logmsg
C*					String to hold a message to be
C*					written to decoder log
C*
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
	PARAMETER	( MXSOL = 5 )
C*					Maximum number of soil levels.
C*
	PARAMETER	(    MSLM1 = ( MXSOL - 1 ),
     +			    MLM1T7 = ( MSLM1 * 7 )	)
C*
	PARAMETER	( MXSNW = 2 )
C*					Maximum number of snow amounts.
C*
	PARAMETER	(    MSNM1 = ( MXSNW - 1 ),
     +			    MNM1T4 = ( MSNM1 * 4 )	)
C*
	PARAMETER 	( NRSIMN = 27 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER	( NRIMN = NRSIMN + ( MXSOL * 7 ) +
     +					( MXSNW * 4 ) + 2 )
C*					Number of real interface
C*					mnemonics
	COMMON	/ RINTFP /
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , 
     +	   irslat  , irslon  , irselv  , irpltp  ,
     +	   irtmpk  , irtmpkqa, irtmpkqr, irdwpk  , irdwpkqa, irdwpkqr,
     +	   irdrct  , irdrctqa, irdrctqr, irsped  , irspedqa, irspedqr,
     +	   irpc1h  , irpc1hqa, irpc1hqr, irtosd  , irtosdqa, irtosdqr,
     +	   irnsol  , irslin   ( MXSOL ),
     +		     irsolm   ( MXSOL ),
     +		     irsolmqa ( MXSOL ), irsolmqr ( MXSOL ),
     +		     irsolt   ( MXSOL ),
     +		     irsoltqa ( MXSOL ), irsoltqr ( MXSOL ),
     +	   irnsnw  , irsnhr   ( MXSNW ),
     +		     irdofs   ( MXSNW ),
     +		     irdofsqa ( MXSNW ), irdofsqr ( MXSNW )
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem ( ).  These pointers will
C*					be set by CP_IFSP and then used as
C*					indices into the real interface
C*					values array rivals ( ).
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	rivals
C*					Real interface values 
C*
	PARAMETER 	( NCIMN = ( MXSOL * 2 ) + MXSNW + 8 )
C*					Number of character interface
C*					mnemonics
C*
	COMMON	/ CINTFP /
     +	   icstid  , icprvid ,
     +	   ictmpkqd, icdwpkqd, icdrctqd, icspedqd, icpc1hqd, ictosdqd,
     +	   icsolmqd ( MXSOL ), icsoltqd ( MXSOL ), icdofsqd ( MXSNW )
C*					Pointers to relative locations of
C*					character interface mnemonics within
C*					cimnem ( ).  These pointers will be
C*					set by CP_IFSP and then used as
C*					indices into the character
C*					interface values array civals ( ) 
C*
	CHARACTER	civals ( NCIMN )*8
C*
	COMMON	/ CINTFV /	civals
C*					Character interface values