50 |
INTEGER mpiRC |
INTEGER mpiRC |
51 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
52 |
|
|
53 |
C-- Can't start until everyone is ready |
C-- Can not start until everyone is ready |
54 |
_BARRIER |
_BARRIER |
55 |
|
|
56 |
C-- Max within the process first |
C-- Max within the process first |
65 |
IF ( usingMPI ) THEN |
IF ( usingMPI ) THEN |
66 |
#endif |
#endif |
67 |
CALL MPI_Allreduce(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
CALL MPI_Allreduce(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
68 |
& MPI_COMM_WORLD,mpiRC) |
& MPI_COMM_MODEL,mpiRC) |
69 |
#ifndef ALWAYS_USE_MPI |
#ifndef ALWAYS_USE_MPI |
70 |
ENDIF |
ENDIF |
71 |
#endif |
#endif |
122 |
INTEGER mpiRC |
INTEGER mpiRC |
123 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
124 |
|
|
125 |
C-- Can't start until everyone is ready |
C-- Can not start until everyone is ready |
126 |
_BARRIER |
_BARRIER |
127 |
|
|
128 |
C-- Max within the process first |
C-- Max within the process first |
137 |
IF ( usingMPI ) THEN |
IF ( usingMPI ) THEN |
138 |
#endif |
#endif |
139 |
CALL MPI_Allreduce(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
CALL MPI_Allreduce(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
140 |
& MPI_COMM_WORLD,mpiRC) |
& MPI_COMM_MODEL,mpiRC) |
141 |
#ifndef ALWAYS_USE_MPI |
#ifndef ALWAYS_USE_MPI |
142 |
ENDIF |
ENDIF |
143 |
#endif |
#endif |
146 |
phi(1,1) = maxPhi |
phi(1,1) = maxPhi |
147 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
148 |
|
|
149 |
C-- Don't leave until we are sure that the max is done |
C-- Do not leave until we are sure that the max is done |
150 |
_BARRIER |
_BARRIER |
151 |
C |
C |
152 |
RETURN |
RETURN |
153 |
END |
END |
|
|
|
|
C $Id$ |
|