/[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.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.4 by cnh, Wed Oct 28 03:11:35 1998 UTC
# Line 50  C     mpiRC  - MPI return code Line 50  C     mpiRC  - MPI return code
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
# Line 122  C     mpiRC  - MPI return code Line 122  C     mpiRC  - MPI return code
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
# Line 146  C--     Write solution to place where al Line 146  C--     Write solution to place where al
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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22