| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
174 |
NO PROCEDURE |
CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy ) |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
175 |
NO PROCEDURE |
COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag |
|
./pkg/exch2/w2_map_procs.F |
167 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = commFlag |
|
./pkg/exch2/w2_map_procs.F |
62 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = ' ' |
|
./pkg/flt/exch2_recv_get_vec.F |
109 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
189 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
117 |
EXCH2_SEND_PUT_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
132 |
EXCH2_SEND_PUT_VEC_RL |
& W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |