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-- Sum within the process first |
C-- Sum within the process first |
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-- Sum within the process first |
C-- Sum within the process first |
146 |
phi(1,1) = sumPhi |
phi(1,1) = sumPhi |
147 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
148 |
|
|
149 |
C-- Don't leave until we are sure that the sum is done |
C-- Do not leave until we are sure that the sum is done |
150 |
_BARRIER |
_BARRIER |
151 |
C |
C |
152 |
RETURN |
RETURN |