PARAMETER ( MXSTNS = 60000 ) C* Maximum number of stations C* in a HYDRO data file C* PARAMETER ( NVAR = 8 ) C* Number of HYDRO 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 ( NRSLMN = 28 ) C* Number of real single-level C* interface mnemonics C* PARAMETER ( NRIMN = NRSLMN ) C* Number of real interface C* mnemonics COMMON / RINTFP / + iryear , irmnth , irdays , irhour , irminu , + irslat , irslon , irselv , + irrflo , irrstg , + irpcp5m , irpcp5qa, irpcp5qr, irpcp1h , irpcp1qa, irpcp1qr, + irpcp3h , irpcp3qa, irpcp3qr, irpcp6h , irpcp6qa, irpcp6qr, + irpcp12h, irpcp12qa, irpcp12qr, irpcp24h , irpcp24qa, irpcp24qr C* Pointers to relative locations of C* real interface mnemonics within C* rimnem ( ). These pointers will C* be set by HY_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 / + ichyid , icprvid , + icpcp5qd, icpcp1qd, icpcp3qd, icpcp6qd, icpcp12qd, + icpcp24qd C* Pointers to relative locations of C* character interface mnemonics within C* cimnem ( ). These pointers will be C* set by HY_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