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

Diff of /MITgcm/eesupp/src/scatter_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     Scatter elements of a global 2-D array from mpi process 0 to all processes.  C     Scatter elements of a global 2-D array from mpi process 0 to all processes.
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, isource, itag        INTEGER lbuff, isource, itag
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  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
# Line 234  C-    end if myProcId = 0 Line 234  C-    end if myProcId = 0
234        ENDIF        ENDIF
235    
236        _END_MASTER( myThid )        _END_MASTER( myThid )
       _BARRIER  
237    
238        RETURN        RETURN
239        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22