76 |
IF ( usingMPI ) THEN |
IF ( usingMPI ) THEN |
77 |
#endif |
#endif |
78 |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_REAL,MPI_SUM, |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_REAL,MPI_SUM, |
79 |
& MPI_COMM_WORLD,mpiRC) |
& MPI_COMM_MODEL,mpiRC) |
80 |
#ifndef ALWAYS_USE_MPI |
#ifndef ALWAYS_USE_MPI |
81 |
ENDIF |
ENDIF |
82 |
#endif |
#endif |
169 |
IF ( usingMPI ) THEN |
IF ( usingMPI ) THEN |
170 |
#endif |
#endif |
171 |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
172 |
& MPI_COMM_WORLD,mpiRC) |
& MPI_COMM_MODEL,mpiRC) |
173 |
#ifndef ALWAYS_USE_MPI |
#ifndef ALWAYS_USE_MPI |
174 |
ENDIF |
ENDIF |
175 |
#endif |
#endif |
260 |
IF ( usingMPI ) THEN |
IF ( usingMPI ) THEN |
261 |
#endif |
#endif |
262 |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_INTEGER,MPI_SUM, |
CALL MPI_Allreduce(tmp,sumPhi,1,MPI_INTEGER,MPI_SUM, |
263 |
& MPI_COMM_WORLD,mpiRC) |
& MPI_COMM_MODEL,mpiRC) |
264 |
#ifndef ALWAYS_USE_MPI |
#ifndef ALWAYS_USE_MPI |
265 |
ENDIF |
ENDIF |
266 |
#endif |
#endif |