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

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

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

revision 1.1 by cnh, Tue Sep 29 18:53:45 1998 UTC revision 1.2 by adcroft, Mon Mar 22 17:37:43 1999 UTC
# Line 98  C Line 98  C
98  #endif  #endif
99          tmp = answer          tmp = answer
100          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,          CALL MPI_Allreduce(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,
101       &                   MPI_COMM_WORLD,mpiRC)       &                   MPI_COMM_MODEL,mpiRC)
102          answer = sumPhi          answer = sumPhi
103  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
104         ENDIF         ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22