PARAMETER ( MXSTNS = 60000 ) C* Maximum number of stations C* in a SNOW data file C* PARAMETER ( NVAR = 7 ) C* Number of SNOW 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************************************************************************ C* PARAMETER ( NRSIMN = 27 ) C* Number of real single-level C* interface mnemonics C* PARAMETER ( NRIMN = NRSIMN ) C* Number of real interface C* mnemonics COMMON / RINTFP / + iryear , irmnth , irdays , irhour , irminu , + irslat , irslon , irselv , irsrmk , + irtosd , irtosdqa , irtosdqr , irswem , irswemqa , irswemqr, + irdofs6 , irdofs6qa , irdofs6qr , irswem6 , irswem6qa , + irswem6qr , irdofs24 , irdofs24qa , irdofs24qr , irswem24 , + irswem24qa , irswem24qr C* Pointers to relative locations of C* real interface mnemonics within C* rimnem ( ). These pointers will C* be set by SN_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 = 8 ) C* Number of character interface C* mnemonics C* COMMON / CINTFP / + icsnid , icsprvid , + ictosdqd, icswemqd, icdofs6qd, icswem6qd, icdofs24qd, + icswem24qd C* Pointers to relative locations of C* character interface mnemonics within C* cimnem ( ). These pointers will be C* set by SN_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