/[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.4 by jmc, Thu Sep 2 14:02:50 2004 UTC revision 1.5 by cnh, Mon Nov 7 19:03:36 2005 UTC
# Line 83  C     mpiStatus                  :: MPI Line 83  C     mpiStatus                  :: MPI
83  #endif  #endif
84  CEOP  CEOP
85    
86    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
87           INTEGER myBxLoSave(MAX_NO_THREADS)
88           INTEGER myBxHiSave(MAX_NO_THREADS)
89           INTEGER myByLoSave(MAX_NO_THREADS)
90           INTEGER myByHiSave(MAX_NO_THREADS)
91    #endif /* SINGLE_THREADED_EXCH_COMMS */
92    
93    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
94          _BARRIER
95          IF ( myThid .EQ. 1 ) THEN
96           DO I=1,nThreads
97            myBxLoSave(I) = myBxLo(I)
98            myBxHiSave(I) = myBxHi(I)
99            myByLoSave(I) = myByLo(I)
100            myByHiSave(I) = myByHi(I)
101            myBxLo(I) = 0
102            myBxHi(I) = -1
103            myByLo(I) = 0
104            myByHi(I) = -1
105           ENDDO
106           myBxLo(1) = 1
107           myBxHi(1) = nSx
108           myByLo(1) = 1
109           myByHi(1) = nSy
110          ENDIF
111          _BARRIER
112    #endif /* SINGLE_THREADED_EXCH_COMMS */
113    
114  C--   Under a "put" scenario we  C--   Under a "put" scenario we
115  C--     i. set completetion signal for buffer we put into.  C--     i. set completetion signal for buffer we put into.
116  C--    ii. wait for completetion signal indicating data has been put in  C--    ii. wait for completetion signal indicating data has been put in
# Line 330  C--   Read from the buffers Line 358  C--   Read from the buffers
358         ENDDO         ENDDO
359        ENDDO        ENDDO
360    
361    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
362          _BARRIER
363          IF ( myThid .EQ. 1 ) THEN
364           DO I=1,nThreads
365            myBxLo(I) = myBxLoSave(I)
366            myBxHi(I) = myBxHiSave(I)
367            myByLo(I) = myByLoSave(I)
368            myByHi(I) = myByHiSave(I)
369           ENDDO
370          ENDIF
371          _BARRIER
372    #endif /* USE_SINGLE_THREADED_EXCH_COMMS */
373    
374        RETURN        RETURN
375        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22