gribmod.F90

Go to the documentation of this file.

 
 
module grib_mod
 
  character(len = 12) :: g2_version = "g2lib-4.0.0"
 
  type gribfield
     integer :: version
 
     integer :: discipline
 
     integer, pointer, dimension(:) :: idsect => null()
 
     integer :: idsectlen
 
     character(len = 1), pointer, dimension(:) :: local => null()
 
     integer :: locallen
 
     integer :: ifldnum
 
     integer :: griddef
 
     integer :: ngrdpts
 
     integer :: numoct_opt
 
     integer :: interp_opt
 
     integer :: num_opt
 
     integer, pointer, dimension(:) :: list_opt => null()
 
     integer :: igdtnum
 
     integer :: igdtlen
 
     integer, pointer, dimension(:) :: igdtmpl => null()
 
     integer :: ipdtnum
 
     integer :: ipdtlen
 
     integer, pointer, dimension(:) :: ipdtmpl => null()
 
     integer :: num_coord
 
     real, pointer, dimension(:) :: coord_list => null()
 
     integer :: ndpts
 
     integer :: idrtnum
 
     integer :: idrtlen
 
     integer, pointer, dimension(:) :: idrtmpl => null()
 
     logical :: unpacked
 
     logical :: expanded
 
     integer :: ibmap
 
     logical*1, pointer, dimension(:) :: bmap => null()
 
     real, pointer, dimension(:) :: fld => null()
  end type gribfield
 
end module grib_mod