/[MITgcm]/MITgcm/eesupp/src/gather_2d_rx.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/gather_2d_rx.template

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

revision 1.4 by jmc, Fri May 22 00:15:00 2009 UTC revision 1.5 by jmc, Mon Jun 8 03:34:03 2009 UTC
# Line 16  C !INTERFACE: Line 16  C !INTERFACE:
16       I                  myThid )       I                  myThid )
17  C !DESCRIPTION:  C !DESCRIPTION:
18  C     Gather elements of a global 2-D array from all mpi processes to process 0.  C     Gather elements of a global 2-D array from all mpi processes to process 0.
19    C     Note: done by Master-Thread ; might need barrier calls before and after
20    C           this S/R call.
21    
22  C     !USES:  C     !USES:
23        IMPLICIT NONE        IMPLICIT NONE
# Line 59  C !LOCAL VARIABLES: Line 61  C !LOCAL VARIABLES:
61        INTEGER lbuff, idest, itag, ready_to_receive        INTEGER lbuff, idest, itag, ready_to_receive
62  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
63    
 C--   Make everyone wait except for master thread.  
       _BARRIER  
64        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
65    
66        IF( myProcId .EQ. 0 ) THEN        IF( myProcId .EQ. 0 ) THEN
# Line 238  C--   All proceses except 0 wait to be p Line 238  C--   All proceses except 0 wait to be p
238  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
239    
240        _END_MASTER( myThid )        _END_MASTER( myThid )
       _BARRIER  
241    
242        RETURN        RETURN
243        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22