/[MITgcm]/MITgcm/eesupp/src/global_sum.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/global_sum.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by cnh, Fri Sep 21 03:54:35 2001 UTC revision 1.11 by jmc, Mon Dec 15 02:02:38 2003 UTC
# Line 76  C--   Sum within the process first Line 76  C--   Sum within the process first
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
# Line 169  C--   Sum within the process first Line 169  C--   Sum within the process first
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
# Line 260  C--   Sum within the process first Line 260  C--   Sum within the process first
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
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22