Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

MPI_FLOAT and MPI_DOUBLE don't exist in Fortran #184

Merged
merged 1 commit into from
Dec 12, 2024
Merged

MPI_FLOAT and MPI_DOUBLE don't exist in Fortran #184

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions src/trans/gpu/internal/trgtol_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -114,7 +114,7 @@ SUBROUTINE TRGTOL(ALLOCATOR,HTRGTOL,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,
USE MPL_DATA_MODULE, ONLY: MPL_COMM_OML
USE OML_MOD, ONLY: OML_MY_THREAD
#if ECTRANS_HAVE_MPI
USE MPI_F08, ONLY: MPI_COMM, MPI_REQUEST, MPI_FLOAT, MPI_DOUBLE
USE MPI_F08, ONLY: MPI_COMM, MPI_REQUEST, MPI_REAL4, MPI_REAL8
! Missing: MPI_ISEND, MPI_IRECV on purpose due to cray-mpi bug (see https://github.com/ecmwf-ifs/ectrans/pull/157)
#endif
USE TPM_STATS, ONLY: GSTATS => GSTATS_NVTX
Expand Down Expand Up @@ -187,9 +187,9 @@ SUBROUTINE TRGTOL(ALLOCATOR,HTRGTOL,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,


#ifdef PARKINDTRANS_SINGLE
#define TRGTOL_DTYPE MPI_FLOAT
#define TRGTOL_DTYPE MPI_REAL4
#else
#define TRGTOL_DTYPE MPI_DOUBLE
#define TRGTOL_DTYPE MPI_REAL8
#endif

#if ECTRANS_HAVE_MPI
Expand Down
6 changes: 3 additions & 3 deletions src/trans/gpu/internal/trltog_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -115,7 +115,7 @@ SUBROUTINE TRLTOG(ALLOCATOR,HTRLTOG,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,
USE OML_MOD, ONLY: OML_MY_THREAD
USE ABORT_TRANS_MOD, ONLY: ABORT_TRANS
#if ECTRANS_HAVE_MPI
USE MPI_F08, ONLY: MPI_COMM, MPI_REQUEST, MPI_FLOAT, MPI_DOUBLE
USE MPI_F08, ONLY: MPI_COMM, MPI_REQUEST, MPI_REAL4, MPI_REAL8
! Missing: MPI_ISEND, MPI_IRECV on purpose due to cray-mpi bug (see https://github.com/ecmwf-ifs/ectrans/pull/157)
#endif
USE TPM_STATS, ONLY: GSTATS => GSTATS_NVTX
Expand Down Expand Up @@ -197,9 +197,9 @@ SUBROUTINE TRLTOG(ALLOCATOR,HTRLTOG,PREEL_REAL,KF_FS,KF_GP,KF_UV_G,KF_SCALARS_G,
#endif

#ifdef PARKINDTRANS_SINGLE
#define TRLTOG_DTYPE MPI_FLOAT
#define TRLTOG_DTYPE MPI_REAL4
#else
#define TRLTOG_DTYPE MPI_DOUBLE
#define TRLTOG_DTYPE MPI_REAL8
#endif
#if ECTRANS_HAVE_MPI
IF(.NOT. LMPOFF) THEN
Expand Down
6 changes: 3 additions & 3 deletions src/trans/gpu/internal/trltom_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,7 @@ SUBROUTINE TRLTOM(ALLOCATOR,HTRLTOM,PFBUF_IN,PFBUF,KF_FS)
USE TPM_DISTR, ONLY: D, NPRTRW, NPROC, MYPROC, MYSETW
USE TPM_GEN, ONLY: LSYNC_TRANS, NERR, LMPOFF
#if ECTRANS_HAVE_MPI
USE MPI_F08, ONLY: MPI_COMM, MPI_FLOAT, MPI_DOUBLE
USE MPI_F08, ONLY: MPI_COMM, MPI_REAL4, MPI_REAL8
! Missing: MPI_ALLTOALLV on purpose due to cray-mpi bug (see https://github.com/ecmwf-ifs/ectrans/pull/157)
#endif
USE TPM_STATS, ONLY: GSTATS => GSTATS_NVTX
Expand All @@ -120,9 +120,9 @@ SUBROUTINE TRLTOM(ALLOCATOR,HTRLTOM,PFBUF_IN,PFBUF,KF_FS)
#endif

#ifdef PARKINDTRANS_SINGLE
#define TRLTOM_DTYPE MPI_FLOAT
#define TRLTOM_DTYPE MPI_REAL4
#else
#define TRLTOM_DTYPE MPI_DOUBLE
#define TRLTOM_DTYPE MPI_REAL8
#endif

#if ECTRANS_HAVE_MPI
Expand Down
6 changes: 3 additions & 3 deletions src/trans/gpu/internal/trmtol_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,7 @@ SUBROUTINE TRMTOL(ALLOCATOR,HTRMTOL,PFBUF_IN,PFBUF,KF_LEG)
USE TPM_DISTR, ONLY: D, NPRTRW, NPROC, MYPROC, MYSETW
USE TPM_GEN, ONLY: LSYNC_TRANS, NERR, LMPOFF
#if ECTRANS_HAVE_MPI
USE MPI_F08, ONLY: MPI_COMM, MPI_FLOAT, MPI_DOUBLE
USE MPI_F08, ONLY: MPI_COMM, MPI_REAL4, MPI_REAL8
! Missing: MPI_ALLTOALLV on purpose due to cray-mpi bug (see https://github.com/ecmwf-ifs/ectrans/pull/157)
#endif
USE BUFFERED_ALLOCATOR_MOD, ONLY: BUFFERED_ALLOCATOR, ASSIGN_PTR, GET_ALLOCATION
Expand All @@ -121,9 +121,9 @@ SUBROUTINE TRMTOL(ALLOCATOR,HTRMTOL,PFBUF_IN,PFBUF,KF_LEG)
#endif

#ifdef PARKINDTRANS_SINGLE
#define TRMTOL_DTYPE MPI_FLOAT
#define TRMTOL_DTYPE MPI_REAL4
#else
#define TRMTOL_DTYPE MPI_DOUBLE
#define TRMTOL_DTYPE MPI_REAL8
#endif

#if ECTRANS_HAVE_MPI
Expand Down
Loading