Skip to content
Snippets Groups Projects
Commit 36eec317 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 13/02/2018: re-added #ifndef MNH_SP4 to prevent problems when...

Philippe 13/02/2018: re-added #ifndef MNH_SP4 to prevent problems when compiling on Blue Gene/Q with -qautodbl=4
parent 07a5b24c
No related branches found
No related tags found
No related merge requests found
...@@ -66,6 +66,7 @@ INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK ...@@ -66,6 +66,7 @@ INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
! !
END SUBROUTINE GATHER_AND_WRITE_MPI_X3D END SUBROUTINE GATHER_AND_WRITE_MPI_X3D
! !
#ifndef MNH_SP4
SUBROUTINE GATHER_AND_WRITE_MPI_X1DK4(PWORK,PWORK2,KMASK) SUBROUTINE GATHER_AND_WRITE_MPI_X1DK4(PWORK,PWORK2,KMASK)
! !
REAL, DIMENSION(:), INTENT(IN) :: PWORK REAL, DIMENSION(:), INTENT(IN) :: PWORK
...@@ -92,6 +93,7 @@ REAL(KIND=4), DIMENSION(:,:,:), INTENT(OUT) :: PWORK2 ...@@ -92,6 +93,7 @@ REAL(KIND=4), DIMENSION(:,:,:), INTENT(OUT) :: PWORK2
INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK INTEGER, DIMENSION(:), INTENT(IN), OPTIONAL :: KMASK
! !
END SUBROUTINE GATHER_AND_WRITE_MPI_X3DK4 END SUBROUTINE GATHER_AND_WRITE_MPI_X3DK4
#endif
! !
END INTERFACE END INTERFACE
! !
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment