source: lmdz_wrf/WRFV3/external/io_grib2/g2lib/params.F @ 1

      module params
!$$$  SUBPROGRAM DOCUMENTATION BLOCK
!                .      .    .                                       .
! MODULE:    params
!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
!
! ABSTRACT: This Fortran Module contains info on all the available 
!           GRIB Parameters.
!
! PROGRAM HISTORY LOG:
! 2000-05-11  Gilbert
! 2003-08-07  Gilbert  -  Added more parameters
! 2003-09-26  Gilbert  -  Added more parameters
!
! USAGE:    use params
!
! ATTRIBUTES:
!   LANGUAGE: Fortran 90
!   MACHINE:  IBM SP
!
!$$$

      integer,parameter :: MAXPARAM=212

      type gribparam
          integer :: g1tblver
          integer :: grib1val
          integer :: grib2dsc
          integer :: grib2cat
          integer :: grib2num
          character(len=8) :: abbrev
      end type gribparam

      type(gribparam),dimension(MAXPARAM) :: paramlist

      data paramlist(1)%g1tblver /2/ 
      data paramlist(1)%grib1val /1/ 
      data paramlist(1)%grib2dsc /0/ 
      data paramlist(1)%grib2cat /3/ 
      data paramlist(1)%grib2num /0/ 
      data paramlist(1)%abbrev   /'PRES    '/ 
      data paramlist(2)%g1tblver /2/ 
      data paramlist(2)%grib1val /2/ 
      data paramlist(2)%grib2dsc /0/ 
      data paramlist(2)%grib2cat /3/ 
      data paramlist(2)%grib2num /1/ 
      data paramlist(2)%abbrev   /'PRMSL   '/ 
      data paramlist(3)%g1tblver /2/ 
      data paramlist(3)%grib1val /3/ 
      data paramlist(3)%grib2dsc /0/ 
      data paramlist(3)%grib2cat /3/ 
      data paramlist(3)%grib2num /2/ 
      data paramlist(3)%abbrev   /'PTEND   '/ 
      data paramlist(4)%g1tblver /2/ 
      data paramlist(4)%grib1val /4/ 
      data paramlist(4)%grib2dsc /0/ 
      data paramlist(4)%grib2cat /2/ 
      data paramlist(4)%grib2num /14/ 
      data paramlist(4)%abbrev   /'PVORT   '/ 
      data paramlist(5)%g1tblver /2/ 
      data paramlist(5)%grib1val /5/ 
      data paramlist(5)%grib2dsc /0/ 
      data paramlist(5)%grib2cat /3/ 
      data paramlist(5)%grib2num /3/ 
      data paramlist(5)%abbrev   /'ICAHT   '/ 
      data paramlist(6)%g1tblver /2/ 
      data paramlist(6)%grib1val /6/ 
      data paramlist(6)%grib2dsc /0/ 
      data paramlist(6)%grib2cat /3/ 
      data paramlist(6)%grib2num /4/ 
      data paramlist(6)%abbrev   /'GP      '/ 
      data paramlist(7)%g1tblver /2/ 
      data paramlist(7)%grib1val /7/ 
      data paramlist(7)%grib2dsc /0/ 
      data paramlist(7)%grib2cat /3/ 
      data paramlist(7)%grib2num /5/ 
      data paramlist(7)%abbrev   /'HGT     '/ 
      data paramlist(8)%g1tblver /2/ 
      data paramlist(8)%grib1val /8/ 
      data paramlist(8)%grib2dsc /0/ 
      data paramlist(8)%grib2cat /3/ 
      data paramlist(8)%grib2num /6/ 
      data paramlist(8)%abbrev   /'DIST    '/ 
      data paramlist(9)%g1tblver /2/ 
      data paramlist(9)%grib1val /9/ 
      data paramlist(9)%grib2dsc /0/ 
      data paramlist(9)%grib2cat /3/ 
      data paramlist(9)%grib2num /7/ 
      data paramlist(9)%abbrev   /'HSTDV   '/ 
      data paramlist(10)%g1tblver /2/ 
      data paramlist(10)%grib1val /10/ 
      data paramlist(10)%grib2dsc /0/ 
      data paramlist(10)%grib2cat /14/ 
      data paramlist(10)%grib2num /0/ 
      data paramlist(10)%abbrev   /'TOZNE   '/ 
      data paramlist(11)%g1tblver /2/ 
      data paramlist(11)%grib1val /11/ 
      data paramlist(11)%grib2dsc /0/ 
      data paramlist(11)%grib2cat /0/ 
      data paramlist(11)%grib2num /0/ 
      data paramlist(11)%abbrev   /'TMP     '/ 
      data paramlist(12)%g1tblver /2/ 
      data paramlist(12)%grib1val /12/ 
      data paramlist(12)%grib2dsc /0/ 
      data paramlist(12)%grib2cat /0/ 
      data paramlist(12)%grib2num /1/ 
      data paramlist(12)%abbrev   /'VTMP    '/ 
      data paramlist(13)%g1tblver /2/ 
      data paramlist(13)%grib1val /13/ 
      data paramlist(13)%grib2dsc /0/ 
      data paramlist(13)%grib2cat /0/ 
      data paramlist(13)%grib2num /2/ 
      data paramlist(13)%abbrev   /'POT     '/ 
      data paramlist(14)%g1tblver /2/ 
      data paramlist(14)%grib1val /14/ 
      data paramlist(14)%grib2dsc /0/ 
      data paramlist(14)%grib2cat /0/ 
      data paramlist(14)%grib2num /3/ 
      data paramlist(14)%abbrev   /'EPOT    '/ 
      data paramlist(15)%g1tblver /2/ 
      data paramlist(15)%grib1val /15/ 
      data paramlist(15)%grib2dsc /0/ 
      data paramlist(15)%grib2cat /0/ 
      data paramlist(15)%grib2num /4/ 
      data paramlist(15)%abbrev   /'T MAX   '/ 
      data paramlist(16)%g1tblver /2/ 
      data paramlist(16)%grib1val /16/ 
      data paramlist(16)%grib2dsc /0/ 
      data paramlist(16)%grib2cat /0/ 
      data paramlist(16)%grib2num /5/ 
      data paramlist(16)%abbrev   /'T MIN   '/ 
      data paramlist(17)%g1tblver /2/ 
      data paramlist(17)%grib1val /17/ 
      data paramlist(17)%grib2dsc /0/ 
      data paramlist(17)%grib2cat /0/ 
      data paramlist(17)%grib2num /6/ 
      data paramlist(17)%abbrev   /'DPT     '/ 
      data paramlist(18)%g1tblver /2/ 
      data paramlist(18)%grib1val /18/ 
      data paramlist(18)%grib2dsc /0/ 
      data paramlist(18)%grib2cat /0/ 
      data paramlist(18)%grib2num /7/ 
      data paramlist(18)%abbrev   /'DEPR    '/ 
      data paramlist(19)%g1tblver /2/ 
      data paramlist(19)%grib1val /19/ 
      data paramlist(19)%grib2dsc /0/ 
      data paramlist(19)%grib2cat /0/ 
      data paramlist(19)%grib2num /8/ 
      data paramlist(19)%abbrev   /'LAPR    '/ 
      data paramlist(20)%g1tblver /2/ 
      data paramlist(20)%grib1val /20/ 
      data paramlist(20)%grib2dsc /0/ 
      data paramlist(20)%grib2cat /19/ 
      data paramlist(20)%grib2num /0/ 
      data paramlist(20)%abbrev   /'VIS     '/ 
      data paramlist(21)%g1tblver /2/ 
      data paramlist(21)%grib1val /21/ 
      data paramlist(21)%grib2dsc /0/ 
      data paramlist(21)%grib2cat /15/ 
      data paramlist(21)%grib2num /6/ 
      data paramlist(21)%abbrev   /'RDSP1   '/ 
      data paramlist(22)%g1tblver /2/ 
      data paramlist(22)%grib1val /22/ 
      data paramlist(22)%grib2dsc /0/ 
      data paramlist(22)%grib2cat /15/ 
      data paramlist(22)%grib2num /7/ 
      data paramlist(22)%abbrev   /'RDSP2   '/ 
      data paramlist(23)%g1tblver /2/ 
      data paramlist(23)%grib1val /23/ 
      data paramlist(23)%grib2dsc /0/ 
      data paramlist(23)%grib2cat /15/ 
      data paramlist(23)%grib2num /8/ 
      data paramlist(23)%abbrev   /'RDSP3   '/ 
      data paramlist(24)%g1tblver /2/ 
      data paramlist(24)%grib1val /24/ 
      data paramlist(24)%grib2dsc /0/ 
      data paramlist(24)%grib2cat /7/ 
      data paramlist(24)%grib2num /0/ 
      data paramlist(24)%abbrev   /'PLI     '/ 
      data paramlist(25)%g1tblver /2/ 
      data paramlist(25)%grib1val /25/ 
      data paramlist(25)%grib2dsc /0/ 
      data paramlist(25)%grib2cat /0/ 
      data paramlist(25)%grib2num /9/ 
      data paramlist(25)%abbrev   /'TMP A   '/ 
      data paramlist(26)%g1tblver /2/ 
      data paramlist(26)%grib1val /26/ 
      data paramlist(26)%grib2dsc /0/ 
      data paramlist(26)%grib2cat /3/ 
      data paramlist(26)%grib2num /8/ 
      data paramlist(26)%abbrev   /'PRESA   '/ 
      data paramlist(27)%g1tblver /2/ 
      data paramlist(27)%grib1val /27/ 
      data paramlist(27)%grib2dsc /0/ 
      data paramlist(27)%grib2cat /3/ 
      data paramlist(27)%grib2num /9/ 
      data paramlist(27)%abbrev   /'GP A    '/ 
      data paramlist(28)%g1tblver /2/ 
      data paramlist(28)%grib1val /28/ 
      data paramlist(28)%grib2dsc /10/ 
      data paramlist(28)%grib2cat /0/ 
      data paramlist(28)%grib2num /0/ 
      data paramlist(28)%abbrev   /'WVSP1   '/ 
      data paramlist(29)%g1tblver /2/ 
      data paramlist(29)%grib1val /29/ 
      data paramlist(29)%grib2dsc /10/ 
      data paramlist(29)%grib2cat /0/ 
      data paramlist(29)%grib2num /1/ 
      data paramlist(29)%abbrev   /'WVSP2   '/ 
      data paramlist(30)%g1tblver /2/ 
      data paramlist(30)%grib1val /30/ 
      data paramlist(30)%grib2dsc /10/ 
      data paramlist(30)%grib2cat /0/ 
      data paramlist(30)%grib2num /2/ 
      data paramlist(30)%abbrev   /'WVSP3   '/ 
      data paramlist(31)%g1tblver /2/ 
      data paramlist(31)%grib1val /31/ 
      data paramlist(31)%grib2dsc /0/ 
      data paramlist(31)%grib2cat /2/ 
      data paramlist(31)%grib2num /0/ 
      data paramlist(31)%abbrev   /'WDIR    '/ 
      data paramlist(32)%g1tblver /2/ 
      data paramlist(32)%grib1val /32/ 
      data paramlist(32)%grib2dsc /0/ 
      data paramlist(32)%grib2cat /2/ 
      data paramlist(32)%grib2num /1/ 
      data paramlist(32)%abbrev   /'WIND    '/ 
      data paramlist(33)%g1tblver /2/ 
      data paramlist(33)%grib1val /33/ 
      data paramlist(33)%grib2dsc /0/ 
      data paramlist(33)%grib2cat /2/ 
      data paramlist(33)%grib2num /2/ 
      data paramlist(33)%abbrev   /'U GRD   '/ 
      data paramlist(34)%g1tblver /2/ 
      data paramlist(34)%grib1val /34/ 
      data paramlist(34)%grib2dsc /0/ 
      data paramlist(34)%grib2cat /2/ 
      data paramlist(34)%grib2num /3/ 
      data paramlist(34)%abbrev   /'V GRD   '/ 
      data paramlist(35)%g1tblver /2/ 
      data paramlist(35)%grib1val /35/ 
      data paramlist(35)%grib2dsc /0/ 
      data paramlist(35)%grib2cat /2/ 
      data paramlist(35)%grib2num /4/ 
      data paramlist(35)%abbrev   /'STRM    '/ 
      data paramlist(36)%g1tblver /2/ 
      data paramlist(36)%grib1val /36/ 
      data paramlist(36)%grib2dsc /0/ 
      data paramlist(36)%grib2cat /2/ 
      data paramlist(36)%grib2num /5/ 
      data paramlist(36)%abbrev   /'V POT   '/ 
      data paramlist(37)%g1tblver /2/ 
      data paramlist(37)%grib1val /37/ 
      data paramlist(37)%grib2dsc /0/ 
      data paramlist(37)%grib2cat /2/ 
      data paramlist(37)%grib2num /6/ 
      data paramlist(37)%abbrev   /'MNTSF   '/ 
      data paramlist(38)%g1tblver /2/ 
      data paramlist(38)%grib1val /38/ 
      data paramlist(38)%grib2dsc /0/ 
      data paramlist(38)%grib2cat /2/ 
      data paramlist(38)%grib2num /7/ 
      data paramlist(38)%abbrev   /'SGCVV   '/ 
      data paramlist(39)%g1tblver /2/ 
      data paramlist(39)%grib1val /39/ 
      data paramlist(39)%grib2dsc /0/ 
      data paramlist(39)%grib2cat /2/ 
      data paramlist(39)%grib2num /8/ 
      data paramlist(39)%abbrev   /'V VEL   '/ 
      data paramlist(40)%g1tblver /2/ 
      data paramlist(40)%grib1val /40/ 
      data paramlist(40)%grib2dsc /0/ 
      data paramlist(40)%grib2cat /2/ 
      data paramlist(40)%grib2num /9/ 
      data paramlist(40)%abbrev   /'DZDT    '/ 
      data paramlist(41)%g1tblver /2/ 
      data paramlist(41)%grib1val /41/ 
      data paramlist(41)%grib2dsc /0/ 
      data paramlist(41)%grib2cat /2/ 
      data paramlist(41)%grib2num /10/ 
      data paramlist(41)%abbrev   /'ABS V   '/ 
      data paramlist(42)%g1tblver /2/ 
      data paramlist(42)%grib1val /42/ 
      data paramlist(42)%grib2dsc /0/ 
      data paramlist(42)%grib2cat /2/ 
      data paramlist(42)%grib2num /11/ 
      data paramlist(42)%abbrev   /'ABS D   '/ 
      data paramlist(43)%g1tblver /2/ 
      data paramlist(43)%grib1val /43/ 
      data paramlist(43)%grib2dsc /0/ 
      data paramlist(43)%grib2cat /2/ 
      data paramlist(43)%grib2num /12/ 
      data paramlist(43)%abbrev   /'REL V   '/ 
      data paramlist(44)%g1tblver /2/ 
      data paramlist(44)%grib1val /44/ 
      data paramlist(44)%grib2dsc /0/ 
      data paramlist(44)%grib2cat /2/ 
      data paramlist(44)%grib2num /13/ 
      data paramlist(44)%abbrev   /'REL D   '/ 
      data paramlist(45)%g1tblver /2/ 
      data paramlist(45)%grib1val /45/ 
      data paramlist(45)%grib2dsc /0/ 
      data paramlist(45)%grib2cat /2/ 
      data paramlist(45)%grib2num /15/ 
      data paramlist(45)%abbrev   /'VUCSH   '/ 
      data paramlist(46)%g1tblver /2/ 
      data paramlist(46)%grib1val /46/ 
      data paramlist(46)%grib2dsc /0/ 
      data paramlist(46)%grib2cat /2/ 
      data paramlist(46)%grib2num /16/ 
      data paramlist(46)%abbrev   /'VVCSH   '/ 
      data paramlist(47)%g1tblver /2/ 
      data paramlist(47)%grib1val /47/ 
      data paramlist(47)%grib2dsc /10/ 
      data paramlist(47)%grib2cat /1/ 
      data paramlist(47)%grib2num /0/ 
      data paramlist(47)%abbrev   /'DIR C   '/ 
      data paramlist(48)%g1tblver /2/ 
      data paramlist(48)%grib1val /48/ 
      data paramlist(48)%grib2dsc /10/ 
      data paramlist(48)%grib2cat /1/ 
      data paramlist(48)%grib2num /1/ 
      data paramlist(48)%abbrev   /'SP C    '/ 
      data paramlist(49)%g1tblver /2/ 
      data paramlist(49)%grib1val /49/ 
      data paramlist(49)%grib2dsc /10/ 
      data paramlist(49)%grib2cat /1/ 
      data paramlist(49)%grib2num /2/ 
      data paramlist(49)%abbrev   /'UOGRD   '/ 
      data paramlist(50)%g1tblver /2/ 
      data paramlist(50)%grib1val /50/ 
      data paramlist(50)%grib2dsc /10/ 
      data paramlist(50)%grib2cat /1/ 
      data paramlist(50)%grib2num /3/ 
      data paramlist(50)%abbrev   /'VOGRD   '/ 
      data paramlist(51)%g1tblver /2/ 
      data paramlist(51)%grib1val /51/ 
      data paramlist(51)%grib2dsc /0/ 
      data paramlist(51)%grib2cat /1/ 
      data paramlist(51)%grib2num /0/ 
      data paramlist(51)%abbrev   /'SPF H   '/ 
      data paramlist(52)%g1tblver /2/ 
      data paramlist(52)%grib1val /52/ 
      data paramlist(52)%grib2dsc /0/ 
      data paramlist(52)%grib2cat /1/ 
      data paramlist(52)%grib2num /1/ 
      data paramlist(52)%abbrev   /'R H     '/ 
      data paramlist(53)%g1tblver /2/ 
      data paramlist(53)%grib1val /53/ 
      data paramlist(53)%grib2dsc /0/ 
      data paramlist(53)%grib2cat /1/ 
      data paramlist(53)%grib2num /2/ 
      data paramlist(53)%abbrev   /'MIXR    '/ 
      data paramlist(54)%g1tblver /2/ 
      data paramlist(54)%grib1val /54/ 
      data paramlist(54)%grib2dsc /0/ 
      data paramlist(54)%grib2cat /1/ 
      data paramlist(54)%grib2num /3/ 
      data paramlist(54)%abbrev   /'P WAT   '/ 
      data paramlist(55)%g1tblver /2/ 
      data paramlist(55)%grib1val /55/ 
      data paramlist(55)%grib2dsc /0/ 
      data paramlist(55)%grib2cat /1/ 
      data paramlist(55)%grib2num /4/ 
      data paramlist(55)%abbrev   /'VAPP    '/ 
      data paramlist(56)%g1tblver /2/ 
      data paramlist(56)%grib1val /56/ 
      data paramlist(56)%grib2dsc /0/ 
      data paramlist(56)%grib2cat /1/ 
      data paramlist(56)%grib2num /5/ 
      data paramlist(56)%abbrev   /'SAT D   '/ 
      data paramlist(57)%g1tblver /2/ 
      data paramlist(57)%grib1val /57/ 
      data paramlist(57)%grib2dsc /0/ 
      data paramlist(57)%grib2cat /1/ 
      data paramlist(57)%grib2num /6/ 
      data paramlist(57)%abbrev   /'EVP     '/ 
      data paramlist(58)%g1tblver /2/ 
      data paramlist(58)%grib1val /58/ 
      data paramlist(58)%grib2dsc /0/ 
      data paramlist(58)%grib2cat /6/ 
      data paramlist(58)%grib2num /0/ 
      data paramlist(58)%abbrev   /'C ICE   '/ 
      data paramlist(59)%g1tblver /2/ 
      data paramlist(59)%grib1val /59/ 
      data paramlist(59)%grib2dsc /0/ 
      data paramlist(59)%grib2cat /1/ 
      data paramlist(59)%grib2num /7/ 
      data paramlist(59)%abbrev   /'PRATE   '/ 
      data paramlist(60)%g1tblver /2/ 
      data paramlist(60)%grib1val /60/ 
      data paramlist(60)%grib2dsc /0/ 
      data paramlist(60)%grib2cat /19/ 
      data paramlist(60)%grib2num /2/ 
      data paramlist(60)%abbrev   /'TSTM    '/ 
      data paramlist(61)%g1tblver /2/ 
      data paramlist(61)%grib1val /61/ 
      data paramlist(61)%grib2dsc /0/ 
      data paramlist(61)%grib2cat /1/ 
      data paramlist(61)%grib2num /8/ 
      data paramlist(61)%abbrev   /'A PCP   '/ 
      data paramlist(62)%g1tblver /2/ 
      data paramlist(62)%grib1val /62/ 
      data paramlist(62)%grib2dsc /0/ 
      data paramlist(62)%grib2cat /1/ 
      data paramlist(62)%grib2num /9/ 
      data paramlist(62)%abbrev   /'NCPCP   '/ 
      data paramlist(63)%g1tblver /2/ 
      data paramlist(63)%grib1val /63/ 
      data paramlist(63)%grib2dsc /0/ 
      data paramlist(63)%grib2cat /1/ 
      data paramlist(63)%grib2num /10/ 
      data paramlist(63)%abbrev   /'ACPCP   '/ 
      data paramlist(64)%g1tblver /2/ 
      data paramlist(64)%grib1val /64/ 
      data paramlist(64)%grib2dsc /0/ 
      data paramlist(64)%grib2cat /1/ 
      data paramlist(64)%grib2num /12/ 
      data paramlist(64)%abbrev   /'SRWEQ   '/ 
      data paramlist(65)%g1tblver /2/ 
      data paramlist(65)%grib1val /65/ 
      data paramlist(65)%grib2dsc /0/ 
      data paramlist(65)%grib2cat /1/ 
      data paramlist(65)%grib2num /13/ 
      data paramlist(65)%abbrev   /'WEASD   '/ 
      data paramlist(66)%g1tblver /2/ 
      data paramlist(66)%grib1val /66/ 
      data paramlist(66)%grib2dsc /0/ 
      data paramlist(66)%grib2cat /1/ 
      data paramlist(66)%grib2num /11/ 
      data paramlist(66)%abbrev   /'SNO D   '/ 
      data paramlist(67)%g1tblver /2/ 
      data paramlist(67)%grib1val /67/ 
      data paramlist(67)%grib2dsc /0/ 
      data paramlist(67)%grib2cat /19/ 
      data paramlist(67)%grib2num /3/ 
      data paramlist(67)%abbrev   /'MIXHT   '/ 
      data paramlist(68)%g1tblver /2/ 
      data paramlist(68)%grib1val /68/ 
      data paramlist(68)%grib2dsc /10/ 
      data paramlist(68)%grib2cat /5/ 
      data paramlist(68)%grib2num /2/ 
      data paramlist(68)%abbrev   /'TTHDP   '/ 
      data paramlist(69)%g1tblver /2/ 
      data paramlist(69)%grib1val /69/ 
      data paramlist(69)%grib2dsc /10/ 
      data paramlist(69)%grib2cat /5/ 
      data paramlist(69)%grib2num /0/ 
      data paramlist(69)%abbrev   /'MTHD    '/ 
      data paramlist(70)%g1tblver /2/ 
      data paramlist(70)%grib1val /70/ 
      data paramlist(70)%grib2dsc /10/ 
      data paramlist(70)%grib2cat /5/ 
      data paramlist(70)%grib2num /1/ 
      data paramlist(70)%abbrev   /'MTH A   '/ 
      data paramlist(71)%g1tblver /2/ 
      data paramlist(71)%grib1val /71/ 
      data paramlist(71)%grib2dsc /0/ 
      data paramlist(71)%grib2cat /6/ 
      data paramlist(71)%grib2num /1/ 
      data paramlist(71)%abbrev   /'T CDC   '/ 
      data paramlist(72)%g1tblver /2/ 
      data paramlist(72)%grib1val /72/ 
      data paramlist(72)%grib2dsc /0/ 
      data paramlist(72)%grib2cat /6/ 
      data paramlist(72)%grib2num /2/ 
      data paramlist(72)%abbrev   /'CDCON   '/ 
      data paramlist(73)%g1tblver /2/ 
      data paramlist(73)%grib1val /73/ 
      data paramlist(73)%grib2dsc /0/ 
      data paramlist(73)%grib2cat /6/ 
      data paramlist(73)%grib2num /3/ 
      data paramlist(73)%abbrev   /'L CDC   '/ 
      data paramlist(74)%g1tblver /2/ 
      data paramlist(74)%grib1val /74/ 
      data paramlist(74)%grib2dsc /0/ 
      data paramlist(74)%grib2cat /6/ 
      data paramlist(74)%grib2num /4/ 
      data paramlist(74)%abbrev   /'M CDC   '/ 
      data paramlist(75)%g1tblver /2/ 
      data paramlist(75)%grib1val /75/ 
      data paramlist(75)%grib2dsc /0/ 
      data paramlist(75)%grib2cat /6/ 
      data paramlist(75)%grib2num /5/ 
      data paramlist(75)%abbrev   /'H CDC   '/ 
      data paramlist(76)%g1tblver /2/ 
      data paramlist(76)%grib1val /76/ 
      data paramlist(76)%grib2dsc /0/ 
      data paramlist(76)%grib2cat /6/ 
      data paramlist(76)%grib2num /6/ 
      data paramlist(76)%abbrev   /'C WAT   '/ 
      data paramlist(77)%g1tblver /2/ 
      data paramlist(77)%grib1val /77/ 
      data paramlist(77)%grib2dsc /0/ 
      data paramlist(77)%grib2cat /7/ 
      data paramlist(77)%grib2num /1/ 
      data paramlist(77)%abbrev   /'BLI     '/ 
      data paramlist(78)%g1tblver /2/ 
      data paramlist(78)%grib1val /78/ 
      data paramlist(78)%grib2dsc /0/ 
      data paramlist(78)%grib2cat /1/ 
      data paramlist(78)%grib2num /14/ 
      data paramlist(78)%abbrev   /'SNO C   '/ 
      data paramlist(79)%g1tblver /2/ 
      data paramlist(79)%grib1val /79/ 
      data paramlist(79)%grib2dsc /0/ 
      data paramlist(79)%grib2cat /1/ 
      data paramlist(79)%grib2num /15/ 
      data paramlist(79)%abbrev   /'SNO L   '/ 
      data paramlist(80)%g1tblver /2/ 
      data paramlist(80)%grib1val /80/ 
      data paramlist(80)%grib2dsc /10/ 
      data paramlist(80)%grib2cat /4/ 
      data paramlist(80)%grib2num /0/ 
      data paramlist(80)%abbrev   /'WTMP    '/ 
      data paramlist(81)%g1tblver /2/ 
      data paramlist(81)%grib1val /81/ 
      data paramlist(81)%grib2dsc /2/ 
      data paramlist(81)%grib2cat /0/ 
      data paramlist(81)%grib2num /0/ 
      data paramlist(81)%abbrev   /'LAND    '/ 
      data paramlist(82)%g1tblver /2/ 
      data paramlist(82)%grib1val /82/ 
      data paramlist(82)%grib2dsc /10/ 
      data paramlist(82)%grib2cat /4/ 
      data paramlist(82)%grib2num /1/ 
      data paramlist(82)%abbrev   /'DSL M   '/ 
      data paramlist(83)%g1tblver /2/ 
      data paramlist(83)%grib1val /83/ 
      data paramlist(83)%grib2dsc /2/ 
      data paramlist(83)%grib2cat /0/ 
      data paramlist(83)%grib2num /1/ 
      data paramlist(83)%abbrev   /'SFC R   '/ 
      data paramlist(84)%g1tblver /2/ 
      data paramlist(84)%grib1val /84/ 
      data paramlist(84)%grib2dsc /0/ 
      data paramlist(84)%grib2cat /19/ 
      data paramlist(84)%grib2num /1/ 
      data paramlist(84)%abbrev   /'ALBDO   '/ 
      data paramlist(85)%g1tblver /2/ 
      data paramlist(85)%grib1val /85/ 
      data paramlist(85)%grib2dsc /2/ 
      data paramlist(85)%grib2cat /0/ 
      data paramlist(85)%grib2num /2/ 
      data paramlist(85)%abbrev   /'TSOIL   '/ 
      data paramlist(86)%g1tblver /2/ 
      data paramlist(86)%grib1val /86/ 
      data paramlist(86)%grib2dsc /2/ 
      data paramlist(86)%grib2cat /0/ 
      data paramlist(86)%grib2num /3/ 
      data paramlist(86)%abbrev   /'SOIL M '/ 
      data paramlist(87)%g1tblver /2/ 
      data paramlist(87)%grib1val /87/ 
      data paramlist(87)%grib2dsc /2/ 
      data paramlist(87)%grib2cat /0/ 
      data paramlist(87)%grib2num /4/ 
      data paramlist(87)%abbrev   /'VEG    '/ 
      data paramlist(88)%g1tblver /2/ 
      data paramlist(88)%grib1val /88/ 
      data paramlist(88)%grib2dsc /10/ 
      data paramlist(88)%grib2cat /5/ 
      data paramlist(88)%grib2num /3/ 
      data paramlist(88)%abbrev   /'SALTY  '/ 
      data paramlist(89)%g1tblver /2/ 
      data paramlist(89)%grib1val /89/ 
      data paramlist(89)%grib2dsc /0/ 
      data paramlist(89)%grib2cat /3/ 
      data paramlist(89)%grib2num /10/ 
      data paramlist(89)%abbrev   /'DEN    '/ 
      data paramlist(90)%g1tblver /2/ 
      data paramlist(90)%grib1val /90/ 
      data paramlist(90)%grib2dsc /2/ 
      data paramlist(90)%grib2cat /0/ 
      data paramlist(90)%grib2num /5/ 
      data paramlist(90)%abbrev   /'WATR   '/ 
      data paramlist(91)%g1tblver /2/ 
      data paramlist(91)%grib1val /91/ 
      data paramlist(91)%grib2dsc /10/ 
      data paramlist(91)%grib2cat /2/ 
      data paramlist(91)%grib2num /0/ 
      data paramlist(91)%abbrev   /'ICE C  '/ 
      data paramlist(92)%g1tblver /2/ 
      data paramlist(92)%grib1val /92/ 
      data paramlist(92)%grib2dsc /10/ 
      data paramlist(92)%grib2cat /2/ 
      data paramlist(92)%grib2num /1/ 
      data paramlist(92)%abbrev   /'ICETK  '/ 
      data paramlist(93)%g1tblver /2/ 
      data paramlist(93)%grib1val /93/ 
      data paramlist(93)%grib2dsc /10/ 
      data paramlist(93)%grib2cat /2/ 
      data paramlist(93)%grib2num /2/ 
      data paramlist(93)%abbrev   /'DICED  '/ 
      data paramlist(94)%g1tblver /2/ 
      data paramlist(94)%grib1val /94/ 
      data paramlist(94)%grib2dsc /10/ 
      data paramlist(94)%grib2cat /2/ 
      data paramlist(94)%grib2num /3/ 
      data paramlist(94)%abbrev   /'SICED  '/ 
      data paramlist(95)%g1tblver /2/ 
      data paramlist(95)%grib1val /95/ 
      data paramlist(95)%grib2dsc /10/ 
      data paramlist(95)%grib2cat /2/ 
      data paramlist(95)%grib2num /4/ 
      data paramlist(95)%abbrev   /'U ICE  '/ 
      data paramlist(96)%g1tblver /2/ 
      data paramlist(96)%grib1val /96/ 
      data paramlist(96)%grib2dsc /10/ 
      data paramlist(96)%grib2cat /2/ 
      data paramlist(96)%grib2num /5/ 
      data paramlist(96)%abbrev   /'V ICE  '/ 
      data paramlist(97)%g1tblver /2/ 
      data paramlist(97)%grib1val /97/ 
      data paramlist(97)%grib2dsc /10/ 
      data paramlist(97)%grib2cat /2/ 
      data paramlist(97)%grib2num /6/ 
      data paramlist(97)%abbrev   /'ICE G  '/ 
      data paramlist(98)%g1tblver /2/ 
      data paramlist(98)%grib1val /98/ 
      data paramlist(98)%grib2dsc /10/ 
      data paramlist(98)%grib2cat /2/ 
      data paramlist(98)%grib2num /7/ 
      data paramlist(98)%abbrev   /'ICE D  '/ 
      data paramlist(99)%g1tblver /2/ 
      data paramlist(99)%grib1val /99/ 
      data paramlist(99)%grib2dsc /0/ 
      data paramlist(99)%grib2cat /1/ 
      data paramlist(99)%grib2num /16/ 
      data paramlist(99)%abbrev   /'SNO M  '/ 
      data paramlist(100)%g1tblver /2/ 
      data paramlist(100)%grib1val /100/ 
      data paramlist(100)%grib2dsc /10/ 
      data paramlist(100)%grib2cat /0/ 
      data paramlist(100)%grib2num /3/ 
      data paramlist(100)%abbrev   /'HTSGW  '/ 
      data paramlist(101)%g1tblver /2/ 
      data paramlist(101)%grib1val /101/ 
      data paramlist(101)%grib2dsc /10/ 
      data paramlist(101)%grib2cat /0/ 
      data paramlist(101)%grib2num /4/ 
      data paramlist(101)%abbrev   /'WVDIR  '/ 
      data paramlist(102)%g1tblver /2/ 
      data paramlist(102)%grib1val /102/ 
      data paramlist(102)%grib2dsc /10/ 
      data paramlist(102)%grib2cat /0/ 
      data paramlist(102)%grib2num /5/ 
      data paramlist(102)%abbrev   /'WVHGT  '/ 
      data paramlist(103)%g1tblver /2/ 
      data paramlist(103)%grib1val /103/ 
      data paramlist(103)%grib2dsc /10/ 
      data paramlist(103)%grib2cat /0/ 
      data paramlist(103)%grib2num /6/ 
      data paramlist(103)%abbrev   /'WVPER  '/ 
      data paramlist(104)%g1tblver /2/ 
      data paramlist(104)%grib1val /104/ 
      data paramlist(104)%grib2dsc /10/ 
      data paramlist(104)%grib2cat /0/ 
      data paramlist(104)%grib2num /7/ 
      data paramlist(104)%abbrev   /'SWDIR  '/ 
      data paramlist(105)%g1tblver /2/ 
      data paramlist(105)%grib1val /105/ 
      data paramlist(105)%grib2dsc /10/ 
      data paramlist(105)%grib2cat /0/ 
      data paramlist(105)%grib2num /8/ 
      data paramlist(105)%abbrev   /'SWELL  '/ 
      data paramlist(106)%g1tblver /2/ 
      data paramlist(106)%grib1val /106/ 
      data paramlist(106)%grib2dsc /10/ 
      data paramlist(106)%grib2cat /0/ 
      data paramlist(106)%grib2num /9/ 
      data paramlist(106)%abbrev   /'SWPER  '/ 
      data paramlist(107)%g1tblver /2/ 
      data paramlist(107)%grib1val /107/ 
      data paramlist(107)%grib2dsc /10/ 
      data paramlist(107)%grib2cat /0/ 
      data paramlist(107)%grib2num /10/ 
      data paramlist(107)%abbrev   /'DIRPW  '/ 
      data paramlist(108)%g1tblver /2/ 
      data paramlist(108)%grib1val /108/ 
      data paramlist(108)%grib2dsc /10/ 
      data paramlist(108)%grib2cat /0/ 
      data paramlist(108)%grib2num /11/ 
      data paramlist(108)%abbrev   /'PERPW  '/ 
      data paramlist(109)%g1tblver /2/ 
      data paramlist(109)%grib1val /109/ 
      data paramlist(109)%grib2dsc /10/ 
      data paramlist(109)%grib2cat /0/ 
      data paramlist(109)%grib2num /12/ 
      data paramlist(109)%abbrev   /'DIRSW  '/ 
      data paramlist(110)%g1tblver /2/ 
      data paramlist(110)%grib1val /110/ 
      data paramlist(110)%grib2dsc /10/ 
      data paramlist(110)%grib2cat /0/ 
      data paramlist(110)%grib2num /13/ 
      data paramlist(110)%abbrev   /'PERSW  '/ 
      data paramlist(111)%g1tblver /2/ 
      data paramlist(111)%grib1val /111/ 
      data paramlist(111)%grib2dsc /0/ 
      data paramlist(111)%grib2cat /4/ 
      data paramlist(111)%grib2num /0/ 
      data paramlist(111)%abbrev   /'NSWRS  '/ 
      data paramlist(112)%g1tblver /2/ 
      data paramlist(112)%grib1val /112/ 
      data paramlist(112)%grib2dsc /0/ 
      data paramlist(112)%grib2cat /5/ 
      data paramlist(112)%grib2num /0/ 
      data paramlist(112)%abbrev   /'NLWRS  '/ 
      data paramlist(113)%g1tblver /2/ 
      data paramlist(113)%grib1val /113/ 
      data paramlist(113)%grib2dsc /0/ 
      data paramlist(113)%grib2cat /4/ 
      data paramlist(113)%grib2num /1/ 
      data paramlist(113)%abbrev   /'NSWRT  '/ 
      data paramlist(114)%g1tblver /2/ 
      data paramlist(114)%grib1val /114/ 
      data paramlist(114)%grib2dsc /0/ 
      data paramlist(114)%grib2cat /5/ 
      data paramlist(114)%grib2num /1/ 
      data paramlist(114)%abbrev   /'NLWRT  '/ 
      data paramlist(115)%g1tblver /2/ 
      data paramlist(115)%grib1val /115/ 
      data paramlist(115)%grib2dsc /0/ 
      data paramlist(115)%grib2cat /5/ 
      data paramlist(115)%grib2num /2/ 
      data paramlist(115)%abbrev   /'LWAVR  '/ 
      data paramlist(116)%g1tblver /2/ 
      data paramlist(116)%grib1val /116/ 
      data paramlist(116)%grib2dsc /0/ 
      data paramlist(116)%grib2cat /4/ 
      data paramlist(116)%grib2num /2/ 
      data paramlist(116)%abbrev   /'SWAVR  '/ 
      data paramlist(117)%g1tblver /2/ 
      data paramlist(117)%grib1val /117/ 
      data paramlist(117)%grib2dsc /0/ 
      data paramlist(117)%grib2cat /4/ 
      data paramlist(117)%grib2num /3/ 
      data paramlist(117)%abbrev   /'G RAD  '/ 
      data paramlist(118)%g1tblver /2/ 
      data paramlist(118)%grib1val /118/ 
      data paramlist(118)%grib2dsc /0/ 
      data paramlist(118)%grib2cat /4/ 
      data paramlist(118)%grib2num /4/ 
      data paramlist(118)%abbrev   /'BRTMP  '/ 
      data paramlist(119)%g1tblver /2/ 
      data paramlist(119)%grib1val /119/ 
      data paramlist(119)%grib2dsc /0/ 
      data paramlist(119)%grib2cat /4/ 
      data paramlist(119)%grib2num /5/ 
      data paramlist(119)%abbrev   /'LWRAD  '/ 
      data paramlist(120)%g1tblver /2/ 
      data paramlist(120)%grib1val /120/ 
      data paramlist(120)%grib2dsc /0/ 
      data paramlist(120)%grib2cat /4/ 
      data paramlist(120)%grib2num /6/ 
      data paramlist(120)%abbrev   /'SWRAD  '/ 
      data paramlist(121)%g1tblver /2/ 
      data paramlist(121)%grib1val /121/ 
      data paramlist(121)%grib2dsc /0/ 
      data paramlist(121)%grib2cat /0/ 
      data paramlist(121)%grib2num /10/ 
      data paramlist(121)%abbrev   /'LHTFL  '/ 
      data paramlist(122)%g1tblver /2/ 
      data paramlist(122)%grib1val /122/ 
      data paramlist(122)%grib2dsc /0/ 
      data paramlist(122)%grib2cat /0/ 
      data paramlist(122)%grib2num /11/ 
      data paramlist(122)%abbrev   /'SHTFL  '/ 
      data paramlist(123)%g1tblver /2/ 
      data paramlist(123)%grib1val /123/ 
      data paramlist(123)%grib2dsc /0/ 
      data paramlist(123)%grib2cat /2/ 
      data paramlist(123)%grib2num /20/ 
      data paramlist(123)%abbrev   /'BLYDP  '/ 
      data paramlist(124)%g1tblver /2/ 
      data paramlist(124)%grib1val /124/ 
      data paramlist(124)%grib2dsc /0/ 
      data paramlist(124)%grib2cat /2/ 
      data paramlist(124)%grib2num /17/ 
      data paramlist(124)%abbrev   /'U FLX  '/ 
      data paramlist(125)%g1tblver /2/ 
      data paramlist(125)%grib1val /125/ 
      data paramlist(125)%grib2dsc /0/ 
      data paramlist(125)%grib2cat /2/ 
      data paramlist(125)%grib2num /18/ 
      data paramlist(125)%abbrev   /'V FLX  '/ 
      data paramlist(126)%g1tblver /2/ 
      data paramlist(126)%grib1val /126/ 
      data paramlist(126)%grib2dsc /0/ 
      data paramlist(126)%grib2cat /2/ 
      data paramlist(126)%grib2num /19/ 
      data paramlist(126)%abbrev   /'WMIXE  '/ 
      data paramlist(127)%g1tblver /2/ 
      data paramlist(127)%grib1val /127/ 
      data paramlist(127)%grib2dsc /255/ 
      data paramlist(127)%grib2cat /255/ 
      data paramlist(127)%grib2num /255/ 
      data paramlist(127)%abbrev   /'IMG D  '/ 
