!################################################################## ! Monthly blacklisting for SCAT only ---------------------------- !################################################################## if (OBSTYP = scatt) then ! exit ERS and QuikSCAT blacklist scatterometer here return; endif; !################################################################## ! Monthly blacklisting for SATELLITE RADIANCES AND RETRIEVALS --- !################################################################## if (OBSTYP = satem) then ! exit blacklist processing here return; endif; !################################################################## ! Monthly blacklisting for SATOBs only -------------------------- !################################################################## if (OBSTYP = satob) then ! exit blacklist processing here return; endif; !################################################################## ! Monthly blacklisting for SYNOPs only -------------------------- !################################################################## if ( OBSTYP = synop ) then ! BUFR SYNOP if CODTYP in (170) then ! Allow various BUFR SYNOP reports if STATID notin ( " 0...."," 10..."," 11..."," 12..."," 14...", " 15..."," 16..."," 17015"," 17066"," 17094", " 17143"," 17242"," 17256"," 17257"," 17261", " 17371"," 17500"," 17505"," 17510"," 17515", " 17521"," 17530"," 17535"," 17540"," 17550", " 17572"," 176.."," 20..."," 21..."," 22...", " 23..."," 24..."," 25..."," 26..."," 27...", " 28..."," 29..."," 30..."," 44517"," 45045", " 47625"," 47946"," 48..."," 34..."," 40...", " 60033"," 60040"," 60120"," 60136"," 60146", " 60160"," 60165"," 60250"," 60320"," 60338", " 60368"," 60377"," 60387"," 60405"," 60410", " 60415"," 60476"," 60481"," 60545", " 71..."," 72..."," 76558"," 73001", " 81401"," 81408"," 81415"," 84407"," 89096", " 91..."," 92..."," 93..."," 94..."," 95...", " 97790"," 63820"," 33...", " 84442"," 84479"," 84682"," 84742"," 89064", " 89507"," 60001"," 88...", " 58652"," 61..."," 70..."," 78...", " 60008"," 60012"," 60018"," 60032"," 60034", " 60178"," 60200"," 60377"," 63619"," 63624", " 63710"," 63737"," 63741"," 63742"," 63766", " 73005") then fail(); endif; endif; ! Use limited BUFR SHIP data if CODTYP in (182) then if STATID notin (" LF.."," MERFR.."," OBA"," DBND", " LF3J"," 66023"," 6201066"," BATEU03"," EUC...." ) then fail(); endif; endif; ! Following block is for catalogue changes. if STATID in ( " 01039"," 01091"," 01136"," 02749"," 04144", " 06613"," 06614"," 06654"," 06665"," 06713", " 06774"," 14023"," 38313", " 60540"," 60619"," 60621"," 60645"," 34434", " 60662"," 60672"," 60677"," 60679"," 60692", " 63661"," 63723"," 68394"," 71533", " 71654"," 84132"," 89776", " 91578"," 91933"," MERFR06"," 65536"," 68363", " 07101"," 07228"," 07439"," 07593", " 41248"," 41260", " 41269", " 41282"," 41286"," 41290", " 41297"," 41299"," 41302"," 41306", " 41307"," 41309", " 41317"," 56492"," 56977", " 67309"," 33511"," 33511"," 33516", " 33517"," 33518") then fail(); endif; ! -------- SYNOP/SHIP 10m wind ---------------- if VARIAB in ( u10m, v10m ) and STATID in ( " 7JSR"," 7JVS"," AUCU"," AUFH", " BPBA"," BPBB"," CGHL"," CQGZ"," SOCR3", " DGXS"," H9TE"," ICJA"," J8NW"," J8NX", " J8PD"," LF5A"," MPRZ"," ONGR", " PBIG"," PDHW"," PJKV"," SLKQ"," UBXS", " UCAB"," UCAD"," UCUD"," UHOW", " UHSY"," VCBW"," VOKF"," VTJR","SOCRATES", " VTXB"," VWSK"," WDDI"," WZZF", " 01010"," 01018"," 01036"," 01037"," 01229", " 01336"," 01345"," 01363"," 01429"," 02868", " 02985"," 02986"," 06215"," 06438"," 06439", " 06703"," 06721"," 06789"," 06790"," 10132", " 10339"," 10392"," 10548"," 10761"," 10771", " 10840"," 11306"," 11356"," 11366", " 20094"," 26058"," 26422"," 28900", " 2GYL6"," 2HFZ6"," 34002"," 3FAE4"," 3FFL8", " 3FSV5"," 41850"," 41851"," 41856"," 41881", " 41888"," 41897"," 41927"," 41938"," 44008", " 48034"," 48039"," 48043", " 48052"," 48055"," 48065"," 48092"," 51334", " 53798"," 53898"," 54094"," 54218"," 54386", " 56684"," 56739"," 57290"," 57633"," 57662", " 62123"," 67201"," 67250"," 67262"," 67271", " 67291"," 67301"," 67305"," 67327"," 71031", " 71220"," 71366"," 71587"," 71595"," 71597", " 71637"," 71643"," 71645"," 71693", " 71921"," 72494"," 88870"," 88881"," 88894", " 89648"," 89859"," 94105"," 94293", " 94348"," 94349"," 9HJB9"," 9VIC4"," 9VKU8", " A8CF3"," A8ET3"," A8GU8"," A8HA7"," A8HI8", " A8JE6"," A8LO9"," A8PQ7"," A8WP6"," A8ZA8", " C6BH8"," C6CU6"," C6FM8"," C6FM9", " C6FR3"," C6FR6"," C6FT7"," C6NZ3"," C6SD9", " C6SW3"," C6UB2"," C6VG7"," C6VV8"," C6XE5", " C6XE9"," CQIH5"," D5CL4"," DCPX2"," DGZS2", " DITL2"," ELQQ4"," ELZU2"," J8PE3"," LAQM7", " MGSH7"," MHNL6"," MHNN5"," OXFU2"," OZDB2", " P3BA7"," S6ES6"," STORM"," V7GR8"," V7NB6", " V7QN8"," VRDT7"," VRDU9"," VRFS2", " VRFU9"," VRHE3"," VRID2"," VRIR7"," VRIZ9") then fail(); endif; if VARIAB in ( u10m, v10m ) and STATID in ( " VRKB8"," VRLL3"," VRMV6"," VRMW7", " VRNM9"," VRVP2"," VRWW5"," VRYO9"," VRZQ8", " VRZQ9"," YJQN7"," ZCBU5"," ZCDD6", " ZCDG4"," ZCDP8"," ZCDY2"," ZCEF6"," 9V2735", " 9V2736"," 9V2737"," 9V2775"," 9V3964"," 9V9132", " CZ3695"," ZM7552"," 9HA2583"," 9HA3097"," 9HA3373", " BATEU01"," BATFR22"," BATFR29"," BATFR45", " TBWUK37"," TBWUK71"," TBWUK81"," TBWUK83", " WBP3396"," WCX9106"," WDB5483"," WDC6644"," WDD2876", " WDD3825"," WDD3826"," WDG8555"," WDJ2573"," WZE4539", " AUXE"," UGYU"," WAHG"," 2IYG5"," VTSJ", " A8IF2"," DIGY2"," LAZV5"," 9V9375"," VTZJ", " VWSM"," C6FN5"," C6TQ3"," LAMP5"," VRMA2", " WAAT"," 3EED2"," D5DS3"," V7SY6"," VRRB6", " VRRI4"," 9V9040"," CFN3031"," WDB3161", " DHBN"," PHET"," VTWS"," 46004", " C6KD9"," SPREP"," V7BY3"," VRIZ5", " VRWL4"," ZCDI4"," BKIE"," BLHI"," VCJM", " 5BZN3"," 9VDD3"," C6BR3"," D5KF6"," LAOX5", " VRLL2"," 9V9376"," 9V9574"," 9V2911", " XXX"," CGCB"," VWXS"," 9HJD9"," C6CX3", " V7ZZ5"," 9V8585"," EUCDE09"," UCTS"," VTFG", " XJAB"," 46014"," 5BYB4"," ELPX7"," VRRB5", " ONHA"," VRBI8"," WC5932") then fail(); endif; ! -------- SYNOP/SHIP z and ps ---------------- if VARIAB in ( z, ps ) and STATID in ( " 4XIS"," AUCE"," AUFH"," 40942"," 42665", " AUYB"," AUYL"," AVBC"," C6JS"," C6JT", " CCES"," CTEC"," H3GR"," H3VR"," IBCX", " ICIC"," ICJA"," LF4J"," NEPP"," ONCD", " ONFL"," ONIK"," PBGJ"," PFBF"," SHIP", " UAEV"," UANA"," UBXS"," UCTS", " UFJN"," UGYU"," UHOW"," UHSY"," UIZZ", " VCJW"," VCPX"," VCTV"," VTXB"," 38836", " WACW"," WADY"," WFLH"," WGAX"," 43110", " WLPI"," WRJP"," 01018"," 01027"," 01036", " 01037"," 01043"," 01084"," 01133"," 01146", " 01148"," 01192"," 01229"," 01239"," 01250", " 01270"," 01272"," 01308"," 01314"," 01315", " 01336"," 01342"," 01345"," 01346"," 60602", " 01365"," 01371"," 01381"," 01382"," 01387", " 01413"," 01414"," 01418"," 01419"," 01426", " 01429"," 01444"," 01449"," 01453"," 01460", " 01462"," 01463"," 01464"," 01485"," 01489", " 02210"," 02718"," 02744"," 02764", " 02858"," 02859"," 02860"," 02868"," 02890", " 02906"," 02946"," 02949"," 03346"," 06438", " 06439"," 06458"," 06477"," 06640"," 06707", " 06721"," 06790"," 10132"," 10339"," 80447", " 10392"," 11116", " 11306"," 11352"," 13610"," 71114"," 80415", " 14443"," 14474"," 14543"," 85141"," 91650", " 14650"," 15023"," 15162"," 16014"," 62271", " 16058"," 16059"," 16060"," 16066"," 16111", " 16123"," 16129"," 16171"," 16204", " 16314"," 16318"," 16409"," 16450"," 16613", " 16642"," 17203"," 20094", " 24449"," 24585"," 24588"," 43257"," 60611", " 26714"," 26729"," 2FRK8", " 30198"," 30385"," 31123"," 35167", " 35334"," 35475"," 35662"," 36026", " 36091"," 36197"," 36278", " 36307"," 36785"," 36856", " 37409"," 37514"," 37575"," 37729", " 37735"," 37756"," 38313"," 38719", " 38744"," 38844"," 38846"," 38847"," 38932") then fail(); endif; if VARIAB in ( z, ps ) and STATID in ( " 38947"," 38954"," 3FSV5"," 3FZO8", " 40066"," 40250"," 40553"," 40586", " 40590"," 40593"," 40602"," 40622"," 40642", " 40723"," 40835"," 40945"," 41257", " 41560"," 41696"," 41710", " 41739"," 41744"," 41850"," 41897", " 41927"," 42044"," 42083"," 42147"," 42343", " 42499"," 42546"," 42559"," 42562"," 42672", " 42674"," 42709"," 42771"," 42776"," 43011", " 43076"," 43177"," 43287", " 43291"," 43317"," 43340"," 43341"," 43479", " 44062"," 44272"," 44416"," 44424"," 47014", " 47022"," 47037"," 47050"," 47067", " 47075"," 48001"," 48030"," 48034"," 48035", " 48039"," 48043"," 48051"," 48052"," 48055", " 48065"," 48072"," 48101"," 48925"," 48928", " 48945"," 51467"," 54386"," 56144", " 57731"," 57776"," 60005", " 60419"," 60437"," 60560", " 60640"," 60731"," 61437"," 61497"," 61731", " 62123"," 62147"," 62159"," 63333", " 63334"," 64049"," 64507"," 64512"," 65046", " 65213"," 65450"," 67085"," 67201"," 67205", " 67223"," 67250"," 67271", " 67285"," 67291"," 67301"," 67305"," 68030", " 68268"," 68299"," 04158"," 22282"," 29833", " 68396"," 68925"," 70260"," 71020"," 72314", " 71028"," 71048"," 71094"," 71112", " 71220"," 71464"," 71498"," 71507"," 71533", " 71548"," 71604"," 71645", " 71812"," 71855"," 71856", " 71981"," 71986"," 72376"," 72406"," 72407", " 72506"," 72570"," 76491"," 76632"," 76640", " 76683"," 78627"," 78714", " 82067"," 82096"," 82113"," 82188", " 82263"," 82562"," 82610"," 82789"," 82994", " 83117"," 83292"," 83309"," 83361", " 83582"," 83599"," 83689"," 83927", " 83970"," 84036"," 84045"," 84050"," 84056", " 84076"," 84132"," 84135"," 84140"," 84143") then fail(); endif; if VARIAB in ( z, ps ) and STATID in ( " 84160"," 84265"," 84472"," 84474"," 84686", " 84688"," 85139"," 85312"," 85394", " 85864"," 85892"," 85896"," 85930"," 86192", " 86234"," 86268"," 87800"," 88870", " 89327"," 89376"," 89570", " 89610"," 89614"," 89659"," 89661", " 89662"," 89768"," 89799"," 89832", " 89864"," 89865"," 91367"," 91772", " 94348"," 94349"," 94782", " 94807"," 97028"," 98630", " A8HA7"," A8PQ3"," A8PQ5"," A8PQ8", " A8RW2"," A8RW4"," A8SZ7"," C6AB9"," C6BH8", " C6BQ4"," C6FM5"," C6FM9"," C6FN2"," C6FN5", " C6FR3"," C6FV4"," C6FZ6"," C6LU4", " C6SI4"," C6SJ5"," C6SW3"," C6UC3", " C6VV8"," C6XE9"," C6YM6"," C6ZI9"," C6ZJ5", " D5HF3"," ELPX7"," LAJF7", " LAQO7"," OUHC2"," OXES2"," P3BA7"," S6ES6", " S6LT4"," S6LT6"," UBMO9"," UBRI5"," UBSH5", " V7FA7"," V7HU7"," V7RF4"," V7RI7", " V7SY6"," V7UT7"," V7WS7"," VRBI2"," VRBU6", " VRCI9"," VRDE7"," VRDN3"," VRDT7"," VRDU6", " VRFT7"," VRFU8"," VRFU9"," VRFX5", " VRGH3"," VRHE3"," VRIB2"," VRIB3", " VRID2"," VRID5"," VRIF9"," VRIM5"," VRIR7", " VRJA4"," VRJT8"," VRKC2"," VRKE9"," VRKX7", " VRKZ9"," VRLA6"," VRLQ4"," VRLZ3"," VRMV6", " VRNF7"," VRNM9"," VRPP5"," VRPY5"," VRPY6", " VRQE9"," VRQK3"," VRQS2"," VRYO4"," VRZK9", " ZCBU2"," ZCEF3"," 9V2735"," 9V2739", " 9V2775"," 9V2781"," 9V2782"," 9V2909"," 9V9128", " 9V9130"," 9V9131"," 9V9132"," 9V9287"," 9V9373", " 9V9832"," CG2522"," CG2992"," OZ2049"," WC5932", " 9HA3417"," 9HA3667"," BATFR31"," TBWUK76", " WBS5272"," WCV7620"," WCX8884"," WCZ5535"," WDB9918", " WDC6923"," WDD2074"," WDD9283"," WDF5483"," WDG8555", " WQZ7791") then fail(); endif; if VARIAB in ( z, ps ) and STATID in ( " 04122"," 04162"," 08145"," 16192", " 42407"," 68328", " 71335"," 71971"," 46014", " UDAD"," WCAJ"," WTEB"," 3FCJ9", " 95392"," 9VDD3"," C6TQ6"," C6UZ6"," VRGO3", " VRLA4"," VRVP2"," 9V9376"," 9V9401"," 9V9725", " 9HA3373", " BKIC"," DSQF9"," V7YL7"," V7YW5", " VRJH7"," 9V9918", " 04126"," 08146"," 08150"," 08159"," 08486", " 10906"," 14537"," 17371"," 40310", " 40621"," 41515"," 51053"," 63471", " 71649"," WBN3015", " SBPT"," SDIA"," VAAZ", " A8KX2"," C6FW2"," VRJF2"," VRKX8"," 9V2314", " WHIA"," LAJS6"," VRPY7"," WDB3161", " BKIZ"," KGTX"," VTFG"," C6DF6"," C6YA7", " D5LQ8"," VROB9"," 9V9926", " 3FAR9"," 46128"," C6CX3"," S6LT5"," V7BY3", " V7NB9"," 9V8208"," 9V2911"," 9V9040"," YLV96WM", " 08103"," 08275"," 08414"," 15600"," 60518", " 61499"," 61995"," 68296"," 68549"," 68823", " 71211"," 71680"," 71826"," WPKW"," 2FRE8", " 3ENU5"," D5HF4"," V7NG2"," VRLL2"," VRRB5", " 08345"," 16214"," 16759"," 42081"," 67231", " 86185"," 89324"," 93008"," 04017"," 48838", " 58652"," 61660"," 67239", " 8PSH"," 00000"," A8SG8"," C6SE4"," CQAH9", " LAMG7"," V7ZZ5"," VRBJ9"," VRUR7"," 9V8839", " WBP3210"," WYT8569" ) then fail(); endif; !################################################################# ! Monthly blacklisting for METARs only -------------------------- !################################################################# if (CODTYP = metar) then ! Manual METAR data if (REPORTYPE = 16004) and STATID in ( " CWFD"," CWLY"," CWYK"," CYLW", " CYUS"," EGRG"," EGRT"," EKAV"," SVMI", " ENFB"," ENHE"," FZQM"," KANK", " KAVC"," KESN"," KFFM"," KFOD", " KGUC"," KJQF"," KMRN"," KMTV"," KP69", " KPWT"," KQEY"," KQTA"," KQTZ"," KSXT", " KUKF"," LFSL"," LIMY"," LIPB"," LIVO", " LSZL"," LTCB"," SPJI", " PAOO"," SBBT"," SCAP"," SLCO", " SLOR"," SLSM"," SPST"," SVAC", " SVGU"," SVMN"," SVPM"," UGMS"," VOND", " PARS"," PADM"," PAHP") then fail(); endif; ! Automatic METAR data if (REPORTYPE = 16065) and STATID in ( " CWFD"," CWLY"," CWYK"," CYLW", " CYUS"," EGRG"," EGRT"," EKAV"," SVMI", " ENFB"," ENHE"," FZQM"," KANK"," SPJI", " KAVC"," KESN"," KFFM"," KFOD", " KGUC"," KJQF"," KMRN"," KMTV"," KP69", " KPWT"," KQEY"," KQTA"," KQTZ"," KSXT", " KUKF"," LFSL"," LIMY"," LIPB"," LIVO", " LSZL"," LTCB", " PAOO"," SBBT"," SCAP"," SLCO", " SLOR"," SLSM"," SPST"," SVAC", " SVGU"," SVMN"," SVPM"," UGMS"," VOND", " PARS"," PADM"," PAHP") then fail(); endif; return; endif; return; endif; !###################################################################### ! Monthly blacklisting for Aircrafts (AIREP, ACARS and AMDAR) !###################################################################### if ( OBSTYP = airep ) then if (VARIAB = t) and STATID in ( " LH."," RE."," SA."," AAH."," AAR.", " ABP."," ADH."," AER."," AIC."," AIS.", " AJX."," ANA."," ARG."," ARP."," AUA.", " AVA."," AVE."," AVN."," BAH."," BLU.", " BMW."," BOS."," BOX."," BPA."," BSK.", " CAB."," CCA."," CGD."," CMB."," CNV.", " CSA."," CSD."," CSH."," CUB."," DAF.", " DCS."," EJM."," EUK."," EWW."," FKS.", " FLC."," GES."," GLO."," GOL."," HVN.", " HZA."," HZM."," JAS."," LAP."," LH..", " MAU."," MEJ."," MGE."," MMO."," NAX.", " NCA."," NJE."," PIR."," RE.."," ROM.", " SA.."," SAA."," SCX."," SDM."," SIO.", " SOO."," STE."," TAY."," UAE."," VDA.", " VKG."," VVR."," WCP."," XAF."," XAS.", " AAH.."," AAR.."," ABP.."," ADH.."," AER..", " AIC.."," AIS.."," AJX.."," ANA.."," ARG..", " ARP.."," AVA.."," AVE.."," AVN.."," BAH..", " BLU.."," BMW.."," BOS.."," BOX.."," BPA..", " BSK.."," CAB.."," CCA.."," CGD.."," CMB..", " CNV.."," CSA.."," CSD.."," CSH.."," CUB..", " DAF.."," DCS.."," EJM.."," EUK.."," EWW..", " FKS.."," FLC.."," GES.."," GLO.."," GOL..", " HVN.."," HZA.."," HZM.."," JAS.."," LAP..", " LH..."," MAU.."," MEJ.."," MGE.."," MMO..", " NAX.."," NCA.."," NJE.."," PIR.."," RE...", " ROM.."," SA..."," SAA.."," SCX.."," SDM..", " SIO.."," SOO.."," STE.."," TAY.."," UAE..", " VDA.."," VKG.."," VVR.."," WCP.."," XAF..", " XAS.."," AAH..."," AAR..."," ABP..."," ADH...", " AER..."," AIC..."," AIS..."," AJX..."," ANA...", " ARG..."," ARP..."," AU0075"," AUA..."," AVE...", " AVN..."," BAH..."," BLU..."," BMW..."," BOS...", " BOX..."," BPA..."," BSK..."," CAB..."," CGD...", " CMB..."," CNFLWQ"," CNV..."," CSA..."," CSD...", " CSH..."," CUB..."," DAF..."," DCS..."," EJM...", " EU0044"," EU0062"," EU0084"," EU0093"," EU0108", " EU0161"," EU0164"," EU0217"," EU0218"," EU0219", " EU0223"," EU0225"," EU0226"," EU0227"," EU0386", " EU0814"," EU2123"," EU2454"," EU2473"," EU4593") then fail(); endif; if (VARIAB = t) and STATID in ( " EU8742"," EUK..."," EWW..."," FKS..."," FLC...", " GES..."," GLO..."," GOL..."," HVN..."," HZA...", " HZM..."," JAS..."," LAP..."," LH...."," MAU...", " MEJ..."," MGE..."," MMO..."," NAX..."," NCA...", " NJE..."," NOS130"," NOS422"," NOS630"," PIR...", " RE...."," ROM..."," SAA..."," SCX..."," SDM...", " SIO..."," STE..."," TAY..."," VDA..."," VKG...", " VVR..."," WCP..."," XAF..."," XAS..."," AAH....", " AAR...."," ABP...."," ADH...."," AER...."," AIC....", " AIS...."," AJX...."," ANA...."," ARG...."," ARP....", " AUA...."," AVA...."," AVE...."," AVN...."," BAH....", " BLU...."," BMW...."," BOS...."," BOX...."," BPA....", " BSK...."," CAB...."," CCA...."," CGD...."," CLEAN11", " CMB...."," CNV...."," CSA...."," CSD...."," CSH....", " CUB...."," DAF...."," DCS...."," EJM...."," EUK....", " EWW...."," FKS...."," FLC...."," GES...."," GLO....", " GOL...."," HVN...."," HZA...."," HZM...."," JAS....", " LAP...."," MAU...."," MEJ...."," MGE...."," MMO....", " NCA...."," NJE...."," PIR...."," ROM...."," SAA....", " SCX...."," SDM...."," SIO...."," SOO...."," STE....", " TAY...."," UAE...."," VDA...."," VKG...."," VVR....", " WCP...."," XAF...."," XAS....","0GGL3QZA", "0UVYESZA","432UILRA","44ML3RZA","45TL3RZA","5D2UNVBA", "BR2UILZA","C2WQTRRA","CJJYR4BA","E31CATJA", "GSWGUUZA","JHOKGCZA","JNW13SJA","JP9Z4X56","SA5REPRA", "JP9Z4X58","JP9Z584Z","JP9Z5859","JP9Z585Z", "JP9Z58VZ","JP9Z5Y69","JP9ZV4XZ","JP9ZV879","JP9ZVVUZ", "JP9ZVX6Z","JP9ZVX79","JP9ZVXU9","JP9ZVXXZ","JP9ZVYVZ", "JRTWJAT1","JUIEJAMY","K13QZA4N","KMMKBAHD","LCMUIRZA", "M1213SRA","MW4JHJJA","MX000005","MZCEIEZA","MZWENXBA", "N2BIC1ZA","N3YEIEJA","N4ZGU1ZA","OIQJNPJA","OJ013SRA", "PZWL3SRA","Q10GUWBA","QBQSS1ZA","STX13RBA", "UCFWUUZA","VIDFVSJA","WPDUIJZA","YPTUIERA", "YV3HUJZA","JQ2WQFZA"," EU0462","CUE11WZA","CXTEILRA") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( " N4T"," AOJ7"," AUT."," AVE."," BAF.", " BAH."," BAL."," BBR."," BMW."," BOS.", " BPA."," BSK."," BVR."," BWA."," CAJ.", " CAO."," CES."," CGD."," CMB."," CNC.", " CNF."," CSA."," CSD."," CSN."," CTM.", " CUB."," DCS."," EJM."," GES."," GLO.", " HL.."," HZM."," ICE."," ICL."," JAF.", " JAS."," KAI."," LAP."," LDM4"," LN..", " LXJ."," LXR."," MAU."," MBL."," MEJ.", " MMO."," MMZ."," MON."," MPH."," MYT.", " N1DG"," NAX."," NJE."," NOS."," OEI.", " PAL."," PAQ."," PIA."," PIR."," RON.", " ROY."," SAA."," SDM."," SER."," SEU.", " SHE."," SND."," TCX."," TMN."," TRE.", " TVS."," TWY."," VCV."," VDA."," VHE.", " VJT."," VKG."," VPC."," VQB."," VRG.", " WCP."," XAF."," ADH.."," AEI.."," AIS..", " AUT.."," AVE.."," BAF.."," BAH.."," BAL..", " BBR.."," BMW.."," BOS.."," BPA.."," BSK..", " BVR.."," BWA.."," CAJ.."," CAO.."," CES..", " CGD.."," CGJCB"," CGJDR"," CGNRS"," CGPPX", " CMB.."," CNC.."," CNF.."," CSD.."," CSN..", " CTM.."," CUB.."," DCS.."," EJM.."," FHMBY", " GCGSJ"," GES.."," GLO.."," HBJFE"," HBJRS", " HL..."," HZM.."," ICE.."," ICL.."," JAF..", " JAS.."," KAI.."," LAP.."," LN..."," LXJ..", " LXR.."," MAU.."," MBL.."," MEJ.."," MMO..", " MMZ.."," MOGMC"," MON.."," MPH.."," MYT..", " N18TM"," N375G"," N379G"," N628G"," N65WL", " N917R"," NAX.."," NJE.."," NOS.."," OEI..", " PAL.."," PAQ.."," PIA.."," PIR.."," PPVDR", " RON.."," ROY.."," SAA.."," SDM.."," SER..", " SEU.."," SHE.."," SND.."," TCX.."," TMN..", " TRE.."," TVS.."," TWY.."," VCV.."," VDA..", " VHE.."," VJT.."," VKG.."," VPC.."," VQB..", " VRG.."," WCP.."," XAF.."," XAOVR"," ADH...", " AEI..."," AIS..."," AUT..."," AVE..."," BAF...", " BAH..."," BAL..."," BBR..."," BMW..."," BOS...", " BPA..."," BSK..."," BVR..."," BWA..."," CAJ...", " CAO..."," CGD..."," CMB..."," CNC..."," CSA...") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( " CSD..."," CTM..."," CUB..."," DCS..."," EJM...", " EU0281"," EU8001"," GES..."," GLO..."," HL....", " HZM..."," ICE..."," ICL..."," JAF..."," JAS...", " KAI..."," LAP..."," LN...."," LXJ..."," LXR...", " MAU..."," MBL..."," MEJ..."," MMO..."," MMZ...", " MON..."," MPH..."," MYT..."," N100QS"," N104QS", " N113QS"," N114QS"," N142QS"," N143QS"," N145QS", " N147QS"," N150QS"," N160QS"," N193LA"," N280GF", " N280GU"," N288ZJ"," N2900D"," N375WB"," N543GL", " N588MM"," N625SC"," N683GA"," N688ZJ"," N700BX", " N700GX"," N700LS"," N704MF"," N755RA"," N788ZJ", " N815PA"," N878SC"," N888ZJ"," N904DS"," N918TB", " N980GG"," N988ZJ"," NAX..."," NJE..."," NOS...", " OEI..."," PAQ..."," PIA..."," PIR..."," AAL99", " RON..."," ROY..."," SAA..."," SDM..."," SER...", " SEU..."," SHE..."," SND..."," TMN..."," TRE...", " TVS..."," TWY..."," ULC201"," VCV..."," VHE...", " VJT..."," VKG..."," VMP932"," VMP944"," VPC...", " VQB..."," VRG..."," WCP..."," XAF..."," ADH....", " AEI...."," AIS...."," AUT...."," AVE...."," BAF....", " BAH...."," BAL...."," BBR...."," BMW...."," BOS....", " BPA...."," BSK...."," BVR...."," BWA...."," CAJ....", " CAO...."," CES...."," CGD...."," CMB...."," CNC....", " CNF...."," CSA...."," CSD...."," CSN...."," CTM....", " CUB...."," DCS...."," EJM...."," GES...."," GLO....", " HL....."," HZM...."," ICE...."," ICL...."," IFA6285", " JAF...."," JAS...."," KAI...."," LAP...."," LN.....", " LXJ...."," LXR...."," MAU...."," MBL...."," MEJ....", " MMO...."," MMZ...."," MON...."," MPH...."," MYT....", " NJE...."," NOS...."," OEI...."," PAL...."," PAQ....", " PIA...."," PIR...."," RON...."," ROY...."," SAA....", " SDM...."," SER...."," SEU...."," SHE...."," SND....", " TMN...."," TRE...."," TVS...."," TWY...."," VCV....", " VDA...."," VHE...."," VJT...."," VKG...."," VPC....", " VQB...."," VRG...."," WCP...."," XAF....","0GGL3QZA", "0NHXIRRA","0QMKIGJA","0UE13RZA","0UFHIRBA","0ZAHIRRA", "12JWUWJA","14ZHIRRA","152XIRBA","1DMXP4ZA","1UVKIGJA", "2J4HIRRA","2MRXP4ZA","3GK13QZA","3NPHIRRA","3ZWXIRRA", "45SHIRBA","45TL3RZA","5KIXIRRA","5LKL3RZA", "5LNXIRBA","ACPKIGJA","AER.....","AGGXIRBA") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( "ALDHIRRA","ANMKBNBA","AQ5XIRBA","BN0XIRRA","BZLXIRRA", "C5M13RZA","CABXIRBA","CAEL3RZA","CBCHISZA","CJJYR4BA", "CLXXP4RA","D1BHP4RA","DG013RJA","DG1HISZA","DL2HIRBA", "DSKXISZA","E5OXP4RA","EUQXIRBA","EVSL3RJA", "EVVXISZA","FAJHIRBA","GD50IGBA","GGTXISZA","GGWL3RJA", "GHIHISJA","GTRHISJA","H3UHP4RA","HU5HISZA","HXAXISJA", "HXB13RRA","IINXISBA","IJOHIQZA","JMSHISBA","JMTL3SZA", "JNW13SJA","JNXHIQZA","JYC13SZA","JZGXIQZA","JZH13SJA", "K5DL3SRA","KWOKILZA","LLSL3SRA","LLVXIQJA", "M0YHIQZA","M0ZL3SJA","M1213SRA","MALHP3JA","MEJ0IEBA", "MO5XIQZA","MQUKIEBA","N4I13SJA","N4JHIQZA", "N5N13SRA","NAEHIQJA","NAFL3SRA","NMUYU4JA","OCXKILZA", "OE4XIQRA","OE513SBA","OJ013SRA","OJ1HIQJA","OQPXIQRA", "OWFHP3RA","PNKXIQJA","PNL13SRA","PUIHIQRA","Q2LHISRA", "Q44ICUJA","QVMHISJA","QVNL3RRA", "RB2L3RRA","RBZXISJA","S0JXISBA","STWXISRA","STX13RBA", "T4VL3SZA","TXHXISRA","TXQL3RBA","UBU13RRA","UBVHISJA", "VFEXISJA","VMDXISRA","VPXHP4BA", "VT4HISRA","VT5L3RBA","W1S0IERA","W22XISBA","W31XIQZA", "W34L3SJA","XKFHISBA","YF3KILJA","YNHL3SRA", "YRM0ILJA","YUAXIQRA","Z5ZXIQRA","ZAQ13SBA", "ZARHIQRA","KJ3AOZZA"," LAN703"," LAN705", "13TKKLZA","KQPMUSZA","NDWJ4KRA","PTLHBOZA","QN3FJZBA", " NRS7093","3VVJM4BA") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( "01CGITRA","025LEQBA","03PJXUBA","04QZ1SRA","05URYCJA", "0C0SBZJA","0CO0I4RA","0DIBA0BA","0DS0KAZA","0FGXR4BA", "0JRW4BRA","0KJ0MMRA","0LVTSQBA","0MTHGEZA","0N413JRA", "0OEUILJA","0SQSTWRA","0U2IJJBA","0ULLFVRA", "0VOJMVJA","0Z2GRYZA","0ZZKG5ZA","11V1DVBA", "134ICNZA","13TKKLZA","14B1EWJA","14JIMEBA","152IERBA", "1AQICMZA","1B2J5RZA","1DEIHJBA","1ENJ35RA","1FDI0NZA", "1FXE5DZA","1H5ZJBRA","1JI1NGBA","1NISBMJA","1NJ130BA", "1OBWRFJA","1OXRP1ZA","1PKIEPBA","1V1YQCRA","1VAXAEZA", "1WBJ1HRA","1XIIF2RA","1YFIJPJA","20BTB3ZA","20IYN2ZA", "23SZA1BA","2BZYB0BA","2CGXUXJA","2DGLDIZA","2E1ICWRA", "2H2LEQRA","2LILFVJA","2P5Y1CJA","2SJCEXBA","2SN1J0JA", "2V21KUBA","2Z3YXTJA","30UL10JA","3B1IB3JA","3FVYF2JA", "3IEIVKBA","3LM1CIBA","3M2LJQZA","3N5BFFBA","3NDUTARA", "3NLYERRA","3QNX41RA","3RBE4SZA","3RPZJ0ZA","3S20GMRA", "3SX11JJA","3TAJV3JA","3TQZROJA","3XPFSLRA","3YKHGEZA", "3YQUDQRA","41WI3FRA","424EJ3BA","44C0KKRA", "4CV1EPRA","4DY0JNZA","4GQIJRBA","4ICIELZA", "4LMY3AZA","4MVHHLRA","4VJJ0LBA","4WUI11RA","522E1PBA", "52XIEWBA","54DZHIZA","54SH4YJA","5B5F5EBA","5BJDERJA", "5HUK1FBA","5KBE0LRA","5KZHGEJA","5L3GKQRA", "5STICMJA","5UYIVDBA","5Y22YEBA", "A0RIELZA","A0W01LJA","A2NRWBBA","A3SKLBRA","AANSPNRA", "AAZIEPBA","ABZWBCZA","AIZU0JBA","AJSZULJA","AKFIBYZA", "AMJYFRZA","ANE1EQBA","ANMKBNBA","AOBZJZBA","AQ5IERBA", "AS3UMSZA","ASFYGXZA","ATLYHQJA","B1J0DSZA","BA0JNKBA", "BK1KQMJA","BKJ2UKZA","BKMLDNBA","BL0DTWZA","BN4FHVZA", "BN4YQQRA","BOQYGMZA","BOZEILJA","BPZEDQRA","BRDFR4JA", "BREZHUJA","BRNUU1BA","BRXFI2BA","BSCFGHBA","BUN11VBA", "BYDKJNZA","BZ0XGEJA","BZLSFFJA","C03XONRA","C2WKHYRA", "C3QDEEBA","C5AKHWBA","CA0UDQBA","CEILHOJA","CH4BOZZA", "CHF1COBA","CJSYELJA","CKEEBURA","CKFZ45BA","CMJMNEZA", "CMTYQYZA","COYIDHJA","CQ4YCNJA","CSGZRKBA", "CUN0HKRA","CUZQPNJA","CVR0QUZA","CWWWAIBA","D4T1QCBA", "D4WXUJBA","D5WZI1RA","DBGIEXRA","DCP1VABA","DEBXGERA", "DEMDELZA","DEPY3YRA","DFD04KJA","DG1JAZJA","DKR0OPBA", "DMHLNOJA","DQZZ0QBA","DS2DYGZA","DSFV40BA","DX3SVTJA", "DXP1ABZA","E0TY5LZA","E3FL3ERA","E3JGN1JA","E4OIFRJA", "EDUQPWBA","EE20NAZA","EGOZLAJA","EGUJ4NZA","EIU10YBA", "EJQKQFBA","ENLXGEJA","EPSEILRA","ES0YENZA","ESXCSSBA", "EU5TYFRA","F30UILRA","F5VLEWRA","FAKJG2RA","FG5IQ1RA") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( "FINKJVZA","FKTTWDJA","FM22KQRA","FNQX4QZA","FRAIFERA", "FTRH1JZA","FXBLCDJA","FZ0IJWJA","FZPLDOZA","G0Q0Q5ZA", "G3FKNZJA","G5BICKRA","GB0JDVRA","GCAYJZZA","GD4E4BJA", "GEDSESRA","GG4IRSJA","GNLSYCJA","GOKY1LZA","GOPE5MZA", "GPPID3BA","GQBUILBA","GQW1EWBA","GRBUC5ZA","GRZL1TRA", "GS3XVAJA","GXYV5NJA","GY0KM3BA","GY4IDLZA", "GYSYHQBA","GYY1ENZA","H1LIFAZA","HCNJRBJA","HIDZNGRA", "HKMZCQBA","HLXIB4ZA","HMC1CDRA","HOKDESZA","HP0ZMDRA", "HQDIHFBA","HQMLFRJA","HTVIEXBA","HWSRYFJA","HXVCTJZA", "HY0LFERA","I0X2MLBA","I4DYK4RA","IEIUIEJA","IEYF5URA", "IF4YEJJA","IIJBYGJA","IJZZGXBA","IMDY5LJA","IPL1CMBA", "IRAIICJA","IWE0GWZA","IXCYFGJA","IYFLFXRA","IZ2YFTZA", "J0GYCVBA","J2BL3LBA","J3CTTLBA", "J3LI5KBA","J4RYCOJA","J54Y2HZA","JD51FSZA","JKSICQJA", "JR2XLNJA","JTYUC5BA","JUEBTRRA","JVO10OZA","JXFEIFRA", "K0GMVHJA","KAHW3XJA","KC1Y23RA","KCWEIERA","KDWEQ5BA", "KDZZ4BZA","KGI1EQZA","KHITY2RA","KHSJNZZA","KJ3AOZZA", "KJTLQGJA","KL5YFTJA","KMRYFGRA","KOGI31ZA","KQPMUSZA", "KRVY0FRA","KYUGLLJA","L2XDXKBA","LANYB5BA","LAW1JBRA", "LBCLHTJA","LE5CTRJA","LEBYW1BA","LFDDFTZA","LGHEIERA", "LIAYNGJA","LIFMAAZA","LJKI0QRA","LLCY2EBA","LLEZRNRA", "LLIK4QBA","LNWICORA","LRUXGGRA","LZZDFGZA","M0KRYGRA", "M1ZYEQJA","M2FYEJRA","M5LL1SRA","MD5EAARA","MDJTXKRA", "MF5KIYJA","MFMUG3ZA","MFYTPUBA","MGO2R5JA","MLJJV5RA", "MNERZMRQ","MNERZMSA","MNERZMSQ","MNERZMTA","MNERZMTQ", "MNERZMUA","MNERZMUQ","MNERZMVA","MNERZMVQ", "MQWTPURA","MTLYNMBA","MTVHLKRA","MTXYFVZA","MZNFR1RA", "MZNUC3ZA","N0CLFSJA","N50KMEBA","N51WKOBA","NCHHGGJA", "NF3K0KJA","NHBCSNZA","NKEICOJA","NMJK5GBA","NMUYU4JA", "NNK00YJA","NP0CVYZA","NQAMGYZA","NQPCSPBA","NSOLHLJA", "NTNICIRA","NTQKG1BA","NVTCZCJA","NWWLFLRA","O1L0VZBA", "O3DJ3YZA","O4WIFGBA","O5AKMYJA","OAEAYFZA","OAJ0DRJA", "OBT0QPJA","OE4IEQRA","OFFXGGRA","OG405OJA","OHR03IRA", "OJRK5OJA","ORB1DKBA","OTFKBNJA","OVWCQHBQ","OVWCQHEA", "OVWCQHFA","OW5Z04BA","OZCZ0NBA","OZJIGDZA","OZOW5DJA", "OZURTLRA","OZV1FVZA","P0RTP1JA","P2ARTLJA","P2YYMEJA", "P31FRYJA","P3NJG5JA","PB1JR3JA","PB21SLZA","PC3YKXRA", "PEKVN4ZA","PFNLFLBA","PGAYEWZA","PH0WUWZA","PHX132RA", "PIKRV4RA","PIOYCIBA","PJQZI4BA","PNZL4OZA","PPJJLPJA") then fail(); endif; if VARIAB in ( u, v ) and STATID in ( "PPSAPQJA","PQ5TZCZA","PR1TTVZA","PRDLDNJA","PTJ2MVRA", "PTLHBOZA","PUBVNBZA","PUFINURA","PV4U1WZA","PVGYMDZA", "PVUUIEBA","PWGYF2ZA","Q1HDFYIQ","Q1HDFYJQ","Q1ICSJBA", "Q54YFRBA","QBHKMBBA","QHFDERBA","QN3FJZBA","QNVIIBRA", "QPAUGSRA","QQKJPLJA","QROW0NBA","QT4AOIRA","QWFYQDZA", "QWTUIJZA","QYEK32ZA","R0XIOKZA","R1ZJH2ZA","R2WH44JA", "R2YY1YRA","R3ZDESJA","RAHINPRA","RAZZMCRA","RCKUIJZA", "RD3EGZBA","RGFKCYBA","RLRDO5RA","RLYKQ4RA", "RM1RSWJA","RSLICNRA","RT4JHOZA","RYCCO1BA","RYQYFLZA", "RYZVAMJA","S0JIESBA","S2AJLJZA","S3I1CMRA","S5TJ0KRA", "SBFTZDBA","SDP2UEBA","SMUIN5JA","SOWYRQBA", "SP0DTRBA","SRAHMGBA","SSHIFXRA","STFJR0ZA", "T2GKVZZA","T3HYBZBA","T3KLDKZA","T5CUIEZA","T5KIJMBA", "T5XBO5JA","TDQRYARA","TKMDY4RA","TKNCSWZA","TKTYFLJA", "TOZIGSRA","TR21FRBA","TR3BSNJA","TUKJ51ZA","TW1YFARA", "U2VTZDBA","U4DI1SZA","U4GMVGBA","U5P0HUJA","UAEIFXJA", "UCN1EUZA","UDGEC5JA","UEG11EZA","UEYEQGJA","UFZ1I5ZA", "UK11ENJA","UKUGD2RA","ULEEAHRA","UMLWKIRA","UMV0J5RA", "UTQICNBA","UXH1MHZA","V2UDEXRA","VAYCOOBA","VDIBEWZA", "VE500QRA","VE5EIJZA","VEBG3RZA","VEYYFAJA","VGAW40RA", "VGUVHDZA","VHA0GJJA","VIWYEVZA","VJBLFEBA","VM01RHBA", "VMUIZ4BA","VNWI3GJA","VOEYBZRA","VPILMSZA","VQHJNZJA", "VQNZRURA","VSCYZ5RA","VTQDWMBA","VXW0GRJA","W0VDZBJA", "W11YHNJA","WAY0ONRA","WDE1QKRA","WDJSMTVA","WEF012ZA", "WHZBFCRA","WITICOZA","WIUBPKJA","WN5UC5RA","WPASEEZA", "WPII34BA","WV3EMVRA","WYLXHMRA","WYUJ0UZA", "WYVV44ZA","WZVZGPBA","X02MKNJA","X0MCSWRA","X2X02LZA", "X3RYN1JA","XBLEC5RA","XCCV0XBA","XCGI5AJA","XEAFKMZA", "XIFGRBBA","XIYX0QZA","XJ1UIEZA","XK1I0QZA","XKDBO5ZA", "XLOJMLZA","XMCYCOZA","XV0IB4BA","XXEJQCBA", "XY0U3TBA","XYJYJ5JA","Y2AZDSJA","Y3ITZHJA","Y3TIEKZA", "Y4OK1BZA","Y5FYCOBA","Y5LFKQBA","YAT13TBA","YGSU0YBA", "YHHJNAJA","YHMF0IBA","YHQFLKJA","YMGTTVRA","YP3APQBA", "YS5K0UZA","YTSKW5JA","YTSSPWBA","YXQHGGBA", "ZBCSO5RA","ZCOURBBA","ZDXXGGBA","ZHWIG1RA","ZIFZUHRA", "ZMXCFCBA","ZTEIN5RA") then fail(); endif; if VARIAB in ( t, u, v) and ( PRESS >= 700 ) and STATID in ( "0VVVD5ZA","1ILVD5JA","2Q5VGABA","2RHFGABA","2TEFD5ZA", "320VD5JA","3XOFD5JA","4S1FGCJA","4TOVGCJA","5H4VD5JA", "5OGFD5JA","5TPVD5JA","5V0FGCJA","5WKVGCJA","5XXVGCJA", "ATRFD5ZA","BBLFGCZA","CFOFGCZA","CGWVGCZA","CSHVGCZA", "CTUFGCJA","CYDVGCRA","CZAFGCRA","D4CVGCRA","DVGVGCZA", "DX4FGCRA","DXFFGCJA","EBDVGCZA","EIQFGCJA","EKWVGCJA", "FFZVGCJA","FG4FGCZA","FMBFGCJA","FMKFGCJA","FR1VGCZA", "FSPFGCZA","FTYVGCJA","GX3FGCJA","HB2VGCJA","HI1VGCRA", "HIEFGCJA","HKIVGCRA","I0ZVGAZA","IUPVGARA","IUXVGAJA", "IXDVGARA","J3YVGAZA","JAFVGAJA","KG0FGABA","KJ4FGAJA", "KQYVGARA","KR3VGABA","LNPFGAJA","LP1VGAJA","LUJVGARA", "LWZFGARA","LXHVGABA","MB4FGARA","MBVFGARA","MCOVGARA", "NEKFGAJA","NERFGARA","NGXVGARA","NLSVGAJA","NSQFGARA", "OUFFGARA","P52VGARA","PBTFGABA","QBSFGCJA","QDMVGCJA", "QJIVGCBA","QKUFGCBA","R0HFGCRA","RMGVGCRA","RNRVGCBA", "RZEFGCBA","RZLVGCBA","S34VGAZA","SABVGAZA","TKCFGCBA", "TL2FGAZA","TLHFGAZA","U0MVGCBA","UHYFGCRA","UTJFGCRA", "UU1FGAZA","UZXFGAZA","V2IFGCRA","V3GVGAZA","V3NFGCBA", "V4VVGCBA","VXQVGCRA","WIKVGCBA","WK0FGCBA","WQNFGAJA", "WSGFGAJA","X1XVGAZA","XMTVGCBA","XOLFGCBA","XUUVGAJA", "XZRFGAZA","YC1VGABA","YCEFGARA","YINVD5ZA","ZTIVD5ZA") then fail(); endif; if VARIAB in ( t ) and ( PRESS >= 700 ) and STATID in (" MX0013") then fail(); endif; if VARIAB in ( t ) and ( PRESS <= 400 ) and STATID in ("NA4J0XBA") then fail(); endif; if VARIAB in ( rh, q) and STATID in ( " MX0013"," MX0031","1PJUNVJA","1VAENVRA","2JBXL5ZA", "3FVENVRA","5WKVGCJA","CA0WUWBA","CGWVGCZA","CSHVGCZA", "E1THL5JA","EPKHL5JA","IJOHIQZA","IXDVGARA","JAFVGAJA", "LNPFGAJA","LVQUOGRA","M2YEOFBA","MX000013","MX000031", "NAEHIQJA","OKLWU1ZA","OQPXIQRA","S1LHOCBA","SYVGUURA", "SZ2UNXRA","TJ3UOFBA","TKCFGCBA","U0MVGCBA","U4XUNWJA", "UZXFGAZA","Z3NGU1JA","ZGUUOGRA"," 35167") then fail(); endif; return; endif; !###################################################################### ! Monthly blacklisting for BUOY only -------------------------------- !###################################################################### if ( OBSTYP = dribu ) then ! Use BUFR BUOY data now: CODTYPs 188 (moored) and 189 (drifting) ! BUFR BUOY uses 7-digit ids so some entries below duplicated ! Ie " 23003" is the same buoy as " 2300003" ! Don't use wind from drifting buoys (not usually reported) if VARIAB in ( u, v ) and CODTYP in (189) then fail(CONSTANT); endif; if VARIAB in ( u, v ) and STATID in ( " 13009"," 21525"," 21530"," 21952"," 23003", " 23451"," 31053"," 31374"," 32320"," 41590", " 41936"," 41974"," 51016"," 51303"," 2300003", " 3100053"," 3100374"," 3200320"," 4100139"," 5100016", " 5100303"," 5100310"," 6100002"," 6200191") then fail(); endif; if VARIAB in ( z, ps ) and STATID in ( " 15603"," 16562"," 16567"," 17652"," 21926", " 21965"," 26545"," 32542"," 33884"," 33885", " 33886"," 33906"," 41691"," 47540"," 48271", " 48790"," 55635"," 55946"," 56533"," 56904", " 56942"," 63923"," 64757"," 71610"," 71615", " 71623"," 1700652"," 1701501"," 2100854"," 2101517", " 2201524"," 2301562"," 2500575"," 2600545"," 3100231", " 3201544"," 3300909"," 4301507"," 4700540"," 4700551", " 4701654"," 4800271"," 4800279"," 4800570"," 4800790", " 4801622"," 4801626"," 4801710"," 4801711"," 4802004", " 4802502"," 5201590"," 5301603"," 5600942", " 55575"," 5300518"," 5500575"," 4802009", " 56522"," 2301708"," 5600522"," 1400901"," 3301530", " 4802012"," 5401589", " 56525"," 1501513"," 3301507", " 1400932"," 1501511"," 1501517"," 1701548"," 1701555", " 2301560"," 3101537"," 3101544"," 3101545"," 4701658", " 4701674"," 5401597"," 5401623"," 5500935"," 5601612", " 6203527"," 7101508"," 4800769"," 48769"," 48770", " 1601518"," 4601592"," 4801637", " 23091"," 2100229"," 3101538"," 4800770"," 4802006", " 5401539") then fail(); endif; return; endif; !###################################################################### ! Monthly blacklisting for TEMPs only --------------------------------- !###################################################################### if ( OBSTYP = temp ) then ! Omit BUFR TEMP DROP for now if CODTYP in (230) then fail(CONSTANT); endif; ! BUFR TEMP whitelist if CODTYP in (109) then ! Allow selected land BTEMs if STATID notin ( " 01..."," 02..."," 03..."," 04..."," 06...", " 07..."," 08..."," 10..."," 11..."," 12...", " 13..."," 14..."," 15..."," 16..."," 17...", " 33008"," 40179", " 40186"," 43599"," 47..."," 60018"," 61901", " 61904"," 61980"," 61998"," 67083"," 68263", " 68424"," 68442"," 68512"," 68538"," 68592", " 68816"," 68842"," 70026"," 70133"," 70200", " 70219"," 70231"," 70261"," 703.."," 71...", " 72201"," 72206"," 72208"," 7221."," 7223.", " 7224."," 72251"," 7226."," 72274"," 72293", " 72317"," 72327"," 7236."," 72340"," 72426", " 72440"," 72250"," 72451"," 72476"," 72489", " 72493"," 72501"," 72518"," 7252."," 72558", " 72562"," 72572"," 7263."," 7264."," 72659", " 72662"," 72672"," 72681"," 72694"," 727..", " 74389"," 74494"," 74560"," 76612"," 76679", " 76692"," 76743"," 76805"," 76903"," 78897", " 78954"," 81405"," 85..."," 88889"," 89002", " 89564"," 89571"," 89611"," 89642"," 89859", " 91212"," 91285"," 91592"," 91765"," 91925", " 91938"," 91948"," 91958"," 93..."," 94...", " 95527"," 96996"," 37789"," 72376", " 72388"," 72551"," 72582"," 72597"," 89022", " 45004"," 73033"," 89062") then fail(CONSTANT); endif; if STATID in ( " 06060"," 06458"," 17196"," 17351", " 47122"," 47158"," 47580"," 47681") then fail(); endif; endif; if STATID in ( " 03810"," 03814"," 07618"," 56046", " 72291"," 84132"," 96801"," 07101"," 61660") then fail(); endif; if STATID in ( " 61442"," 64400"," 64458"," 65503" ) and PRESS in ( 775, 600 ) then fail(); endif; ! u,v if VARIAB in ( u, v ) and ( PRESS <= 30 ) and STATID = " 56651" then fail(); endif; if VARIAB in ( u, v ) and STATID in ( " 47058"," 47101"," 7HCPVTB" ) then fail(); endif; if VARIAB in ( u, v ) and ( PRESS <= 10 ) and STATID = " 68424" then fail(); endif; if VARIAB in ( u, v ) and ( PRESS > 850 ) and STATID in (" ASEU04"," YLV96WM") then fail(); endif; if VARIAB in ( u, v ) and ( PRESS > 700 ) and STATID in (" SOCR3","SOCRATES") then fail(); endif; if VARIAB in ( u, v ) and ( 400 < PRESS < 700 ) and STATID in (" 42701") then fail(); endif; if VARIAB in ( u, v ) and ( PRESS < 400 ) and STATID in (" 42182") then fail(); endif; if VARIAB in ( u, v ) and PRESS in ( 900, 800, 600 ) and STATID in ( " 42..."," 43...") then fail(); endif; ! z,t,q if VARIAB in ( z, t, q ) and ( PRESS <= 100 ) and STATID in ( " 51243"," 56651" ) then fail(); endif; if VARIAB in ( z, t, q ) and STATID in ( " YLV96WM" ) then fail(); endif; ! z,t if VARIAB in ( z, t) and STATID in ( " 03023", " 37860"," 47058"," 94750") then fail(); endif; if VARIAB in ( z, t) and ( PRESS >= 925 ) and STATID in (" 30935") then fail(); endif; if VARIAB in ( z, t) and ( PRESS <= 700 ) and STATID in (" 38064") then fail(); endif; if VARIAB in ( z, t) and ( PRESS <= 400 ) and STATID in (" 27594") then fail(); endif; ! t if VARIAB in (t) and ( PRESS <= 100 ) and STATID in ( " 42361"," 42492"," 42667"," 43128"," 43333") then fail(); endif; ! All 12 UTC z, t if VARIAB in ( z, t) and ( 90000 <= TIME < 150000 ) and ( 30 >= PRESS >= 0 ) and STATID = " 56964" then fail(); endif; if VARIAB in ( z, t) and ( PRESS < 50 ) and ( 90000 <= TIME < 150000 ) and STATID in (" 25703") then fail(); endif; if VARIAB in ( z, t) and ( 90000 <= TIME < 150000 ) and ( 400 >= PRESS >= 0 ) and STATID in (" 33393"," 33837") then fail(); endif; if VARIAB in ( z, t) and ( 90000 <= TIME < 150000 ) and ( PRESS >= 850 ) and STATID in (" 85442") then fail(); endif; if VARIAB in ( z, t) and ( 90000 <= TIME < 150000 ) and STATID in ( " 06011"," 37789"," 67774") then fail(); endif; ! All 00 UTC z, t if VARIAB in ( z, t) and ( TIME >= 210000 or TIME < 030000 ) and ( 70 >= PRESS >= 0 ) and STATID = " 56964" then fail(); endif; if VARIAB in ( z, t) and ( 150 >= PRESS >= 0 ) and ( TIME >= 210000 or TIME < 030000 ) and STATID = " 40809" then fail(); endif; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! TEMP HUMIDITY !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! if VARIAB in ( td, rh, q ) and STATID in ( " 34882"," 37011"," 38064"," 41923", " 42299"," 42724"," 89592") then fail(); endif; return; endif; !###################################################################### ! Monthly blacklisting for PILOTs only -------------------------------- !###################################################################### if ( OBSTYP = pilot ) then ! BUFR PILOT whitelist if CODTYP in (112,113) then ! Allow selected land PILOTs if STATID notin ( " 17600"," 17609"," 40179"," 67083"," 68512", " 70026"," 70200"," 70219"," 70231"," 70273", " 70350"," 70361"," 70398"," 71913"," 82332", " 82965"," 83928"," 91165"," 91212"," 91285", " 91348"," 91376"," 94...") then fail(CONSTANT); endif; endif; if VARIAB in ( u, v ) and STATID in ( " 40265"," 41661"," 41715"," 41739"," 41907", " 41936"," 41943"," 41950"," 61415"," 61687", " 65330"," 70292"," 70454"," 70456"," 72734", " 94653"," 96801") then fail(); endif; if VARIAB in ( u, v ) and ( 030000 <= TIME < 090000 ) and STATID = " 43128" then fail(); endif; if VARIAB in ( u, v ) and ( TIME >= 150000 or TIME <= 090000 ) and STATID = " 61442" then fail(); endif; if VARIAB in ( u, v ) and ( PRESS <= 10 ) and STATID in (" 68424"," 68538") then fail(); endif; if VARIAB in ( u, v ) and ( PRESS <= 700 ) and STATID in (" 41859"," 41977") then fail(); endif; if VARIAB in ( u, v ) and ( 1000 >= PRESS >= 900 ) and STATID = " 68906" then fail(); endif; if VARIAB in ( u, v ) and ( 90000 <= TIME < 150000 ) and STATID = " 94802" then fail(); endif; !########################################################## ! Begin lists of ALLOWED PROFILERS --------------------- !########################################################## ! 1. EU and JAPAN !########################################################## if ( CODTYP = eu_profiler or CODTYP = jp_profiler ) then if VARIAB in ( u, v ) then !=============================================== ! Not used below 925 hPa !=============================================== if ( PRESS > 925 ) and STATID notin (" 01079"," 01405"," 01498"," 02043"," 02092", " 02451"," 02570"," 02588"," 02666"," 02775", " 02870"," 02918"," 02933"," 02941"," 02954", " 02975"," 03019"," 03086"," 03375"," 03591", " 03675"," 03807"," 03859"," 03918"," 03962", " 03969"," 06260"," 06348"," 07223"," 07336", " 07626"," 08308"," 10135"," 10169"," 10266", " 10392"," 10394"," 11406"," 11509"," 12331", " 12374"," 12579"," 12985"," 47945"," 94238", " 94288"," 94346"," 94352"," 94653"," 95207", " 95729"," 95966"," 03018"," 03897"," 07145", " 14280"," 95759"," 03020"," 11480"," 10410", " 10440"," 10488"," 10629"," 07182"," 10339", " 10605"," 10780"," 10832"," 10950") then fail(); endif; !=============================================== ! Layer 925 hPa !=============================================== if ( PRESS = 925 ) and STATID notin (" 01079"," 01405"," 01498"," 02043"," 02092", " 02334"," 02451"," 02570"," 02588"," 02666", " 02775"," 02870"," 02918"," 02933"," 02941", " 02954"," 02975"," 02995"," 03019"," 03086", " 03253"," 03331"," 03375"," 03591"," 03601", " 03675"," 03807"," 03813"," 03840"," 03859", " 03897"," 03918"," 03962"," 03969"," 06260", " 06348"," 06610"," 06632"," 07145"," 07223", " 07336"," 07626"," 08308"," 10135"," 10169", " 10266"," 10356"," 10392"," 10394"," 11406", " 11509"," 12220"," 12331"," 12374"," 12579", " 12982"," 12985"," 47406"," 47417"," 47423", " 47570"," 47585"," 47587"," 47612"," 47616", " 47626"," 47629"," 47636"," 47640"," 47656", " 47674"," 47678"," 47746"," 47755"," 47795", " 47800"," 47805"," 47815"," 47819"," 47822", " 47836"," 47848"," 47891"," 47898"," 47909", " 47912"," 47945"," 94238"," 94288"," 94300", " 94346"," 94352"," 94653"," 94907"," 94926", " 95207"," 95729"," 95759"," 95966"," 03018", " 03897"," 07145"," 14280"," 95759"," 03020", " 11480"," 10410"," 10440"," 10488"," 10629", " 07182"," 10339"," 10605"," 10780"," 10832", " 10950") then fail(); endif; !=============================================== ! Layer 925-850 hPa !=============================================== if ( 925 > PRESS >= 850 ) and STATID notin (" 01079"," 01405"," 02043"," 02092"," 02334", " 02451"," 02570"," 02588"," 02666"," 02775", " 02870"," 02918"," 02933"," 02941"," 02954", " 02975"," 02995"," 03019"," 03086"," 03159", " 03253"," 03331"," 03375"," 03501"," 03591", " 03601"," 03675"," 03771"," 03807"," 03813", " 03840"," 03859"," 03897"," 03918"," 03962", " 06260"," 06348"," 06610"," 06632"," 07145", " 07223"," 07336"," 07626"," 10135"," 10169", " 10266"," 10356"," 10392"," 10394"," 11406", " 11509"," 12151"," 12220"," 12331"," 12374", " 12579"," 12982"," 12985"," 47406"," 47417", " 47423"," 47570"," 47585"," 47587"," 47612", " 47616"," 47626"," 47629"," 47636"," 47640", " 47656"," 47674"," 47678"," 47746"," 47755", " 47795"," 47800"," 47805"," 47815"," 47819", " 47822"," 47836"," 47848"," 47891"," 47898", " 47909"," 47912"," 47945"," 94238"," 94288", " 94300"," 94346"," 94352"," 94653"," 94693", " 94907"," 94926"," 95207"," 95729"," 95759", " 95966"," 03018"," 03897"," 07145"," 14280", " 03020"," 11480"," 10410"," 10440"," 10488", " 10629"," 07182"," 10339"," 10605"," 10780", " 10832"," 10950") then fail(); endif; !=============================================== ! Layer 850-700 hPa !=============================================== if ( 850 > PRESS > 700 ) and STATID notin (" 01079"," 01247"," 01405"," 01498"," 02032", " 02043"," 02092"," 02200"," 02262"," 02334", " 02430"," 02451"," 02570"," 02588"," 02600", " 02666"," 02775"," 02840"," 02870"," 02918", " 02925"," 02933"," 02941"," 02954"," 02975", " 02995"," 03019"," 03020"," 03086"," 03159", " 03203"," 03253"," 03331"," 03375"," 03501", " 03591"," 03601"," 03675"," 03754"," 03771", " 03807"," 03813"," 03840"," 03842"," 03859", " 03897"," 03918"," 03962"," 03969"," 06234", " 06260"," 06348"," 06451"," 06610"," 06620", " 06632"," 07145"," 07223"," 07336"," 07453", " 07626"," 07650"," 07658"," 08019"," 08081", " 08550"," 10132"," 10135"," 10169"," 10204", " 10266"," 10356"," 10392"," 10394"," 10678", " 10873"," 11406"," 11509"," 12151"," 12220", " 12331"," 12374"," 12514"," 12568"," 12579", " 12843"," 12892"," 12921"," 12982"," 12985", " 47406"," 47417"," 47423"," 47570"," 47585", " 47587"," 47590"," 47612"," 47616"," 47626", " 47629"," 47636"," 47640"," 47656"," 47663", " 47674"," 47678"," 47746"," 47755"," 47795", " 47800"," 47805"," 47815"," 47819"," 47822", " 47836"," 47848"," 47891"," 47893"," 47898", " 47909"," 47912"," 47945"," 94238"," 94288", " 94300"," 94346"," 94352"," 94653"," 94693", " 94907"," 94926"," 95207"," 95729"," 95759", " 95966"," 03018"," 03897"," 07145"," 14280", " 11480"," 10410"," 10440"," 10488"," 10832", " 10629"," 07182"," 10339"," 10605"," 10780", " 10950") then fail(); endif; !=============================================== ! Layer 700-400 hPa !=============================================== if ( 400 < PRESS <= 700 ) and STATID notin (" 01018"," 01042"," 01079"," 01104"," 01206", " 01247"," 01405"," 01438"," 01498"," 02032", " 02043"," 02092"," 02200"," 02262"," 02334", " 02430"," 02451"," 02570"," 02588"," 02600", " 02666"," 02775"," 02840"," 02870"," 02918", " 02925"," 02933"," 02941"," 02954"," 02975", " 02995"," 03019"," 03020"," 03159"," 03203", " 03253"," 03331"," 03375"," 03501"," 03591", " 03601"," 03675"," 03754"," 03771"," 03807", " 03813"," 03840"," 03842"," 03859"," 03897", " 03918"," 03962"," 03969"," 06234"," 06260", " 06348"," 06451"," 06610"," 06620"," 06632", " 07145"," 07182"," 07223"," 07336"," 07453", " 07626"," 07650"," 07658"," 08019"," 08081", " 08489"," 08550"," 10132"," 10135"," 10169", " 10204"," 10266"," 10339"," 10356"," 10392", " 10394"," 10410"," 10488"," 10629"," 10678", " 10873"," 11509"," 11718"," 12151"," 12220", " 12331"," 12374"," 12514"," 12544"," 12568", " 12579"," 12843"," 12892"," 12921"," 12982", " 12985"," 47406"," 47417"," 47423"," 47570", " 47585"," 47587"," 47590"," 47612"," 47616", " 47626"," 47629"," 47636"," 47640"," 47656", " 47663"," 47674"," 47678"," 47746"," 47755", " 47795"," 47800"," 47805"," 47815"," 47819", " 47822"," 47836"," 47848"," 47891"," 47893", " 47898"," 47909"," 47912"," 47945"," 71995", " 94238"," 94288"," 94300"," 94346"," 94352", " 94653"," 94693"," 94907"," 94926"," 95207", " 95729"," 95759"," 07629"," 11480"," 10832", " 10950"," 10440"," 10557"," 71847") then fail(); endif; !=============================================== ! Layer 400-300 hPa !=============================================== if ( 300< PRESS <= 400 ) and STATID notin (" 01042"," 01206"," 01247"," 01405", " 01438"," 01498"," 01499"," 02032"," 02043", " 02200"," 02262"," 02334"," 02430"," 02451", " 02570"," 02588"," 02600"," 02666"," 02775", " 02840"," 02870"," 02918"," 02925"," 02933", " 02941"," 02954"," 02975"," 03019"," 03020", " 03203"," 03501"," 03591"," 03675"," 03754", " 03807"," 03840"," 03842"," 03859"," 03962", " 06234"," 06260"," 06348"," 06451"," 06610", " 06620"," 06632"," 07145"," 07223"," 07336", " 07453"," 07626"," 07650"," 07658"," 08007", " 08072"," 08081"," 08179"," 08262"," 08386", " 08550"," 08553"," 10135"," 10266"," 10394", " 10440"," 10678"," 11480"," 12843"," 12921", " 12982"," 47417"," 47570"," 47585"," 47587", " 47590"," 47612"," 47616"," 47626"," 47629", " 47636"," 47640"," 47656"," 47663"," 47674", " 47678"," 47746"," 47755"," 47795"," 47800", " 47805"," 47819"," 47822"," 47836"," 47891", " 47893"," 47898"," 47909"," 47945"," 71994", " 94238"," 94288"," 94300"," 94346"," 94352", " 94653"," 94693"," 95207"," 95729"," 47406", " 47423") then fail(); endif; !=============================================== ! Layer above 300 hPa !=============================================== if ( PRESS <= 300 ) and STATID notin (" 01042"," 01206"," 01405"," 01499"," 02032", " 02043"," 02200"," 02262"," 02334"," 02430", " 02451"," 02570"," 02600"," 02666"," 02840", " 02870"," 02918"," 02925"," 02933"," 02941", " 02954"," 02975"," 03019"," 03020"," 03203", " 03501"," 03591"," 03675"," 03754"," 03807", " 03840"," 03842"," 03859"," 06234"," 06260", " 06348"," 06620"," 07145"," 07223"," 07336", " 07453"," 07626"," 07650"," 07658"," 08179", " 10135"," 10266"," 10394"," 10678"," 11480", " 12843"," 12921"," 12982"," 47570"," 47640", " 47891"," 47909"," 71994"," 94238"," 94346", " 94352"," 94653"," 95207"," 47406"," 47423") then fail(); endif; endif; return; endif; !########################################################## ! 2. AM_PROFILERS !########################################################## if ( CODTYP = am_profiler ) then if VARIAB in ( u, v ) then !==================================================== ! List of PROFILERS used lower than 700 hPa (none) !==================================================== if ( PRESS > 700 ) and STATID notin (" 70268") then fail(); endif; !==================================================== ! List of PROFILERS used between 400 and 700 hPa !==================================================== if ( 700 >= PRESS > 400 ) then ! 00/12 cycles if ( ( TIME >= 210000 or TIME < 030000 ) or ( 90000 <= TIME < 150000 ) ) and STATID notin (" 70268"," 71847"," 71873"," 71919"," 71991", " 71994"," 71995"," 71998"," 74533"," 94653") then fail(); endif; ! 06/18 cycles if ( ( 030000 <= TIME < 090000 ) or ( 150000 <= TIME < 210000 ) ) and STATID notin ( " 70268"," 71847"," 71873"," 71919"," 71991", " 71994"," 71995"," 71998"," 74533"," 94653") then fail(); endif; endif; !==================================================== ! List of PROFILERS used higher than 400hPa !==================================================== if ( PRESS <= 400 ) then if ( ( TIME >= 210000 or TIME < 030000 ) or ( 90000 <= TIME < 150000 ) ) and STATID notin (" 70268"," 71847"," 71919"," 71991"," 71994", " 71995"," 74533"," 74750") then fail(); endif; ! 06/18 cycles if( ( 030000 <= TIME < 090000 ) or ( 150000 <= TIME < 210000 ) ) and STATID notin (" 70268"," 71847"," 71919"," 71991"," 71994", " 71995"," 74533"," 74750") then fail(); endif; endif; endif; endif; !############################################### ! End lists of ALLOWED PROFILERS !############################################### return; endif; ! Do not add any rule here, because this part of the ! blacklist is never processed. Monthly rules must be put into the ! relevant if (OBSTYP = ... ) ... return; endif; construct above.