Changeset 744 for codes/icosagcm/devel/src

Timestamp:

10/03/18 17:58:55 (6 years ago)

Author:

dubos

Message:

devel : make_icosa option for mixed precision

Location:

codes/icosagcm/devel/src/unstructured

Files:

• data_unstructured.F90 (modified) (1 diff)
• unstructured.h90 (modified) (1 diff)

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -13 +13 @@
        caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0
   LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE.
+
+#ifdef CPP_MIXED_PREC
+  LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.TRUE.
+#else
+  LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.FALSE.
+#endif
 
   INDEX, BIND(C) :: llm, nqdyn, edge_num, primal_num, dual_num, &

codes/icosagcm/devel/src/unstructured/unstructured.h90

@@ -1 @@
-#undef PREC_DOUBLE
-
 #define DBL REAL(C_DOUBLE)
 #define FLT REAL(C_FLOAT)
 #define TIME DBL
 
-#ifdef PREC_DOUBLE
+#ifdef CPP_MIXED_PREC
+#define NUM FLT
+#define MPI_NUM MPI_REAL4
+#else
 #define NUM DBL
 #define MPI_NUM MPI_REAL8
-#else
-#define NUM FLT
-#define MPI_NUM MPI_REAL4
 #endif