83 |
#endif |
#endif |
84 |
CEOP |
CEOP |
85 |
|
|
|
#ifdef USE_SINGLE_THREADED_EXCH_COMMS |
|
86 |
INTEGER myBxLoSave(MAX_NO_THREADS) |
INTEGER myBxLoSave(MAX_NO_THREADS) |
87 |
INTEGER myBxHiSave(MAX_NO_THREADS) |
INTEGER myBxHiSave(MAX_NO_THREADS) |
88 |
INTEGER myByLoSave(MAX_NO_THREADS) |
INTEGER myByLoSave(MAX_NO_THREADS) |
89 |
INTEGER myByHiSave(MAX_NO_THREADS) |
INTEGER myByHiSave(MAX_NO_THREADS) |
90 |
#endif /* SINGLE_THREADED_EXCH_COMMS */ |
LOGICAL doingSingleThreadedComms |
91 |
|
|
92 |
#ifdef USE_SINGLE_THREADED_EXCH_COMMS |
doingSingleThreadedComms = .FALSE. |
93 |
_BARRIER |
#ifdef ALLOW_USE_MPI |
94 |
IF ( myThid .EQ. 1 ) THEN |
#ifndef ALWAYS_USE_MPI |
95 |
DO I=1,nThreads |
IF ( usingMPI ) THEN |
96 |
myBxLoSave(I) = myBxLo(I) |
#endif |
97 |
myBxHiSave(I) = myBxHi(I) |
C Set default behavior to have MPI comms done by a single thread. |
98 |
myByLoSave(I) = myByLo(I) |
C Most MPI implementations don't support concurrent comms from |
99 |
myByHiSave(I) = myByHi(I) |
C several threads. |
100 |
myBxLo(I) = 0 |
IF ( nThreads .GT. 1 ) THEN |
101 |
myBxHi(I) = -1 |
_BARRIER |
102 |
myByLo(I) = 0 |
_BEGIN_MASTER( myThid ) |
103 |
myByHi(I) = -1 |
DO I=1,nThreads |
104 |
ENDDO |
myBxLoSave(I) = myBxLo(I) |
105 |
myBxLo(1) = 1 |
myBxHiSave(I) = myBxHi(I) |
106 |
myBxHi(1) = nSx |
myByLoSave(I) = myByLo(I) |
107 |
myByLo(1) = 1 |
myByHiSave(I) = myByHi(I) |
108 |
myByHi(1) = nSy |
ENDDO |
109 |
|
C Comment out loop below and myB[xy][Lo|Hi](1) settings below |
110 |
|
C if you want to get multi-threaded MPI comms. |
111 |
|
DO I=1,nThreads |
112 |
|
myBxLo(I) = 0 |
113 |
|
myBxHi(I) = -1 |
114 |
|
myByLo(I) = 0 |
115 |
|
myByHi(I) = -1 |
116 |
|
ENDDO |
117 |
|
myBxLo(1) = 1 |
118 |
|
myBxHi(1) = nSx |
119 |
|
myByLo(1) = 1 |
120 |
|
myByHi(1) = nSy |
121 |
|
doingSingleThreadedComms = .TRUE. |
122 |
|
_END_MASTER( myThid ) |
123 |
|
_BARRIER |
124 |
ENDIF |
ENDIF |
125 |
_BARRIER |
#ifndef ALWAYS_USE_MPI |
126 |
#endif /* SINGLE_THREADED_EXCH_COMMS */ |
ENDIF |
127 |
|
#endif |
128 |
|
#endif |
129 |
C-- Under a "put" scenario we |
C-- Under a "put" scenario we |
130 |
C-- i. set completetion signal for buffer we put into. |
C-- i. set completetion signal for buffer we put into. |
131 |
C-- ii. wait for completetion signal indicating data has been put in |
C-- ii. wait for completetion signal indicating data has been put in |
373 |
ENDDO |
ENDDO |
374 |
ENDDO |
ENDDO |
375 |
|
|
376 |
#ifdef USE_SINGLE_THREADED_EXCH_COMMS |
IF ( doingSingleThreadedComms ) THEN |
377 |
_BARRIER |
C Restore saved settings that were stored to allow |
378 |
IF ( myThid .EQ. 1 ) THEN |
C single thred comms. |
379 |
DO I=1,nThreads |
_BARRIER |
380 |
myBxLo(I) = myBxLoSave(I) |
_BEGIN_MASTER(myThid) |
381 |
myBxHi(I) = myBxHiSave(I) |
DO I=1,nThreads |
382 |
myByLo(I) = myByLoSave(I) |
myBxLo(I) = myBxLoSave(I) |
383 |
myByHi(I) = myByHiSave(I) |
myBxHi(I) = myBxHiSave(I) |
384 |
ENDDO |
myByLo(I) = myByLoSave(I) |
385 |
ENDIF |
myByHi(I) = myByHiSave(I) |
386 |
_BARRIER |
ENDDO |
387 |
#endif /* USE_SINGLE_THREADED_EXCH_COMMS */ |
_END_MASTER(myThid) |
388 |
|
_BARRIER |
389 |
|
ENDIF |
390 |
|
|
391 |
RETURN |
RETURN |
392 |
END |
END |