!
!  GRIB1 parameters in NCEP Local Table version 2
!  Added 8/07/2003
!
      data paramlist(128)%g1tblver /2/ 
      data paramlist(128)%grib1val /229/ 
      data paramlist(128)%grib2dsc /0/ 
      data paramlist(128)%grib2cat /0/ 
      data paramlist(128)%grib2num /192/ 
      data paramlist(128)%abbrev   /'SNOHF  '/ 
      data paramlist(129)%g1tblver /2/ 
      data paramlist(129)%grib1val /153/ 
      data paramlist(129)%grib2dsc /0/ 
      data paramlist(129)%grib2cat /1/ 
      data paramlist(129)%grib2num /22/ 
      data paramlist(129)%abbrev   /'CLWMR  '/ 
      data paramlist(130)%g1tblver /2/ 
      data paramlist(130)%grib1val /140/ 
      data paramlist(130)%grib2dsc /0/ 
      data paramlist(130)%grib2cat /1/ 
      data paramlist(130)%grib2num /192/ 
      data paramlist(130)%abbrev   /'CRAIN  '/ 
      data paramlist(131)%g1tblver /2/ 
      data paramlist(131)%grib1val /141/ 
      data paramlist(131)%grib2dsc /0/ 
      data paramlist(131)%grib2cat /1/ 
      data paramlist(131)%grib2num /193/ 
      data paramlist(131)%abbrev   /'CFRZR  '/ 
      data paramlist(132)%g1tblver /2/ 
      data paramlist(132)%grib1val /142/ 
      data paramlist(132)%grib2dsc /0/ 
      data paramlist(132)%grib2cat /1/ 
      data paramlist(132)%grib2num /194/ 
      data paramlist(132)%abbrev   /'CICEP  '/ 
      data paramlist(133)%g1tblver /2/ 
      data paramlist(133)%grib1val /143/ 
      data paramlist(133)%grib2dsc /0/ 
      data paramlist(133)%grib2cat /1/ 
      data paramlist(133)%grib2num /195/ 
      data paramlist(133)%abbrev   /'CSNOW  '/ 
      data paramlist(134)%g1tblver /2/ 
      data paramlist(134)%grib1val /214/ 
      data paramlist(134)%grib2dsc /0/ 
      data paramlist(134)%grib2cat /1/ 
      data paramlist(134)%grib2num /196/ 
      data paramlist(134)%abbrev   /'CPRAT  '/ 
      data paramlist(135)%g1tblver /2/ 
      data paramlist(135)%grib1val /135/ 
      data paramlist(135)%grib2dsc /0/ 
      data paramlist(135)%grib2cat /1/ 
      data paramlist(135)%grib2num /197/ 
      data paramlist(135)%abbrev   /'MCONV  '/ 
      data paramlist(136)%g1tblver /2/ 
      data paramlist(136)%grib1val /194/ 
      data paramlist(136)%grib2dsc /1/ 
      data paramlist(136)%grib2cat /1/ 
      data paramlist(136)%grib2num /193/ 
      data paramlist(136)%abbrev   /'CPOFP  '/ 
      data paramlist(137)%g1tblver /2/ 
      data paramlist(137)%grib1val /228/ 
      data paramlist(137)%grib2dsc /0/ 
      data paramlist(137)%grib2cat /1/ 
      data paramlist(137)%grib2num /199/ 
      data paramlist(137)%abbrev   /'PEVAP  '/ 
      data paramlist(138)%g1tblver /2/ 
      data paramlist(138)%grib1val /136/ 
      data paramlist(138)%grib2dsc /0/ 
      data paramlist(138)%grib2cat /2/ 
      data paramlist(138)%grib2num /192/ 
      data paramlist(138)%abbrev   /'VW SH  '/ 
      data paramlist(139)%g1tblver /2/ 
      data paramlist(139)%grib1val /172/ 
      data paramlist(139)%grib2dsc /0/ 
      data paramlist(139)%grib2cat /2/ 
      data paramlist(139)%grib2num /193/ 
      data paramlist(139)%abbrev   /'M FLX  '/ 
      data paramlist(140)%g1tblver /2/ 
      data paramlist(140)%grib1val /196/ 
      data paramlist(140)%grib2dsc /0/ 
      data paramlist(140)%grib2cat /2/ 
      data paramlist(140)%grib2num /194/ 
      data paramlist(140)%abbrev   /'USTM   '/ 
      data paramlist(141)%g1tblver /2/ 
      data paramlist(141)%grib1val /197/ 
      data paramlist(141)%grib2dsc /0/ 
      data paramlist(141)%grib2cat /2/ 
      data paramlist(141)%grib2num /195/ 
      data paramlist(141)%abbrev   /'VSTM   '/ 
      data paramlist(142)%g1tblver /2/ 
      data paramlist(142)%grib1val /252/ 
      data paramlist(142)%grib2dsc /0/ 
      data paramlist(142)%grib2cat /2/ 
      data paramlist(142)%grib2num /196/ 
      data paramlist(142)%abbrev   /'CD     '/ 
      data paramlist(143)%g1tblver /2/ 
      data paramlist(143)%grib1val /253/ 
      data paramlist(143)%grib2dsc /0/ 
      data paramlist(143)%grib2cat /2/ 
      data paramlist(143)%grib2num /197/ 
      data paramlist(143)%abbrev   /'FRICV  '/ 
      data paramlist(144)%g1tblver /2/ 
      data paramlist(144)%grib1val /130/ 
      data paramlist(144)%grib2dsc /0/ 
      data paramlist(144)%grib2cat /3/ 
      data paramlist(144)%grib2num /192/ 
      data paramlist(144)%abbrev   /'MSLET  '/ 
      data paramlist(145)%g1tblver /2/ 
      data paramlist(145)%grib1val /204/ 
      data paramlist(145)%grib2dsc /0/ 
      data paramlist(145)%grib2cat /4/ 
      data paramlist(145)%grib2num /192/ 
      data paramlist(145)%abbrev   /'DSWRF  '/ 
      data paramlist(146)%g1tblver /2/ 
      data paramlist(146)%grib1val /211/ 
      data paramlist(146)%grib2dsc /0/ 
      data paramlist(146)%grib2cat /4/ 
      data paramlist(146)%grib2num /193/ 
      data paramlist(146)%abbrev   /'USWRF  '/ 
      data paramlist(147)%g1tblver /2/ 
      data paramlist(147)%grib1val /205/ 
      data paramlist(147)%grib2dsc /0/ 
      data paramlist(147)%grib2cat /5/ 
      data paramlist(147)%grib2num /192/ 
      data paramlist(147)%abbrev   /'DLWRF  '/ 
      data paramlist(148)%g1tblver /2/ 
      data paramlist(148)%grib1val /212/ 
      data paramlist(148)%grib2dsc /0/ 
      data paramlist(148)%grib2cat /5/ 
      data paramlist(148)%grib2num /193/ 
      data paramlist(148)%abbrev   /'ULWRF  '/ 
      data paramlist(149)%g1tblver /2/ 
      data paramlist(149)%grib1val /213/ 
      data paramlist(149)%grib2dsc /0/ 
      data paramlist(149)%grib2cat /6/ 
      data paramlist(149)%grib2num /192/ 
      data paramlist(149)%abbrev   /'CDLYR  '/ 
      data paramlist(150)%g1tblver /2/ 
      data paramlist(150)%grib1val /132/ 
      data paramlist(150)%grib2dsc /0/ 
      data paramlist(150)%grib2cat /7/ 
      data paramlist(150)%grib2num /193/ 
      data paramlist(150)%abbrev   /'4LFTX  '/ 
      data paramlist(151)%g1tblver /2/ 
      data paramlist(151)%grib1val /157/ 
      data paramlist(151)%grib2dsc /0/ 
      data paramlist(151)%grib2cat /7/ 
      data paramlist(151)%grib2num /6/ 
      data paramlist(151)%abbrev   /'CAPE   '/ 
      data paramlist(152)%g1tblver /2/ 
      data paramlist(152)%grib1val /156/ 
      data paramlist(152)%grib2dsc /0/ 
      data paramlist(152)%grib2cat /7/ 
      data paramlist(152)%grib2num /7/ 
      data paramlist(152)%abbrev   /'CIN    '/ 
      data paramlist(153)%g1tblver /2/ 
      data paramlist(153)%grib1val /190/ 
      data paramlist(153)%grib2dsc /0/ 
      data paramlist(153)%grib2cat /7/ 
      data paramlist(153)%grib2num /8/ 
      data paramlist(153)%abbrev   /'HLCY   '/ 
      data paramlist(154)%g1tblver /2/ 
      data paramlist(154)%grib1val /131/ 
      data paramlist(154)%grib2dsc /0/ 
      data paramlist(154)%grib2cat /7/ 
      data paramlist(154)%grib2num /192/ 
      data paramlist(154)%abbrev   /'LFT X  '/ 
      data paramlist(155)%g1tblver /2/ 
      data paramlist(155)%grib1val /158/ 
      data paramlist(155)%grib2dsc /0/ 
      data paramlist(155)%grib2cat /19/ 
      data paramlist(155)%grib2num /11/ 
      data paramlist(155)%abbrev   /'TKE    '/ 
      data paramlist(156)%g1tblver /2/ 
      data paramlist(156)%grib1val /176/ 
      data paramlist(156)%grib2dsc /0/ 
      data paramlist(156)%grib2cat /191/ 
      data paramlist(156)%grib2num /192/ 
      data paramlist(156)%abbrev   /'NLAT   '/ 
      data paramlist(157)%g1tblver /2/ 
      data paramlist(157)%grib1val /177/ 
      data paramlist(157)%grib2dsc /0/ 
      data paramlist(157)%grib2cat /191/ 
      data paramlist(157)%grib2num /193/ 
      data paramlist(157)%abbrev   /'ELON   '/ 
      data paramlist(158)%g1tblver /2/ 
      data paramlist(158)%grib1val /234/ 
      data paramlist(158)%grib2dsc /1/ 
      data paramlist(158)%grib2cat /0/ 
      data paramlist(158)%grib2num /192/ 
      data paramlist(158)%abbrev   /'BGRUN  '/ 
      data paramlist(159)%g1tblver /2/ 
      data paramlist(159)%grib1val /235/ 
      data paramlist(159)%grib2dsc /1/ 
      data paramlist(159)%grib2cat /0/ 
      data paramlist(159)%grib2num /193/ 
      data paramlist(159)%abbrev   /'SSRUN  '/ 
      data paramlist(160)%g1tblver /2/ 
      data paramlist(160)%grib1val /144/ 
      data paramlist(160)%grib2dsc /2/ 
      data paramlist(160)%grib2cat /0/ 
      data paramlist(160)%grib2num /192/ 
      data paramlist(160)%abbrev   /'SOILW  '/ 
      data paramlist(161)%g1tblver /2/ 
      data paramlist(161)%grib1val /155/ 
      data paramlist(161)%grib2dsc /2/ 
      data paramlist(161)%grib2cat /0/ 
      data paramlist(161)%grib2num /193/ 
      data paramlist(161)%abbrev   /'GFLUX  '/ 
      data paramlist(162)%g1tblver /2/ 
      data paramlist(162)%grib1val /207/ 
      data paramlist(162)%grib2dsc /2/ 
      data paramlist(162)%grib2cat /0/ 
      data paramlist(162)%grib2num /194/ 
      data paramlist(162)%abbrev   /'MSTAV  '/ 
      data paramlist(163)%g1tblver /2/ 
      data paramlist(163)%grib1val /208/ 
      data paramlist(163)%grib2dsc /2/ 
      data paramlist(163)%grib2cat /0/ 
      data paramlist(163)%grib2num /195/ 
      data paramlist(163)%abbrev   /'SFEXC  '/ 
      data paramlist(164)%g1tblver /2/ 
      data paramlist(164)%grib1val /223/ 
      data paramlist(164)%grib2dsc /2/ 
      data paramlist(164)%grib2cat /0/ 
      data paramlist(164)%grib2num /196/ 
      data paramlist(164)%abbrev   /'CNWAT  '/ 
      data paramlist(165)%g1tblver /2/ 
      data paramlist(165)%grib1val /226/ 
      data paramlist(165)%grib2dsc /2/ 
      data paramlist(165)%grib2cat /0/ 
      data paramlist(165)%grib2num /197/ 
      data paramlist(165)%abbrev   /'BMIXL  '/ 
      data paramlist(166)%g1tblver /2/ 
      data paramlist(166)%grib1val /154/ 
      data paramlist(166)%grib2dsc /0/ 
      data paramlist(166)%grib2cat /14/ 
      data paramlist(166)%grib2num /192/ 
      data paramlist(166)%abbrev   /'O3MR   '/ 
      data paramlist(167)%g1tblver /2/ 
      data paramlist(167)%grib1val /222/ 
      data paramlist(167)%grib2dsc /0/ 
      data paramlist(167)%grib2cat /3/ 
      data paramlist(167)%grib2num /193/ 
      data paramlist(167)%abbrev   /'5WAVH  '/ 
      data paramlist(168)%g1tblver /2/ 
      data paramlist(168)%grib1val /145/ 
      data paramlist(168)%grib2dsc /0/ 
      data paramlist(168)%grib2cat /1/ 
      data paramlist(168)%grib2num /200/ 
      data paramlist(168)%abbrev   /'PEVPR  '/ 
      data paramlist(169)%g1tblver /2/ 
      data paramlist(169)%grib1val /146/ 
      data paramlist(169)%grib2dsc /0/ 
      data paramlist(169)%grib2cat /6/ 
      data paramlist(169)%grib2num /193/ 
      data paramlist(169)%abbrev   /'CWORK  '/ 
      data paramlist(170)%g1tblver /2/ 
      data paramlist(170)%grib1val /147/ 
      data paramlist(170)%grib2dsc /0/ 
      data paramlist(170)%grib2cat /3/ 
      data paramlist(170)%grib2num /194/ 
      data paramlist(170)%abbrev   /'U-GWD  '/ 
      data paramlist(171)%g1tblver /2/ 
      data paramlist(171)%grib1val /148/ 
      data paramlist(171)%grib2dsc /0/ 
      data paramlist(171)%grib2cat /3/ 
      data paramlist(171)%grib2num /195/ 
      data paramlist(171)%abbrev   /'V-GWD  '/ 
      data paramlist(172)%g1tblver /2/ 
      data paramlist(172)%grib1val /221/ 
      data paramlist(172)%grib2dsc /0/ 
      data paramlist(172)%grib2cat /3/ 
      data paramlist(172)%grib2num /196/ 
      data paramlist(172)%abbrev   /'HPBL   '/ 
      data paramlist(173)%g1tblver /2/ 
      data paramlist(173)%grib1val /230/ 
      data paramlist(173)%grib2dsc /0/ 
      data paramlist(173)%grib2cat /3/ 
      data paramlist(173)%grib2num /197/ 
      data paramlist(173)%abbrev   /'5WAVA  '/ 
! Added 9/26/2003
      data paramlist(174) /gribparam(130,160,2,3,192,'SOILL   ')/
      data paramlist(175) /gribparam(130,171,2,3,193,'UNKNOWN ')/
      data paramlist(176) /gribparam(130,219,2,0,201,'WILT    ')/
      data paramlist(177) /gribparam(130,222,2,3,194,'SLTYP   ')/
      data paramlist(178) /gribparam(2,224,2,3,0,'SOTYP   ')/
      data paramlist(179) /gribparam(2,225,2,0,198,'VGTYP   ')/
      data paramlist(180) /gribparam(130,230,2,3,195,'SMREF   ')/
      data paramlist(181) /gribparam(130,231,2,3,196,'SMDRY   ')/
      data paramlist(182) /gribparam(2,238,0,1,201,'SNOWC   ')/
      data paramlist(183) /gribparam(130,240,2,3,197,'POROS   ')/
      data paramlist(184) /gribparam(129,131,0,1,202,'FRAIN   ')/
      data paramlist(185) /gribparam(129,132,0,6,199,'FICE    ')/
      data paramlist(186) /gribparam(129,133,0,1,203,'FRIME   ')/
      data paramlist(187) /gribparam(129,134,0,6,194,'CUEFI   ')/
      data paramlist(188) /gribparam(129,135,0,6,195,'TCOND   ')/
      data paramlist(189) /gribparam(129,136,0,6,196,'TCOLW   ')/
      data paramlist(190) /gribparam(129,137,0,6,197,'TCOLI   ')/
      data paramlist(191) /gribparam(129,138,0,1,204,'TCOLR   ')/
      data paramlist(192) /gribparam(129,139,0,1,205,'TCOLS   ')/
      data paramlist(193) /gribparam(129,140,0,6,198,'TCOLC   ')/
      data paramlist(194) /gribparam(130,159,0,19,192,'MXSALB  ')/
      data paramlist(195) /gribparam(130,170,0,19,193,'SNFALB  ')/
      data paramlist(196) /gribparam(2,170,0,1,24,'RWMR    ')/
      data paramlist(197) /gribparam(2,171,0,1,25,'SNMR    ')/
      data paramlist(198) /gribparam(130,181,2,0,199,'CCOND   ')/
      data paramlist(199) /gribparam(130,203,2,0,200,'RSMIN   ')/
      data paramlist(200) /gribparam(130,246,2,0,202,'RCS     ')/
      data paramlist(201) /gribparam(130,247,2,0,203,'RCT     ')/
      data paramlist(202) /gribparam(130,248,2,0,204,'RCQ     ')/
      data paramlist(203) /gribparam(130,249,2,0,205,'RCSOL   ')/
      data paramlist(204) /gribparam(2,254,0,7,194,'RI      ')/
      data paramlist(205) /gribparam(129,190,3,1,192,'USCT    ')/
      data paramlist(206) /gribparam(129,191,3,1,193,'VSCT    ')/
      data paramlist(207) /gribparam(129,171,0,191,194,'TSEC    ')/
      data paramlist(208) /gribparam(129,180,0,14,193,'OZCON   ')/
      data paramlist(209) /gribparam(129,181,0,14,194,'OZCAT   ')/
      data paramlist(210) /gribparam(2,193,1,1,2,'POP     ')/
      data paramlist(211) /gribparam(2,195,1,1,192,'CPOZP   ')/
      data paramlist(212) /gribparam(2,180,0,2,22,'GUST    ')/


      contains


         subroutine param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
