Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by jmc, Tue May 12 19:44:58 2009 UTC | revision 1.10 by jmc, Wed May 20 21:01:45 2009 UTC | |
---|---|---|
# | Line 344 C Setup MPI stuff here | Line 344 C Setup MPI stuff here |
344 | & + W2_maxNeighbours + nN-1 | & + W2_maxNeighbours + nN-1 |
345 | tProc = exch2_tProc(tt)-1 | tProc = exch2_tProc(tt)-1 |
346 | sProc = exch2_tProc(thisTile)-1 | sProc = exch2_tProc(thisTile)-1 |
347 | theType = MPI_REAL8 | theType = _MPI_TYPE_RX |
348 | #ifdef W2_E2_DEBUG_ON | #ifdef W2_E2_DEBUG_ON |
349 | WRITE(messageBuffer,'(A,I4,A,I4,A)') ' SEND FROM TILE=',thisTile, | WRITE(messageBuffer,'(A,I4,A,I4,A)') ' SEND FROM TILE=',thisTile, |
350 | & ' (proc = ',sProc,')' | & ' (proc = ',sProc,')' |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |