wrfv2_fire/var/external/bufr/da_bufr.f90

   1 module da_bufr
   2 !
   3 ! Tailored for WRFDA from NCEP BUFR LIB
   4 ! http://www.nco.ncep.noaa.gov/sib/decoders/BUFRLIB/
   5 !
   6
   7 #ifdef BUFR
   8
   9    integer :: MUNIT, MLAST
  10    integer, allocatable, dimension(:) :: MSGP
  11    integer, allocatable, dimension(:) :: MSGS
  12
  13    integer, allocatable, dimension(:,:) :: MATX_S
  14    integer, allocatable, dimension(:) :: KMIN_S
  15    integer, allocatable, dimension(:) :: KMAX_S
  16    logical, allocatable, dimension(:) :: KMIS_S
  17    integer, allocatable, dimension(:) :: KBIT_S
  18    integer, allocatable, dimension(:) :: ITYP_S
  19    integer, allocatable, dimension(:) :: IWID_S
  20    character*8, allocatable, dimension(:,:) :: CATX_S
  21    character*8, allocatable, dimension(:) :: CSTR_S
  22    logical :: FLUSH_S, WRIT1_S
  23    integer :: NROW_S, NCOL_S, LUNC_S, KBYT_S
  24
  25    integer :: MAXTAB, NTAB
  26    character*10, allocatable, dimension(:) :: TAG
  27    character*3, allocatable, dimension(:) :: TYP
  28    integer, allocatable, dimension(:) :: KNT, JUMP, LINK, JMPB, IBT, IRF, ISC, ITP, VALI, KNTI, JSEQ
  29    integer, allocatable, dimension(:,:) :: ISEQ
  30
  31    integer, allocatable, dimension(:) :: NVAL(:)
  32    integer, allocatable, dimension(:,:) :: INV(:,:)
  33    real*8 , allocatable, dimension(:,:) :: VAL(:,:)
  34
  35    integer, allocatable, dimension(:,:) :: ITMP
  36    real*8 , allocatable, dimension(:,:) :: VTMP
  37
  38 contains
  39
  40 #include "addate.inc"
  41 #include "bfrini.inc"
  42 #include "capit.inc"
  43 #include "chekstab.inc"
  44 #include "chrtrn.inc"
  45 #include "chrtrna.inc"
  46 #include "cktaba.inc"
  47 #include "closbf.inc"
  48 #include "closmg.inc"
  49 #include "cmpmsg.inc"
  50 #include "cmsgini.inc"
  51 #include "cnved4.inc"
  52 #include "conwin.inc"
  53 #include "copybf.inc"
  54 #include "copymg.inc"
  55 #include "copysb.inc"
  56 #include "cpbfdx.inc"
  57 #include "cpymem.inc"
  58 #include "cpyupd.inc"
  59 #include "datebf.inc"
  60 #include "datelen.inc"
  61 #include "digit.inc"
  62 #include "drfini.inc"
  63 #include "drstpl.inc"
  64 #include "dumpbf.inc"
  65 #include "dxdump.inc"
  66 #include "dxinit.inc"
  67 #include "dxmini.inc"
  68 #include "elemdx.inc"
  69 #include "getabdb.inc"
  70 #include "getlens.inc"
  71 #include "getntbe.inc"
  72 #include "gets1loc.inc"
  73 #include "gettbh.inc"
  74 #include "getwin.inc"
  75 #include "i4dy.inc"
  76 #include "ibfms.inc"
  77 #include "ichkstr.inc"
  78 #include "icopysb.inc"
  79 #include "idn30.inc"
  80 #include "ifbget.inc"
  81 #include "igetdate.inc"
  82 #include "igetfxy.inc"
  83 #include "igetntbl.inc"
  84 #include "inctab.inc"
  85 #include "invcon.inc"
  86 #include "invmrg.inc"
  87 #include "invtag.inc"
  88 #include "invwin.inc"
  89 #include "ipkm.inc"
  90 #include "ireadft.inc"
  91 #include "ireadibm.inc"
  92 #include "ireadmg.inc"
  93 #include "ireadmm.inc"
  94 #include "ireadns.inc"
  95 #include "ireadsb.inc"
  96 #include "iupb.inc"
  97 #include "iupbs01.inc"
  98 #include "iupbs1.inc"
  99 #include "iupvs01.inc"
 100 #include "iupvs1.inc"
 101 #include "jstchr.inc"
 102 #include "jstnum.inc"
 103 #include "ljust.inc"
 104 #include "lmsg.inc"
 105 #include "lstjpb.inc"
 106 #include "lstrpc.inc"
 107 #include "lstrps.inc"
 108 #include "makestab.inc"
 109 #include "maxout.inc"
 110 #include "mesgbc.inc"
 111 #include "mesgbf.inc"
 112 #include "minimg.inc"
 113 #include "mova2i.inc"
 114 #include "mrginv.inc"
 115 #include "msgini.inc"
 116 #include "msgupd.inc"
 117 #include "msgwrt.inc"
 118 #include "mvb.inc"
 119 #include "nemock.inc"
 120 #include "nemtab.inc"
 121 #include "nemtba.inc"
 122 #include "nemtbax.inc"
 123 #include "nemtbd.inc"
 124 #include "nenuaa.inc"
 125 #include "nenubd.inc"
 126 #include "nevn.inc"
 127 #include "newwin.inc"
 128 #include "nmbyt.inc"
 129 #include "nmsub.inc"
 130 #include "nmwrd.inc"
 131 #include "numbck.inc"
 132 #include "numtab.inc"
 133 #include "nvnwin.inc"
 134 #include "nwords.inc"
 135 #include "nxtwin.inc"
 136 #include "openbf.inc"
 137 #include "openbt.inc"
 138 #include "openmb.inc"
 139 #include "openmg.inc"
 140 #include "ovrbs1.inc"
 141 #include "pad.inc"
 142 #include "padmsg.inc"
 143 #include "parseq.inc"
 144 #include "parstr.inc"
 145 #include "parusr.inc"
 146 #include "parutg.inc"
 147 #include "pkb.inc"
 148 #include "pkbs1.inc"
 149 #include "pkc.inc"
 150 #include "pkftbv.inc"
 151 #include "pktdd.inc"
 152 #include "pkvs01.inc"
 153 #include "pkvs1.inc"
 154 #include "posapn.inc"
 155 #include "posapx.inc"
 156 #include "rcstpl.inc"
 157 #include "rdbfdx.inc"
 158 #include "rdcmps.inc"
 159 #include "rdmemm.inc"
 160 #include "rdmems.inc"
 161 #include "rdmgsb.inc"
 162 #include "rdmsgb.inc"
 163 #include "rdmsgw.inc"
 164 #include "rdmtbb.inc"
 165 #include "rdmtbd.inc"
 166 #include "rdtree.inc"
 167 #include "rdusdx.inc"
 168 #include "readdx.inc"
 169 #include "readerme.inc"
 170 #include "readft.inc"
 171 #include "readibm.inc"
 172 #include "readlc.inc"
 173 #include "readmg.inc"
 174 #include "readmm.inc"
 175 #include "readns.inc"
 176 #include "readsb.inc"
 177 #include "rewnbf.inc"
 178 #include "rsvfvm.inc"
 179 #include "seqsdx.inc"
 180 #include "sntbbe.inc"
 181 #include "sntbde.inc"
 182 #include "status.inc"
 183 #include "stdmsg.inc"
 184 #include "stndrd.inc"
 185 #include "strcln.inc"
 186 #include "string.inc"
 187 #include "strnum.inc"
 188 #include "strsuc.inc"
 189 #include "subupd.inc"
 190 #include "tabent.inc"
 191 #include "tabsub.inc"
 192 #include "trybump.inc"
 193 #include "ufbcnt.inc"
 194 #include "ufbcpy.inc"
 195 #include "ufbcup.inc"
 196 #include "ufbdmp.inc"
 197 #include "ufbevn.inc"
 198 #include "ufbget.inc"
 199 #include "ufbin3.inc"
 200 #include "ufbint.inc"
 201 #include "ufbinx.inc"
 202 #include "ufbmem.inc"
 203 #include "ufbmms.inc"
 204 #include "ufbmns.inc"
 205 #include "ufbovr.inc"
 206 #include "ufbpos.inc"
 207 #include "ufbqcd.inc"
 208 #include "ufbqcp.inc"
 209 #include "ufbrep.inc"
 210 #include "ufbrms.inc"
 211 #include "ufbrp.inc"
 212 #include "ufbrw.inc"
 213 #include "ufbseq.inc"
 214 #include "ufbsp.inc"
 215 #include "ufbstp.inc"
 216 #include "ufbtab.inc"
 217 #include "ufbtam.inc"
 218 #include "ufdump.inc"
 219 #include "upb.inc"
 220 #include "upbb.inc"
 221 #include "upc.inc"
 222 #include "upds3.inc"
 223 #include "upftbv.inc"
 224 #include "usrtpl.inc"
 225 #include "wrcmps.inc"
 226 #include "wrdlen.inc"
 227 #include "writcp.inc"
 228 #include "writdx.inc"
 229 #include "writlc.inc"
 230 #include "writsa.inc"
 231 #include "writsb.inc"
 232 #include "wrtree.inc"
 233 #include "wtstat.inc"
 234
 235 #endif
 236
 237 end module da_bufr