[615] | 1 | /* KERNELS */ |
---|
| 2 | |
---|
[639] | 3 | enum {max_nb_stage=5}; |
---|
| 4 | extern double tauj[max_nb_stage]; |
---|
| 5 | extern double cslj[max_nb_stage][max_nb_stage], cflj[max_nb_stage][max_nb_stage]; |
---|
| 6 | |
---|
[618] | 7 | void dynamico_init_params(void); |
---|
| 8 | |
---|
[642] | 9 | void dynamico_ARK_step(int nstep, |
---|
| 10 | double *mass_col, double *rhodz, double *theta_rhodz, |
---|
[639] | 11 | double *u, double *geopot, double *w, |
---|
| 12 | double *theta, double *ps, double *pk, double *hflux, double *qv, |
---|
| 13 | double *dmass_col, double *drhodz, double *dtheta_rhodz, |
---|
| 14 | double *du_fast, double *du_slow, |
---|
| 15 | double *dPhi_fast, double *dPhi_slow, |
---|
| 16 | double *dW_fast, double *dW_slow); |
---|
| 17 | |
---|
[615] | 18 | /* KERNELS -> XIOS */ |
---|
[618] | 19 | void dynamico_setup_xios(void); |
---|
| 20 | void dynamico_xios_set_timestep(double); |
---|
| 21 | void dynamico_xios_update_calendar(int); |
---|
[615] | 22 | /* CXIOS */ |
---|
| 23 | void cxios_context_close_definition(void); |
---|
| 24 | void cxios_context_finalize(void); |
---|
| 25 | void cxios_finalize(void); |
---|
[630] | 26 | |
---|
| 27 | void cxios_write_data_k81(char*, int, double*, int); |
---|
| 28 | void cxios_write_data_k82(char*, int, double*, int, int); |
---|
| 29 | void cxios_write_data_k83(char*, int, double*, int, int, int); |
---|