!$$$  SUBPROGRAM DOCUMENTATION BLOCK
!                .      .    .                                       .
! SUBPROGRAM:    param_g1_to_g2 
!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
!
! ABSTRACT: This subroutine returns the corresponding GRIB2 Discipline
!   Category and Number for a given GRIB1 parameter value and table version.
!
! PROGRAM HISTORY LOG:
! 2000-05-11  Gilbert
!
! USAGE:    CALL param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
!   INPUT ARGUMENT LIST:
!     g1val    - GRIB1 parameter number for which discipline is requested
!     g1ver    - GRIB1 parameter table version number
!
!   OUTPUT ARGUMENT LIST:      
!     g2disc   - corresponding GRIB2 Discipline number
!     g2cat    - corresponding GRIB2 Category number
!     g2num    - corresponding GRIB2 Parameter number within Category g2cat
!
! ATTRIBUTES:
!   LANGUAGE: Fortran 90
!   MACHINE:  IBM SP
!
!$$$
           integer,intent(in) :: g1val,g1ver
           integer,intent(out) :: g2disc,g2cat,g2num

           g2disc=255
           g2cat=255
           g2num=255
! for testing
!           g2num=g1val
! for testing

           do n=1,MAXPARAM
              if (paramlist(n)%grib1val.eq.g1val .AND.
     &            paramlist(n)%g1tblver.eq.g1ver ) then
                 g2disc=paramlist(n)%grib2dsc
                 g2cat=paramlist(n)%grib2cat
                 g2num=paramlist(n)%grib2num
                 return
              endif
           enddo

           print *,'param_g1_to_g2:GRIB1 param ',g1val,' not found.',
     &             ' for table version ',g1ver
           return
         end subroutine

         character(len=8) function param_get_abbrev(g2disc,g2cat,g2num)
