source: codes/icosagcm/devel/Python/src/functions.h @ 746

Last change on this file since 746 was 746, checked in by dubos, 6 years ago

devel : make_icosa option for mixed precision (completes r744)

File size: 1.2 KB
Line 
1/* KERNELS */
2
3#ifdef CPP_MIXED_PREC
4typedef float number;
5#else
6typedef double number;
7#endif
8
9enum {max_nb_stage=5};
10extern number tauj[max_nb_stage];
11extern number cslj[max_nb_stage][max_nb_stage], cflj[max_nb_stage][max_nb_stage];
12
13void dynamico_init_params(void);
14
15void dynamico_ARK_step(int nstep,
16                       number *mass_col, number *rhodz, number *theta_rhodz, 
17                       number *u, number *geopot, number *w,
18                       number *theta, number *ps, number *pk, number *hflux, number *qv,
19                       number *dmass_col, number *drhodz, number *dtheta_rhodz,
20                       number *du_fast, number *du_slow,
21                       number *dPhi_fast, number *dPhi_slow, 
22                       number *dW_fast, number *dW_slow);
23
24void dynamico_remap(number *rhodz, number *theta_rhodz, number *u);
25
26/* KERNELS -> XIOS */
27void dynamico_setup_xios(void);
28void dynamico_xios_set_timestep(double);
29void dynamico_xios_update_calendar(int);
30/* CXIOS */
31void cxios_context_close_definition(void);
32void cxios_context_finalize(void);
33void cxios_finalize(void);
34
35void cxios_write_data_k81(char*, int, double*, int);
36void cxios_write_data_k82(char*, int, double*, int, int);
37void cxios_write_data_k83(char*, int, double*, int, int, int);
Note: See TracBrowser for help on using the repository browser.