From 28df77a2c720a755f653a948a1f7d3c5da67cc6c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 9 Dec 2016 09:36:50 +0100
Subject: [PATCH] Philippe 09/12/2016: re-added #ifndef MNH_SP4 to prevent
 problems when compiling on Blue Gene/Q with -qautodbl=4

---
 src/SURFEX/gather_and_write_mpi.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/SURFEX/gather_and_write_mpi.F90 b/src/SURFEX/gather_and_write_mpi.F90
index beac3cf56..b5ab7dc5e 100644
--- a/src/SURFEX/gather_and_write_mpi.F90
+++ b/src/SURFEX/gather_and_write_mpi.F90
@@ -48,6 +48,7 @@ INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
 !
 END SUBROUTINE GATHER_AND_WRITE_MPI_X2D
 !
+#ifndef MNH_SP4
 SUBROUTINE GATHER_AND_WRITE_MPI_X1DK4(PWORK,PWORK2,KMASK)
 !
 REAL, DIMENSION(:), INTENT(IN) :: PWORK
@@ -65,6 +66,7 @@ REAL(KIND=4), DIMENSION(:,:), INTENT(OUT) :: PWORK2
 INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
 !
 END SUBROUTINE GATHER_AND_WRITE_MPI_X2DK4
+#endif
 !
 END INTERFACE
 !
-- 
GitLab