source: lmdz_wrf/trunk/WRFV3/external/io_grib1/test_gribmap.F90 @ 354

Last change on this file since 354 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 465 bytes
Line 
1PROGRAM 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
19print *,'here1'
20
21END PROGRAM
Note: See TracBrowser for help on using the repository browser.