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

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

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

revision 1.3 by dimitri, Wed Nov 12 00:02:44 2003 UTC revision 1.4 by cnh, Mon Nov 7 19:03:36 2005 UTC
# Line 103  C                Sync. memory Line 103  C                Sync. memory
103  C        C      
104  CEOP  CEOP
105    
106    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
107           INTEGER myBxLoSave(MAX_NO_THREADS)
108           INTEGER myBxHiSave(MAX_NO_THREADS)
109           INTEGER myByLoSave(MAX_NO_THREADS)
110           INTEGER myByHiSave(MAX_NO_THREADS)
111    #endif /* SINGLE_THREADED_EXCH_COMMS */
112    
113    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
114          _BARRIER
115          IF ( myThid .EQ. 1 ) THEN
116           DO I=1,nThreads
117            myBxLoSave(I) = myBxLo(I)
118            myBxHiSave(I) = myBxHi(I)
119            myByLoSave(I) = myByLo(I)
120            myByHiSave(I) = myByHi(I)
121            myBxLo(I) = 0
122            myBxHi(I) = -1
123            myByLo(I) = 0
124            myByHi(I) = -1
125           ENDDO
126           myBxLo(1) = 1
127           myBxHi(1) = nSx
128           myByLo(1) = 1
129           myByHi(1) = nSy
130          ENDIF
131          _BARRIER
132    #endif /* SINGLE_THREADED_EXCH_COMMS */
133    
134        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
135         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
136    
# Line 351  C     is much too slow and if we own the Line 379  C     is much too slow and if we own the
379  C     per process preemption is not a problem.  C     per process preemption is not a problem.
380        IF ( exchNeedsMemSync  ) CALL MEMSYNC        IF ( exchNeedsMemSync  ) CALL MEMSYNC
381    
382    #ifdef USE_SINGLE_THREADED_EXCH_COMMS
383          _BARRIER
384          IF ( myThid .EQ. 1 ) THEN
385           DO I=1,nThreads
386            myBxLo(I) = myBxLoSave(I)
387            myBxHi(I) = myBxHiSave(I)
388            myByLo(I) = myByLoSave(I)
389            myByHi(I) = myByHiSave(I)
390           ENDDO
391          ENDIF
392          _BARRIER
393    #endif /* USE_SINGLE_THREADED_EXCH_COMMS */
394    
395        RETURN        RETURN
396        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22