gf_free.F90

Go to the documentation of this file.

 
 
subroutine gf_free(gfld)
  use grib_mod
  implicit none
 
  type(gribfield) :: gfld
  integer :: is
 
  if (associated(gfld%idsect)) then
     deallocate(gfld%idsect,stat=is)
  endif
  nullify(gfld%idsect)
 
  if (associated(gfld%local)) then
     deallocate(gfld%local,stat=is)
  endif
  nullify(gfld%local)
 
  if (associated(gfld%list_opt)) then
     deallocate(gfld%list_opt,stat=is)
  endif
  nullify(gfld%list_opt)
 
  if (associated(gfld%igdtmpl)) then
     deallocate(gfld%igdtmpl,stat=is)
  endif
  nullify(gfld%igdtmpl)
 
  if (associated(gfld%ipdtmpl)) then
     deallocate(gfld%ipdtmpl,stat=is)
  endif
  nullify(gfld%ipdtmpl)
 
  if (associated(gfld%coord_list)) then
     deallocate(gfld%coord_list,stat=is)
  endif
  nullify(gfld%coord_list)
 
  if (associated(gfld%idrtmpl)) then
     deallocate(gfld%idrtmpl,stat=is)
  endif
  nullify(gfld%idrtmpl)
 
  if (associated(gfld%bmap)) then
     deallocate(gfld%bmap,stat=is)
  endif
  nullify(gfld%bmap)
 
  if (associated(gfld%fld)) then
     deallocate(gfld%fld,stat=is)
  endif
  nullify(gfld%fld)
 
  return
end subroutine gf_free