File |
Line number |
Procedure |
Code |
./pkg/flt/exch_recv_get_vec.F |
265 |
EXCH_RECV_GET_VEC_Y_RL |
INTEGER northCommMode |
./pkg/flt/exch_recv_get_vec.F |
292 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
./pkg/flt/exch_recv_get_vec.F |
317 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( northCommMode .EQ. COMM_MSG ) THEN |
./pkg/flt/exch_recv_get_vec.F |
376 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
292 |
EXCH_SEND_PUT_VEC_Y_RL |
INTEGER northCommMode |
./pkg/flt/exch_send_put_vec.F |
335 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
368 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( northCommMode .EQ. COMM_MSG ) THEN |
./pkg/flt/exch_send_put_vec.F |
384 |
EXCH_SEND_PUT_VEC_Y_RL |
ELSEIF ( northCommMode .EQ. COMM_PUT ) THEN |
./pkg/flt/exch_send_put_vec.F |
389 |
EXCH_SEND_PUT_VEC_Y_RL |
ELSEIF ( northCommMode .NE. COMM_NONE ) THEN |
./pkg/flt/exch_send_put_vec.F |
414 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
./pkg/flt/exch_send_put_vec.F |
416 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( northCommMode .EQ. COMM_PUT ) southRecvAck(1,biN,bjN) = 1 |
./pkg/flt/exch_send_put_vec.F |
418 |
EXCH_SEND_PUT_VEC_Y_RL |
IF ( northCommMode .EQ. COMM_GET ) southRecvAck(1,biN,bjN) = 1 |