NCEPLIBS-g2  3.4.7
gf_free.F90
Go to the documentation of this file.
1 
4 
11 subroutine gf_free(gfld)
12  use grib_mod
13  implicit none
14 
15  type(gribfield) :: gfld
16  integer :: is
17 
18  if (associated(gfld%idsect)) then
19  deallocate(gfld%idsect,stat=is)
20  endif
21  nullify(gfld%idsect)
22 
23  if (associated(gfld%local)) then
24  deallocate(gfld%local,stat=is)
25  endif
26  nullify(gfld%local)
27 
28  if (associated(gfld%list_opt)) then
29  deallocate(gfld%list_opt,stat=is)
30  endif
31  nullify(gfld%list_opt)
32 
33  if (associated(gfld%igdtmpl)) then
34  deallocate(gfld%igdtmpl,stat=is)
35  endif
36  nullify(gfld%igdtmpl)
37 
38  if (associated(gfld%ipdtmpl)) then
39  deallocate(gfld%ipdtmpl,stat=is)
40  endif
41  nullify(gfld%ipdtmpl)
42 
43  if (associated(gfld%coord_list)) then
44  deallocate(gfld%coord_list,stat=is)
45  endif
46  nullify(gfld%coord_list)
47 
48  if (associated(gfld%idrtmpl)) then
49  deallocate(gfld%idrtmpl,stat=is)
50  endif
51  nullify(gfld%idrtmpl)
52 
53  if (associated(gfld%bmap)) then
54  deallocate(gfld%bmap,stat=is)
55  endif
56  nullify(gfld%bmap)
57 
58  if (associated(gfld%fld)) then
59  deallocate(gfld%fld,stat=is)
60  endif
61  nullify(gfld%fld)
62 
63  return
64 end subroutine gf_free
gf_free
subroutine gf_free(gfld)
Free memory that was used to store array values in derived type grib_mod::gribfield.
Definition: gf_free.F90:12
grib_mod
This Fortran module contains the declaration of derived type gribfield.
Definition: gribmod.F90:10
grib_mod::gribfield
Definition: gribmod.F90:14