NCEPLIBS-g2tmpl  1.10.0
sort_params_grib2_tbl.f90
Go to the documentation of this file.
1 
4 
9 program sort_params_grib2_tbl
10  use grib2_all_tables_module
11  integer idisc,icatg,iparm,locflg
12  character*255 fl_nametbl
13  locflg=0
14  idisc=0
15  icatg=0
16  iparm=0
17 
18  ! Opens and reads the GRIB2 Code Table 4.2 into an internal memory structure.
19  !
20  fl_nametbl='params_grib2_tbl_new'
21  call open_and_read_4dot2( fl_nametbl, ierr )
22  if ( ierr .ne. 0 ) then
23  print*, 'Couldnt open table file - return code was ',ierr
24  endif
25 
26  ! Sorts and writes the GRIB2 Code Table 4.2 to an output file.
27 
28  fl_nametbl='params_grib2_tbl_new'
29  call sort_and_write_4dot2( fl_nametbl, ierr )
30  print *, ""
31  print *, " The output params_grib2_tbl_new file sorted."
32  print *, ""
33  if ( ierr .ne. 0 ) then
34  print*, 'Couldnt open output file - return code was ',ierr
35  endif
36  stop
37 end Program sort_params_grib2_tbl
grib2_all_tables_module
Define the variables in the derived data type discipline provided in Section 0.
Definition: grib2_all_tables_module.f90:23
open_and_read_4dot2
void open_and_read_4dot2(char *, f77int *)
Opens and reads the GRIB2 Code Table 4.2 into an internal memory structure.
Definition: process_4dot2.c:113
sort_and_write_4dot2
void sort_and_write_4dot2(char *, f77int *)
Sorts the contents of GRIB2 Code Table 4.2 within the internal memory structure and writes the output...
Definition: process_4dot2.c:199
sort_params_grib2_tbl
program sort_params_grib2_tbl
This program reads params_grib2_tbl_new.text and writes the output file will be sorted with a format ...
Definition: sort_params_grib2_tbl.f90:9