source: lmdz_wrf/trunk/WRFV3/tools/protos.h @ 1422

Last change on this file since 1422 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: 6.6 KB
Line 
1#ifndef PROTOS_H
2#include "registry.h"
3#include "data.h"
4
5int init_dim_table()   ;
6int make_lower( char * s1 ) ;
7int reg_parse( FILE * infile ) ;
8int set_dim_len ( char * dimspec , node_t * dim_entry ) ;
9int set_dim_order ( char * dimorder , node_t * dim_entry ) ;
10int set_dim_orient ( char * dimorient , node_t * dim_entry ) ;
11int add_node_to_end ( node_t * node , node_t ** list ) ;
12int add_node_to_end_4d ( node_t * node , node_t ** list ) ;
13int init_type_table() ;
14int set_state_type ( char * typename , node_t * node ) ;
15int set_state_dims ( char * dims , node_t * node ) ;
16int gen_state_struct ( char * fname ) ;
17
18#if 0
19int show_node( node_t * p ) ;
20int show_node1( node_t * p, int indent ) ;
21int show_nodelist( node_t * p ) ;
22int show_nodelist1( node_t * p , int indent ) ;
23#endif
24
25int gen_state_struct ( char * fname ) ;
26int gen_decls ( FILE * fp ,  node_t * node , int sw_ranges, int sw_point , int mask , int layer ) ;
27int gen_state_subtypes ( char * fname ) ;
28int gen_state_subtypes1 ( FILE * fp , node_t * node , int sw_ranges, int sw_point , int mask ) ;
29int print_warning( FILE * fp , char * fname ) ;
30int close_the_file( FILE * fp  ) ;
31int make_entries_uniq ( char * fname ) ;
32int add_warning ( char * fname ) ;
33
34node_t * get_type_entry ( char * typename ) ;
35node_t * get_rconfig_entry( char * name ) ;
36node_t * get_entry ( char * name , node_t * node ) ;
37node_t * get_entry_r ( char * name , char * use , node_t * node ) ;
38node_t * get_dim_entry( char *s ) ;
39node_t * new_node ( int kind ) ;
40
41node_t * get_4d_entry ( char * name ) ;
42node_t * get_dimnode_for_coord ( node_t * node , int coord_axis ) ;
43int      get_index_for_coord ( node_t * node , int coord_axis ) ;
44
45char * my_strtok( char * s1 ) ;
46char * strtok_rentr( char * s1 , char * s2, char ** tokpos ) ;
47
48char * bdy_indicator( int bdy ) ;
49
50char * field_name( char * tmp, node_t * p , int tag ) ;
51char * field_name_bdy( char * tmp, node_t * p , int tag, int bdy  ) ;
52char * dimension_with_colons( char * pre, char * tmp, node_t * p, char * post) ;
53char * dimension_with_ones( char * pre, char * tmp, node_t * p, char * post) ;
54char * dimension_with_ranges( char * ref , char * pre, int bdy , char * tmp, node_t * p, char * post, char * nlstructname ) ;
55char * arrray_size_expression( char * refarg , char * pre , int bdy , char * tmp , node_t * p , char * post , char * nlstructname  ) ;
56char * index_with_firstelem( char * pre , char * dref , int bdy , char * tmp , node_t * p , char * post ) ;
57
58char * declare_array_as_pointer( char * tmp, node_t * p ) ;
59char * field_type( char * tmp , node_t * p ) ;
60
61/* For typedef history -ajb */
62int init_typedef_history() ;
63int add_typedef_name ( char * name ) ;
64int get_num_typedefs() ;
65char * get_typedef_name ( char * name ) ;
66char * get_typename_i(int i) ;
67
68int gen_alloc ( char * dirname ) ;
69int gen_alloc1 ( char * dirname ) ;
70int gen_alloc2 ( FILE * fp , char * structname , node_t * node, int *j, int *iguy, int *fraction, int numguys, int frac, int sw );
71
72int gen_module_state_description ( char * dirname ) ;
73int gen_module_state_description1 ( FILE * fp , node_t * node ) ;
74
75int gen_scalar_indices ( char * dirname ) ;
76int gen_scalar_indices1 ( FILE * fp, FILE ** fp2 ) ;
77
78int gen_actual_args ( char * dirname ) ;
79int gen_dummy_args ( char * dirname ) ;
80int gen_dummy_decls ( char * dn ) ;
81int gen_args ( char * dirname , int sw ) ;
82int gen_args1 ( FILE * fp , char * outstr, char * structname , node_t * node , int *linelen , int sw , int deep ) ;
83
84int gen_scalar_derefs ( char * dirname ) ;
85int scalar_derefs ( char * dirname ) ;
86int scalar_derefs1 ( FILE * fp , node_t * node, int direction ) ;
87
88int set_mark ( int val , node_t * lst ) ;
89int set_mark_4d ( int val , node_t * lst ) ;
90
91int gen_i1_decls ( char * dn ) ;
92int gen_get_nl_config ( char * dirname ) ;
93
94int gen_config_assigns ( char * dirname ) ;
95int gen_config_reads ( char * dirname ) ;
96
97char * set_mem_order( node_t * node , char * str , int n  ) ;
98
99int gen_wrf_io ( char * dirname ) ;
100int 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 ) ;
101int 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 ) ;
102int 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 ) ;
103int gen_wrf_io2 ( FILE * fp , char * fname , char * structname , char * fourdname , node_t * node , int sw_io ) ;
104
105int gen_namelist_defines ( char * dirname , int sw_dimension ) ;
106int gen_namelist_defaults ( char * dirname ) ;
107int gen_namelist_script ( char * dirname ) ;
108
109int gen_model_data_ord ( char * dirname ) ;
110
111int get_elem ( char * structname , char * nlstructname , char * tx , int i , node_t * p , int first_last ) ;
112
113int associated_with_4d_array( node_t * p ) ;
114
115 
116/* PGI Addition to resolve non-prototype function warnings  */
117char * array_size_expression ( char *, char *, int, char *, node_t *, char * ,char * ); 
118int range_of_dimension ( char *, char * , int, node_t *, char * );
119int dimension_size_expression ( char *, char *, int, node_t *, char *);
120int gen_alloc_count ( char *);
121int gen_alloc_count1 ( char *);
122int gen_ddt_write ( char * );
123int gen_ddt_write1 ( FILE *, char *, node_t *);
124int gen_dealloc ( char * );
125int gen_dealloc1 ( char * );
126int gen_dealloc2 ( FILE *, char *, node_t *);
127int gen_scalar_tables ( FILE *);
128int gen_scalar_tables_init ( FILE *);
129int gen_scalar_indices_init ( FILE *);
130int hash(char *);
131int gen_nest_interp1 ( FILE *, node_t *, char *, int, int );
132int 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 );
133int 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 );
134int gen_periods ( char * dirname , node_t * periods );
135int gen_swaps ( char * dirname , node_t * swaps );
136int gen_cycles ( char * dirname , node_t * cycles );
137int gen_xposes ( char * dirname );
138int gen_comm_descrips ( char * dirname );
139int gen_shift (  char * dirname );
140int gen_datacalls ( char * dirname );
141int gen_nest_packing ( char * dirname );
142int gen_nest_pack ( char * dirname );
143int gen_nest_unpack ( char * dirname );
144int gen_nest_packunpack ( FILE *fp , node_t * node , int dir, int down_path );
145int count_fields ( node_t * node , int * d2 , int * d3 ,  char * fourd_names, int down_path );
146int gen_debug (  char * dirname );
147
148void reset_mask ( unsigned int * mask , int e ) ;
149void set_mask ( unsigned int * mask , int e ) ;
150int get_mask ( unsigned int * mask , int e ) ;
151
152#define PROTOS_H
153#endif
154
Note: See TracBrowser for help on using the repository browser.