!$$$  SUBPROGRAM DOCUMENTATION BLOCK
!                .      .    .                                       .
! SUBPROGRAM:    param_get_abbrev 
!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
!
! ABSTRACT: This function returns the parameter abbreviation for
!   a given GRIB2 Discipline, Category and Parameter number.
!
! PROGRAM HISTORY LOG:
! 2001-06-05  Gilbert
!
! USAGE:     abrev=param_get_abbrev(g2disc,g2cat,g2num)
!   INPUT ARGUMENT LIST:
!     g2disc   - GRIB2 discipline number (See Code Table 0.0)
!     g2cat    - corresponding GRIB2 Category number
!     g2num    - corresponding GRIB2 Parameter number within Category g2cat
!
! RETURNS:  ASCII Paramter Abbreviation
!
! REMARKS: None
!
! ATTRIBUTES:
!   LANGUAGE: Fortran 90
!   MACHINE:  IBM SP
!
!$$$
           integer,intent(in) :: g2disc,g2cat,g2num

           param_get_abbrev='UNKNOWN '

           do n=1,MAXPARAM
              if (paramlist(n)%grib2dsc.eq.g2disc.AND.
     &             paramlist(n)%grib2cat.eq.g2cat.AND.
     &             paramlist(n)%grib2num.eq.g2num) then
                 param_get_abbrev=paramlist(n)%abbrev
                 return
              endif
           enddo

