Juan 17/10/2017:mpivide.c/Makefile.MESONH.mk, for real*4 , manage size of real with...
authorJuan Escobar <escj@aero.obs-mip.fr>
Tue, 17 Oct 2017 16:10:10 +0000 (18:10 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Tue, 17 Oct 2017 16:10:10 +0000 (18:10 +0200)
src/LIB/MPIvide/mpivide.c
src/Makefile.MESONH.mk

index 5372f4a..9c41ffa 100644 (file)
@@ -9,8 +9,13 @@ MNH_LIC for details. version 1.
 
 /* Variables defined in meso-nh code */
 #ifdef FUJI
+#if MNH_REALS == 4
+  #define MPI_PRECISION MPI_REAL
+  #define MPI_2PRECISION MPI_2REAL
+#else
   #define MPI_PRECISION MPI_DOUBLE_PRECISION
   #define MPI_2PRECISION MPI_2DOUBLE_PRECISION
+#endif
 #else
   #define MPI_PRECISION MPI_REAL
   #define MPI_2PRECISION MPI_2REAL
@@ -27,8 +32,13 @@ MNH_LIC for details. version 1.
 #define SIZEINTEGER 4
 #define SIZELOGICAL 4
 #endif
+#if MNH_REALS == 4
+#define SIZEPRECISION 4
+#define SIZE2PRECISION 8 
+#else 
 #define SIZEPRECISION 8 
 #define SIZE2PRECISION 16 
+#endif
 #else
 #define SIZEINTEGER 8 
 #define SIZEPRECISION 8
index be4d43e..1c74c73 100644 (file)
@@ -50,7 +50,7 @@ CPPFLAGS   += $(CPPFLAGS_MNH)
 INC        += $(INC_MNH)
 
 ifeq "$(MNH_INT)" "8"
-CPPFLAGS   += -DMNH_INT8
+CPPFLAGS   += -DMNH_INT=8
 endif
 
 #
@@ -251,7 +251,12 @@ INC_MPI                = -I$(B)$(DIR_MPI)
 DIR_MASTER            += $(DIR_MPI)
 OBJS_LISTE_MASTER     += mpivide.o
 INC                   += $(INC_MPI)
-mpivide.o  : CPPFLAGS += -DFUJI -DMNH_INT=$(MNH_INT)\
+ifneq "$(MNH_REAL)" "R4"
+MNH_REALS=8
+else
+MNH_REALS=4
+endif
+mpivide.o  : CPPFLAGS += -DFUJI -DMNH_INT=$(MNH_INT) -DMNH_REALS=$(MNH_REALS) \
                         -I$(DIR_MPI)/include
 VPATH                 += $(DIR_MPI)
 endif