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

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

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

revision 1.15 by mlosch, Wed May 19 08:14:16 2010 UTC revision 1.16 by jmc, Mon Sep 3 19:37:54 2012 UTC
# Line 79  C                                   tile Line 79  C                                   tile
79        INTEGER spinCount        INTEGER spinCount
80  #endif  #endif
81  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
82        INTEGER theProc, theTag, theType, theSize, pReqI        INTEGER theProc, theTag, theType, theSize
83        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc        INTEGER mpiStatus(MPI_STATUS_SIZE,4), mpiRc
84  #endif  # ifdef ALLOW_AUTODIFF_OPENAD_AMPI
85          INTEGER pReqI
86    # endif
87    #endif /* ALLOW_USE_MPI */
88  CEOP  CEOP
89    
90  C--   Under a "put" scenario we  C--   Under a "put" scenario we
# Line 95  C--    ii. Read the data. Line 98  C--    ii. Read the data.
98  C--   iii. Set data read flag + memory sync.  C--   iii. Set data read flag + memory sync.
99    
100  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
 #ifndef ALWAYS_USE_MPI  
101        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
102  #endif  
103  C--   Receive buffer data: Only Master Thread do proc communication  C--   Receive buffer data: Only Master Thread do proc communication
104        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
105    
# Line 190  C--   need to sync threads after master Line 192  C--   need to sync threads after master
192  C     (done after mpi waitall in case waitall is really needed)  C     (done after mpi waitall in case waitall is really needed)
193        _BARRIER        _BARRIER
194    
 #ifndef ALWAYS_USE_MPI  
195        ENDIF        ENDIF
 #endif  
196  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
197    
198  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.
199  C     note: added BARRIER in exch_send_put S/R and here above (message mode)  C     note: added BARRIER in exch_send_put S/R and here above (message mode)
200  C           so that we no longer needs this (undef EXCH_USE_SPINNING)  C           so that we no longer needs this (undef EXCH_USE_SPINNING)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22