modules_vars.F90

Go to the documentation of this file.

 
 
module modv_vars
 
  integer, parameter :: nbytw = 4
 
  integer, parameter :: iordbe(nbytw) = (/1,2,3,4/)
 
  integer, parameter :: iordle(nbytw) = (/4,3,2,1/)
 
  integer, parameter :: nbitw = nbytw * 8
 
  logical :: im8b = .false.
 
  logical :: part = .false.
 
  integer :: iblock = 0
 
  real*8 :: bmiss = 10e10_8
 
  integer :: iprt = 0
 
  character*240 :: mtdir
 
  integer :: lmtd
 
  integer :: lun1 = 98
 
  integer :: lun2 = 99
 
  integer :: ifopbf = 0
 
  integer :: iac = 0
 
  integer :: lendat = 8
 
  character*4, parameter :: bmostr = 'BUFR'
 
  character*4, parameter :: bmcstr = '7777'
 
  character*6, parameter :: fxy_mintd = '300000'
 
  character*6, parameter :: fxy_minr = '101000'
 
  character*6, parameter :: fxy_sbyct = '063000'
 
  character*6, parameter :: fxy_fbit = '063255'
 
  character*6, parameter :: fxy_drf1 = '031000'
 
  character*6, parameter :: fxy_drf8 = '031001'
 
  character*6, parameter :: fxy_drf16 = '031002'
 
  character*6, parameter :: fxy_drp1 = '360004'
 
  character*6, parameter :: fxy_drp8 = '360002'
 
  character*6, parameter :: fxy_drp8s = '360003'
 
  character*6, parameter :: fxy_drp16 = '360001'
 
  character, parameter :: reps(10) =    (/      '"',       '(',      '{',       '[',      '<', &
                                                '"',       ')',      '}',       ']',      '>'/)
 
  character*3, parameter :: typs(10) =  (/    'REP',     'DRP',    'DRP',     'DRS',    'DRB', &
                                              'SEQ',     'RPC',    'RPC',     'RPS',    'SEQ'/)
 
  character*6, parameter :: adsn(10) =  (/ fxy_minr, fxy_drp16, fxy_drp8, fxy_drp8s, fxy_drp1, &
                                           '101255', fxy_drf16, fxy_drf8, fxy_drf8 , fxy_drf1/)
 
  integer :: idnr(10)
 
  integer, parameter :: lens(5) =       (/        0,        16,        8,         8,        1/)
 
  integer :: maxcd = 250
 
  integer :: maxjl = 96000
 
  integer :: maxmem = 50000000
 
  integer :: maxmsg = 200000
 
  integer :: maxnc = 600
 
  integer :: maxss = 120000
 
  integer :: maxtba = 150
 
  integer :: maxtbb = 500
 
  integer :: maxtbd = 500
 
  integer :: mxbtm = 5
 
  integer :: mxbtmse = 500
 
  integer :: mxcdv = 3000
 
  integer :: mxcnem = 450
 
  integer :: mxcsb = 4000
 
  integer :: mxdxts = 200
 
  integer :: mxh4wlc = 10
 
  integer :: mxlcc = 32
 
  integer :: mxmsgl = 600000
 
  integer :: mxmsgld4
 
  integer :: mxmtbb = 4000
 
  integer :: mxmtbd = 1000
 
  integer :: mxmtbf = 25000
 
  integer :: mxnaf = 4
 
  integer :: mxnrv = 15
 
  integer :: mxrst = 50
 
  integer :: mxs01v = 10
 
  integer, parameter :: mxs = 1000
 
  integer, parameter :: maxrcr = 100
 
  integer :: mxtamc = 15
 
  integer :: mxtco = 30
 
  integer :: nfiles = 32
 
  integer :: mtv = 36
 
  integer :: idxv = 1
 
  integer, parameter :: nby0 = 8
 
  integer, parameter :: nby1 = 18
 
  integer, parameter :: nby2 = 0
 
  integer, parameter :: nby3 = 20
 
  integer, parameter :: nby5 = 4
 
  integer :: lmt = -99
 
  integer :: lmtv
 
  integer :: logce
 
  integer :: lmtvl
 
end module modv_vars