Changeset 744 for codes/icosagcm/devel/src/unstructured
- Timestamp:
- 10/03/18 17:58:55 (6 years ago)
- Location:
- codes/icosagcm/devel/src/unstructured
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r700 r744 13 13 caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0 14 14 LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE. 15 16 #ifdef CPP_MIXED_PREC 17 LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.TRUE. 18 #else 19 LOGICAL(C_BOOL), BIND(C) :: mixed_precision=.FALSE. 20 #endif 15 21 16 22 INDEX, BIND(C) :: llm, nqdyn, edge_num, primal_num, dual_num, & -
codes/icosagcm/devel/src/unstructured/unstructured.h90
r688 r744 1 #undef PREC_DOUBLE2 3 1 #define DBL REAL(C_DOUBLE) 4 2 #define FLT REAL(C_FLOAT) 5 3 #define TIME DBL 6 4 7 #ifdef PREC_DOUBLE 5 #ifdef CPP_MIXED_PREC 6 #define NUM FLT 7 #define MPI_NUM MPI_REAL4 8 #else 8 9 #define NUM DBL 9 10 #define MPI_NUM MPI_REAL8 10 #else11 #define NUM FLT12 #define MPI_NUM MPI_REAL413 11 #endif 14 12
Note: See TracChangeset
for help on using the changeset viewer.