File |
Line number |
Procedure |
Code |
./pkg/flt/exch_recv_get_vec.F |
264 |
EXCH_RECV_GET_VEC_Y_RL |
INTEGER southCommMode |
./pkg/flt/exch_recv_get_vec.F |
291 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
./pkg/flt/exch_recv_get_vec.F |
300 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( southCommMode .EQ. COMM_MSG ) THEN |
./pkg/flt/exch_recv_get_vec.F |
375 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
291 |
EXCH_SEND_PUT_VEC_Y_RL |
INTEGER southCommMode |
./pkg/flt/exch_send_put_vec.F |
334 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
342 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( southCommMode .EQ. COMM_MSG ) THEN |
./pkg/flt/exch_send_put_vec.F |
358 |
EXCH_SEND_PUT_VEC_Y_RL |
ELSEIF ( southCommMode .EQ. COMM_PUT ) THEN |
./pkg/flt/exch_send_put_vec.F |
363 |
EXCH_SEND_PUT_VEC_Y_RL |
ELSEIF ( southCommMode .NE. COMM_NONE ) THEN |
./pkg/flt/exch_send_put_vec.F |
413 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
415 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( southCommMode .EQ. COMM_PUT ) northRecvAck(1,biS,bjS) = 1 |
./pkg/flt/exch_send_put_vec.F |
417 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( southCommMode .EQ. COMM_GET ) northRecvAck(1,biS,bjS) = 1 |