| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_tile2tiles.F |
153 |
W2_SET_TILE2TILES |
ibnd1 = facet_pij(1,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
162 |
W2_SET_TILE2TILES |
IF ( ibnd1.LE.ibnd2 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
163 |
W2_SET_TILE2TILES |
txbnd1 = ( ibnd1 -1 )/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
167 |
W2_SET_TILE2TILES |
txbnd2 = ( ibnd1 -1 )/tNx |
|
./pkg/exch2/w2_set_tile2tiles.F |
192 |
W2_SET_TILE2TILES |
itbd1 = MIN( MAX( ibnd1, exch2_tBasex(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
47 |
W2_SET_TILE2TILES |
INTEGER ibnd1, ibnd2, jbnd1, jbnd2 |