source: trunk/WRF.COMMON/WRFV3/external/io_grib1/gribmap.h

Last change on this file was 2759, checked in by aslmd, 2 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size

File size: 1.6 KB
Line 
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
30typedef 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
41typedef struct {
42  int num_tables;
43  Grib1_Table_Info *grib_table_info;
44} Grib1_Tables;
45
46
47int 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
51int GET_GRIB1_TABLES_SIZE (int *size);
52
53int LOAD_GRIB1_TABLES (char filename[], 
54                           Grib1_Tables *grib_tables, int *ret, int strlen1);
55
56Grib1_Tables *copy_grib_tables(Grib1_Tables *);
Note: See TracBrowser for help on using the repository browser.