2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
|
#undef LOCAL_DBUG |
|
5 |
|
|
6 |
CBOP |
CBOP |
7 |
C !ROUTINE: EXCH_RX2_CUBE_AD |
C !ROUTINE: EXCH_RX2_CUBE_AD |
159 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
160 |
|
|
161 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
162 |
|
IF ( usingMPI ) THEN |
163 |
C AD: all MPI part is acting on buffer and is identical to forward code, |
C AD: all MPI part is acting on buffer and is identical to forward code, |
164 |
C AD: except a) the buffer level: send from lev.2, receive into lev.1 |
C AD: except a) the buffer level: send from lev.2, receive into lev.1 |
165 |
C AD: b) the length of transferred buffer (<- match the ad_put/ad_get) |
C AD: b) the length of transferred buffer (<- match the ad_put/ad_get) |
251 |
C Everyone waits until master-thread finishes receiving |
C Everyone waits until master-thread finishes receiving |
252 |
CALL BAR2( myThid ) |
CALL BAR2( myThid ) |
253 |
|
|
254 |
|
ENDIF |
255 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
256 |
|
|
257 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |