361 |
ENDDO |
ENDDO |
362 |
ENDDO |
ENDDO |
363 |
|
|
364 |
|
_BARRIER |
365 |
IF ( doingSingleThreadedComms ) THEN |
IF ( doingSingleThreadedComms ) THEN |
366 |
C Restore saved settings that were stored to allow |
C Restore saved settings that were stored to allow |
367 |
C single thred comms. |
C single thred comms. |
|
_BARRIER |
|
368 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
369 |
DO I=1,nThreads |
DO I=1,nThreads |
370 |
myBxLo(I) = myBxLoSave(I) |
myBxLo(I) = myBxLoSave(I) |
373 |
myByHi(I) = myByHiSave(I) |
myByHi(I) = myByHiSave(I) |
374 |
ENDDO |
ENDDO |
375 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
|
_BARRIER |
|
376 |
ENDIF |
ENDIF |
377 |
|
_BARRIER |
378 |
|
|
379 |
RETURN |
RETURN |
380 |
END |
END |