!           print *,'param_get_abbrev:GRIB2 param ',g2disc,g2cat,
!     &              g2num,' not found.'
           return
         end function


         subroutine param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
!$$$  SUBPROGRAM DOCUMENTATION BLOCK
!                .      .    .                                       .
! SUBPROGRAM:    param_g2_to_g1 
!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
!
! ABSTRACT: This function returns the GRIB 1 parameter number for 
!   a given GRIB2 Discipline, Category and Parameter number.
!
! PROGRAM HISTORY LOG:
! 2001-06-05  Gilbert
!
! USAGE:     call param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
!   INPUT ARGUMENT LIST:
!     g2disc   - GRIB2 discipline number (See Code Table 0.0)
!     g2cat    - corresponding GRIB2 Category number
!     g2num    - corresponding GRIB2 Parameter number within Category g2cat
!
!   OUTPUT ARGUMENT LIST:      
!     g1val    - GRIB1 parameter number for which discipline is requested
!     g1ver    - GRIB1 parameter table version number
!
! REMARKS: None
!
! ATTRIBUTES:
!   LANGUAGE: Fortran 90
!   MACHINE:  IBM SP
!
!$$$
           integer,intent(in) :: g2disc,g2cat,g2num
           integer,intent(out) :: g1val,g1ver

           g1val=255
           g1ver=255

! for testing
!           if ( g2disc.eq.255.and.g2cat.eq.255 ) then
!             g1val=g2num
!             g1ver=2
!             return
!           endif
! for testing

           do n=1,MAXPARAM
              if (paramlist(n)%grib2dsc.eq.g2disc.AND.
     &             paramlist(n)%grib2cat.eq.g2cat.AND.
     &             paramlist(n)%grib2num.eq.g2num) then
                 g1val=paramlist(n)%grib1val
                 g1ver=paramlist(n)%g1tblver
                 return
              endif
           enddo

           print *,'param_g2_to_g1:GRIB2 param ',g2disc,g2cat,
     &              g2num,' not found.'
           return
         end subroutine


      end module