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

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

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

revision 1.14 by jmc, Mon May 17 02:28:06 2010 UTC revision 1.15 by jmc, Mon Sep 3 19:37:54 2012 UTC
# Line 81  C     mpiStatus                  :: MPI Line 81  C     mpiStatus                  :: MPI
81        INTEGER spinCount        INTEGER spinCount
82  #endif  #endif
83  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
84        INTEGER theProc, theTag, theType, theSize, pReqI        INTEGER theProc, theTag, theType, theSize
85        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc
86  #endif  # ifdef ALLOW_AUTODIFF_OPENAD_AMPI
87          INTEGER pReqI
88    # endif
89    #endif /* ALLOW_USE_MPI */
90  CEOP  CEOP
91    
92  C--   Under a "put" scenario we  C--   Under a "put" scenario we
# Line 97  C--    ii. Read the data. Line 100  C--    ii. Read the data.
100  C--   iii. Set data read flag + memory sync.  C--   iii. Set data read flag + memory sync.
101    
102  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
 #ifndef ALWAYS_USE_MPI  
103        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
104  #endif  
105  C--   Receive buffer data: Only Master Thread do proc communication  C--   Receive buffer data: Only Master Thread do proc communication
106        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
107    
# Line 195  C--   need to sync threads after master Line 197  C--   need to sync threads after master
197  C     (done after mpi waitall in case waitall is really needed)  C     (done after mpi waitall in case waitall is really needed)
198        _BARRIER        _BARRIER
199    
 #ifndef ALWAYS_USE_MPI  
200        ENDIF        ENDIF
 #endif  
201  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
202    
203  C--   Threads wait for buffers I am going to read to be ready.  C--   Threads wait for buffers I am going to read to be ready.
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22