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
RevLine 
[615]1/* KERNELS */
2
[746]3#ifdef CPP_MIXED_PREC
4typedef float number;
5#else
[689]6typedef double number;
7#endif
8
[639]9enum {max_nb_stage=5};
[689]10extern number tauj[max_nb_stage];
11extern number cslj[max_nb_stage][max_nb_stage], cflj[max_nb_stage][max_nb_stage];
[639]12
[618]13void dynamico_init_params(void);
14
[642]15void dynamico_ARK_step(int nstep,
[689]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);
[639]23
[689]24void dynamico_remap(number *rhodz, number *theta_rhodz, number *u);
25
[615]26/* KERNELS -> XIOS */
[618]27void dynamico_setup_xios(void);
28void dynamico_xios_set_timestep(double);
29void dynamico_xios_update_calendar(int);
[615]30/* CXIOS */
31void cxios_context_close_definition(void);
32void cxios_context_finalize(void);
33void cxios_finalize(void);
[630]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.