Changeset 689 for codes/icosagcm/devel/Python/src/functions.h

Timestamp:

04/09/18 15:24:15 (6 years ago)

Author:

dubos

Message:

devel/unstructured : select double or single precision for physical quantities

File:

• codes/icosagcm/devel/Python/src/functions.h (modified) (1 diff)

codes/icosagcm/devel/Python/src/functions.h

@@ -1 +1 @@
 /* KERNELS */
 
+#undef PREC_DOUBLE
+
+#ifdef PREC_DOUBLE
+typedef double number;
+#else
+typedef float number;
+#endif
+
 enum {max_nb_stage=5};
-extern double tauj[max_nb_stage];
-extern double cslj[max_nb_stage][max_nb_stage], cflj[max_nb_stage][max_nb_stage];
+extern number tauj[max_nb_stage];
+extern number cslj[max_nb_stage][max_nb_stage], cflj[max_nb_stage][max_nb_stage];
 
 void dynamico_init_params(void);
 
 void dynamico_ARK_step(int nstep,
-                       double *mass_col, double *rhodz, double *theta_rhodz, 
-                       double *u, double *geopot, double *w,
-                       double *theta, double *ps, double *pk, double *hflux, double *qv,
-                       double *dmass_col, double *drhodz, double *dtheta_rhodz,
-                       double *du_fast, double *du_slow,
-                       double *dPhi_fast, double *dPhi_slow, 
-                       double *dW_fast, double *dW_slow);
+                       number *mass_col, number *rhodz, number *theta_rhodz, 
+                       number *u, number *geopot, number *w,
+                       number *theta, number *ps, number *pk, number *hflux, number *qv,
+                       number *dmass_col, number *drhodz, number *dtheta_rhodz,
+                       number *du_fast, number *du_slow,
+                       number *dPhi_fast, number *dPhi_slow, 
+                       number *dW_fast, number *dW_slow);
+
+void dynamico_remap(number *rhodz, number *theta_rhodz, number *u);
 
 /* KERNELS -> XIOS */