params.f

计算线性趋势 回归系数 主要用于气象站点值的线性趋势计算

      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
! 2005-11-17  Gordon   -  Added more parameters for the Wave & Smoke models 
!
! USAGE:    use params
!
! ATTRIBUTES:
!   LANGUAGE: Fortran 90
!   MACHINE:  IBM SP
!
!$$$

      integer,parameter :: MAXPARAM=239

      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/