| 1 | #define MAX_LINE_CHARS 2500 |
|---|
| 2 | #define MAX_PARAMS 256 |
|---|
| 3 | |
|---|
| 4 | #ifndef CRAY |
|---|
| 5 | # ifdef NOUNDERSCORE |
|---|
| 6 | # define LOAD_GRIB1_TABLES load_grib1_tables |
|---|
| 7 | # define GET_GRIB_PARAM get_grib_param |
|---|
| 8 | # define FREE_GRIBMAP free_gribmap |
|---|
| 9 | # define GET_GRIB1_TABLE_INFO_SIZE get_grib1_table_info_size |
|---|
| 10 | # define GET_GRIB1_TABLES_SIZE get_grib1_tables_size |
|---|
| 11 | # define READ_GRIBMAP read_gribmap |
|---|
| 12 | # else |
|---|
| 13 | # ifdef F2CSTYLE |
|---|
| 14 | # define LOAD_GRIB1_TABLES load_grib1_tables__ |
|---|
| 15 | # define GET_GRIB_PARAM get_grib_param__ |
|---|
| 16 | # define FREE_GRIBMAP free_gribmap__ |
|---|
| 17 | # define GET_GRIB1_TABLES_SIZE get_grib1_tables_size__ |
|---|
| 18 | # define READ_GRIBMAP read_gribmap__ |
|---|
| 19 | # else |
|---|
| 20 | # define LOAD_GRIB1_TABLES load_grib1_tables_ |
|---|
| 21 | # define GET_GRIB_PARAM get_grib_param_ |
|---|
| 22 | # define FREE_GRIBMAP free_gribmap_ |
|---|
| 23 | # define GET_GRIB1_TABLES_SIZE get_grib1_tables_size_ |
|---|
| 24 | # define READ_GRIBMAP read_gribmap_ |
|---|
| 25 | # endif |
|---|
| 26 | # endif |
|---|
| 27 | #endif |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | typedef struct { |
|---|
| 31 | int center; |
|---|
| 32 | int subcenter; |
|---|
| 33 | int parmtbl; |
|---|
| 34 | int parm_id[MAX_PARAMS]; |
|---|
| 35 | int dec_sc_factor[MAX_PARAMS]; |
|---|
| 36 | char **wrf_param[MAX_PARAMS]; |
|---|
| 37 | int num_wrf_params[MAX_PARAMS]; |
|---|
| 38 | int num_entries; |
|---|
| 39 | } Grib1_Table_Info; |
|---|
| 40 | |
|---|
| 41 | typedef struct { |
|---|
| 42 | int num_tables; |
|---|
| 43 | Grib1_Table_Info *grib_table_info; |
|---|
| 44 | } Grib1_Tables; |
|---|
| 45 | |
|---|
| 46 | |
|---|
| 47 | int GET_GRIB_PARAM (Grib1_Tables *grib_tables, char *varname, int *center, |
|---|
| 48 | int *subcenter, int *parmtbl, int *tablenum, int *index, |
|---|
| 49 | int strlen1, int strlen2); |
|---|
| 50 | |
|---|
| 51 | int GET_GRIB1_TABLES_SIZE (int *size); |
|---|
| 52 | |
|---|
| 53 | int LOAD_GRIB1_TABLES (char filename[], |
|---|
| 54 | Grib1_Tables *grib_tables, int *ret, int strlen1); |
|---|
| 55 | |
|---|
| 56 | Grib1_Tables *copy_grib_tables(Grib1_Tables *); |
|---|