test_gribmap.F90

1 PROGRAM test
2   IMPLICIT NONE
3 
4   CHARACTER, DIMENSION(:), POINTER :: grib_table_info
5   INTEGER :: ret
6   INTEGER :: size
7   INTEGER :: index
8   INTEGER :: istat
9 
10   CALL GET_GRIB1_TABLE_INFO_SIZE(size)
11   ALLOCATE(grib_table_info(1:size), STAT=istat)
12   CALL LOAD_GRIB1_TABLE_INFO("gribmap.txt",grib_table_info,ret)
13   print *,'ret: ',ret
14   print *,'again'
15   CALL GET_GRIB_PARAM (grib_table_info, "TSK", index);
16   print *,'got index: ',index
17 
18 
19 print *,'here1'
20 
21 END PROGRAM