/[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.4 by cnh, Wed Oct 28 03:11:35 1998 UTC revision 1.5 by adcroft, Mon Mar 22 17:37:43 1999 UTC
# Line 65  C--   Sum within the process first Line 65  C--   Sum within the process first
65         IF ( usingMPI ) THEN         IF ( usingMPI ) THEN
66  #endif  #endif
67          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_REAL,MPI_SUM,          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_REAL,MPI_SUM,
68       &                   MPI_COMM_WORLD,mpiRC)       &                   MPI_COMM_MODEL,mpiRC)
69  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
70         ENDIF         ENDIF
71  #endif  #endif
# Line 137  C--   Sum within the process first Line 137  C--   Sum within the process first
137         IF ( usingMPI ) THEN         IF ( usingMPI ) THEN
138  #endif  #endif
139          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,
140       &                   MPI_COMM_WORLD,mpiRC)       &                   MPI_COMM_MODEL,mpiRC)
141  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
142         ENDIF         ENDIF
143  #endif  #endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22