external/io_grib1/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