diff --git a/src/SURFEX/gather_and_write_mpi.F90 b/src/SURFEX/gather_and_write_mpi.F90
index 2670cc85b7ecfde552614d6ecea263547f92994d..0cc1a8ef4d3132df67c46baa6aa80f6a7dc26771 100644
--- a/src/SURFEX/gather_and_write_mpi.F90
+++ b/src/SURFEX/gather_and_write_mpi.F90
@@ -66,6 +66,7 @@ INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
 !
 END SUBROUTINE GATHER_AND_WRITE_MPI_X3D
 !
+#ifndef MNH_SP4
 SUBROUTINE GATHER_AND_WRITE_MPI_X1DK4(PWORK,PWORK2,KMASK)
 !
 REAL, DIMENSION(:), INTENT(IN) :: PWORK
@@ -92,6 +93,7 @@ REAL(KIND=4), DIMENSION(:,:,:), INTENT(OUT) :: PWORK2
 INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
 !
 END SUBROUTINE GATHER_AND_WRITE_MPI_X3DK4
+#endif
 !
 END INTERFACE
 !