PARAMETER ( MXSTNS = 300000 ) C* Maximum number of stations C* in a Mesonet data file C* PARAMETER ( NVAR = 41 ) C* Number of Mesonet variables C* to retrieve for each station C* REAL*8 r8bfms COMMON / BFMISS / r8bfms C* BUFR "missing" value 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 ( MXPCP = 3 ) C* Maximum number of periods of C* accumulated precipitation. C* PARAMETER ( MPM1 = ( MXPCP - 1 ), + MPM1T4 = ( MPM1 * 4 ) ) C* C* PARAMETER ( MXSRD = 3 ) C* Maximum number of periods of C* solar radiation. C* PARAMETER ( MRM1T3 = ( ( MXSRD - 1 ) * 3 ) ) C* C* PARAMETER ( MXRDW = 4 ) C* Maximum number of reps of roadway C* variables. C* PARAMETER ( MRM1T5 = ( ( MXRDW - 1 ) * 5 ) ) C* C* PARAMETER ( NRSIMN = 36 ) C* Number of real single-level C* interface mnemonics C* PARAMETER ( NRIMN = NRSIMN + ( MXPCP * 4 ) + + ( MXSRD * 3 ) + + ( MXRDW * 5 ) + 3 ) C* Number of real interface C* mnemonics COMMON / RINTFP / + iryear , irmnth , irdays , irhour , irminu , + irslat , irslon , irselv , irgudr , irgums , + irslmt , irsolt , + irpres , irpresqa, irpresqr, iraltm , iraltmqa, iraltmqr, + irtmpk , irtmpkqa, irtmpkqr, irdwpk , irdwpkqa, irdwpkqr, + irdrct , irdrctqa, irdrctqr, irsped , irspedqa, irspedqr, + irrpcp , irrpcpqa, irrpcpqr, irhovi , irhoviqa, irhoviqr, + irnpcp , irtphr ( MXPCP ), irtpcp ( MXPCP ), + irtpcpqa ( MXPCP ), irtpcpqr ( MXPCP ), + irnsrd , irtpmi ( MXSRD ), + irdfsord ( MXSRD ), irdrsord ( MXSRD ), + irnrdw , irrdtm ( MXRDW ), irrlft ( MXRDW ), + irrlip ( MXRDW ), irrdld ( MXRDW ), + irrdst ( MXRDW ) C* Pointers to relative locations of C* real interface mnemonics within C* rimnem ( ). These pointers will C* be set by MN_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 = MXPCP + 11 ) C* Number of character interface C* mnemonics C* COMMON / CINTFP / + icstid , icprvid , icsprvid, + icpresqd, icaltmqd, ictmpkqd, icdwpkqd, icdrctqd, icspedqd, + icrpcpqd, ichoviqd, ictpcpqd ( MXPCP ) C* Pointers to relative locations of C* character interface mnemonics within C* cimnem ( ). These pointers will be C* set by MN_IFSP and then used as C* indices into the character C* interface values array civals ( ) C* CHARACTER civals ( NCIMN )*11 C* COMMON / CINTFV / civals C* Character interface values