forked from wrf-model/WRF
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathprotos.h
226 lines (186 loc) · 9.32 KB
/
protos.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
#ifndef PROTOS_H
#include "registry.h"
#include "data.h"
int init_dim_table() ;
int make_lower( char * s1 ) ;
int reg_parse( FILE * infile ) ;
int set_dim_len ( char * dimspec , node_t * dim_entry ) ;
int set_dim_order ( char * dimorder , node_t * dim_entry ) ;
int set_dim_orient ( char * dimorient , node_t * dim_entry ) ;
int add_node_to_end ( node_t * node , node_t ** list ) ;
int add_node_to_end_4d ( node_t * node , node_t ** list ) ;
int init_type_table() ;
int set_state_type ( char * typename , node_t * node ) ;
int set_state_dims ( char * dims , node_t * node ) ;
int gen_state_struct ( char * fname ) ;
#if 0
int show_node( node_t * p ) ;
int show_node1( node_t * p, int indent ) ;
int show_nodelist( node_t * p ) ;
int show_nodelist1( node_t * p , int indent ) ;
#endif
int gen_state_struct ( char * fname ) ;
int gen_decls ( FILE * fp , node_t * node , int sw_ranges, int sw_point , int mask , int layer ) ;
int gen_state_subtypes ( char * fname ) ;
int gen_state_subtypes1 ( FILE * fp , node_t * node , int sw_ranges, int sw_point , int mask ) ;
int print_warning( FILE * fp , char * fname ) ;
int close_the_file( FILE * fp ) ;
int make_entries_uniq ( char * fname ) ;
int add_warning ( char * fname ) ;
int gen_dummy_decls ( char * dn );
int gen_dummy_decls_new ( char * dn );
int gen_i1_decls ( char * dn );
node_t * get_type_entry ( char * typename ) ;
node_t * get_rconfig_entry( char * name ) ;
node_t * get_entry ( char * name , node_t * node ) ;
node_t * get_entry_r ( char * name , char * use , node_t * node ) ;
node_t * get_dim_entry( char *s ) ;
node_t * new_node ( int kind ) ;
node_t * get_4d_entry ( char * name ) ;
node_t * get_dimnode_for_coord ( node_t * node , int coord_axis ) ;
int get_index_for_coord ( node_t * node , int coord_axis ) ;
char * my_strtok( char * s1 ) ;
char * strtok_rentr( char * s1 , char * s2, char ** tokpos ) ;
char * bdy_indicator( int bdy ) ;
char * field_name( char * tmp, node_t * p , int tag ) ;
char * field_name_bdy( char * tmp, node_t * p , int tag, int bdy ) ;
char * dimension_with_colons( char * pre, char * tmp, node_t * p, char * post) ;
char * dimension_with_ones( char * pre, char * tmp, node_t * p, char * post) ;
char * dimension_with_ranges( char * ref , char * pre, int bdy , char * tmp, node_t * p, char * post, char * nlstructname ) ;
char * arrray_size_expression( char * refarg , char * pre , int bdy , char * tmp , node_t * p , char * post , char * nlstructname ) ;
char * index_with_firstelem( char * pre , char * dref , int bdy , char * tmp , node_t * p , char * post ) ;
char * declare_array_as_pointer( char * tmp, node_t * p ) ;
char * field_type( char * tmp , node_t * p ) ;
/* For typedef history -ajb */
int init_typedef_history() ;
int add_typedef_name ( char * name ) ;
int get_num_typedefs() ;
char * get_typedef_name ( char * name ) ;
char * get_typename_i(int i) ;
int gen_alloc ( char * dirname ) ;
int gen_alloc1 ( char * dirname ) ;
int gen_alloc2 ( FILE * fp , char * structname , char * structname2 , node_t * node, int *j, int *iguy, int *fraction, int numguys, int frac, int sw );
int gen_module_state_description ( char * dirname ) ;
int gen_module_state_description1 ( FILE * fp , node_t * node ) ;
int gen_scalar_indices ( char * dirname ) ;
int gen_scalar_indices1 ( FILE * fp, FILE ** fp2 ) ;
int gen_actual_args ( char * dirname ) ;
int gen_dummy_args ( char * dirname ) ;
int gen_dummy_decls ( char * dn ) ;
int gen_args ( char * dirname , int sw ) ;
int gen_args1 ( FILE * fp , char * outstr, char * structname , node_t * node , int *linelen , int sw , int deep ) ;
int gen_scalar_derefs ( char * dirname ) ;
int scalar_derefs ( char * dirname ) ;
int scalar_derefs1 ( FILE * fp , node_t * node, int direction ) ;
int set_mark ( int val , node_t * lst ) ;
int set_mark_4d ( int val , node_t * lst ) ;
int gen_i1_decls ( char * dn ) ;
int gen_get_nl_config ( char * dirname ) ;
int gen_config_assigns ( char * dirname ) ;
int gen_config_reads ( char * dirname ) ;
char * set_mem_order( node_t * node , char * str , int n ) ;
int gen_wrf_io ( char * dirname ) ;
int set_dim_strs ( node_t *node , char ddim[3][2][NAMELEN], char mdim[3][2][NAMELEN], char pdim[3][2][NAMELEN] , char * prepend, int sw_allow_stagger ) ;
int set_dim_strs2 ( node_t *node , char ddim[3][2][NAMELEN], char mdim[3][2][NAMELEN], char pdim[3][2][NAMELEN] , char * prepend, int sw_disregard_stag ) ;
int set_dim_strs3 ( node_t *node , char ddim[3][2][NAMELEN], char mdim[3][2][NAMELEN], char pdim[3][2][NAMELEN] , char * prepend, int sw_disregard_stag ) ;
int gen_wrf_io2 ( FILE * fp , char * fname , char * structname , char * fourdname , node_t * node , int sw_io ) ;
int gen_namelist_defines ( char * dirname , int sw_dimension ) ;
int gen_namelist_defaults ( char * dirname ) ;
int gen_namelist_script ( char * dirname ) ;
int gen_model_data_ord ( char * dirname ) ;
int get_elem ( char * structname , char * nlstructname , char * tx , int i , node_t * p , int first_last ) ;
int associated_with_4d_array( node_t * p ) ;
/* PGI Addition to resolve non-prototype function warnings */
char * array_size_expression ( char *, char *, int, char *, node_t *, char * ,char * );
int range_of_dimension ( char *, char * , int, node_t *, char * );
int dimension_size_expression ( char *, char *, int, node_t *, char *);
int gen_alloc_count ( char *);
int gen_alloc_count1 ( char *);
int gen_ddt_write ( char * );
int gen_ddt_write1 ( FILE *, char *, node_t *);
int gen_dealloc ( char * );
int gen_dealloc1 ( char * );
int gen_dealloc2 ( FILE *, char *, node_t *);
int gen_scalar_tables ( FILE *);
int AppendReg ( char *,int);
int irr_diag_scalar_indices ( char * );
int gen_scalar_tables_init ( FILE *);
int gen_scalar_indices_init ( FILE *);
int hash(char *);
int gen_nest_interp1 ( FILE *, node_t *, char *, int, int );
#if ( WRFPLUS == 1 )
int gen_packs_halo ( FILE *fp , node_t *p, char *shw, int xy /* 0=y,1=x */ , int pu /* 0=pack,1=unpack */, int nta /* 0=NLM,1=TLM,2=ADM */, char * packname, char * commname, int always_interp_mp /* 1 for ARW, varies for NMM */ );
#else
int gen_packs_halo ( FILE *fp , node_t *p, char *shw, int xy /* 0=y,1=x */ , int pu /* 0=pack,1=unpack */, char * packname, char * commname, int always_interp_mp /* 1 for ARW, varies for NMM */ );
#endif
int gen_packs ( FILE *fp , node_t *p, int shw, int xy /* 0=y,1=x */ , int pu /* 0=pack,1=unpack */, char * packname, char * commname );
int gen_periods ( char * dirname , node_t * periods );
int gen_swaps ( char * dirname , node_t * swaps );
int gen_cycles ( char * dirname , node_t * cycles );
int gen_xposes ( char * dirname );
int gen_comm_descrips ( char * dirname );
int gen_shift ( char * dirname );
int gen_datacalls ( char * dirname );
int gen_nest_packing ( char * dirname );
int gen_nest_pack ( char * dirname );
int gen_nest_unpack ( char * dirname );
int gen_nest_packunpack ( FILE *fp , node_t * node , int dir, int down_path );
int count_fields ( node_t * node , int * d2 , int * d3 ,
char * fourd_names, int down_path, int send_mp, int no_mp );
int gen_debug ( char * dirname );
void reset_mask ( unsigned int * mask , int e ) ;
void set_mask ( unsigned int * mask , int e ) ;
int get_mask ( unsigned int * mask , int e ) ;
int dims_ikj_inner(node_t *);
int dims_ij_inner(node_t *);
char *make_upper_case ( char * str );
char *make_lower_case ( char * str );
int sym_forget();
int init_parser();
int pre_parse( char * dir, FILE * infile, FILE * outfile );
int check_dimspecs();
int set_dim_order ( char * dimorder , node_t * dim_entry );
int gen_actual_args ( char * dirname );
int gen_actual_args_new ( char * dirname );
int gen_dummy_args ( char * dirname );
int gen_dummy_args_new ( char * dirname );
int gen_args ( char * dirname , int sw );
int gen_args1 ( FILE * fp , char * outstr , char * structname ,
node_t * node , int *linelen , int sw , int deep );
int gen_namelist_defines ( char * dirname , int sw_dimension );
int gen_namelist_defaults ( char * dirname );
int gen_namelist_statements ( char * dirname );
int gen_namelist_script ( char * dirname );
int gen_get_nl_config ( char * dirname );
int gen_config_assigns ( char * dirname );
int gen_config_reads ( char * dirname );
int as_long(char *str,long *l);
int as_finite_double(char *str,double *d);
int contains_str( char *s1, char *s2 );
int contains_tok( char *s1, char *s2, char *delims );
int gen_nest_v_interp ( char * dirname );
int gen_nest_interp ( char * dirname );
int gen_nest_interp1 ( FILE * fp , node_t * node, char * fourdname, int down_path , int use_nest_time_level );
int gen_nest_interp2 ( FILE * fp , node_t * node, char * fourdname, int down_path , int use_nest_time_level );
int gen_streams( char * dirname );
int gen_io_domain_defs ( FILE * fp );
int gen_set_timekeeping_defs ( FILE *fp );
int gen_io_form_for_dataset ( FILE *fp );
int gen_io_form_for_stream ( FILE *fp );
int gen_switches_and_alarms ( FILE *fp );
int gen_check_auxstream_alarms ( FILE *fp );
int gen_fine_stream_input ( FILE *fp );
int gen_med_auxinput_in ( FILE *fp );
int gen_med_hist_out_opens ( FILE *fp );
int gen_med_hist_out_closes ( FILE *fp );
int gen_med_auxinput_in_closes ( FILE *fp );
int gen_med_last_solve_io ( FILE *fp );
int gen_shutdown_closes ( FILE *fp );
int gen_med_open_esmf_calls ( FILE *fp );
int gen_med_find_esmf_coupling ( FILE *fp );
int gen_io_boilerplate ();
int gen_comms ( char * dirname );
int gen_set_timekeeping_alarms ( FILE * fp );
int create_ht(char *** p );
#define PROTOS_H
#endif