File |
Line number |
Procedure |
Code |
./pkg/exch2/w2_set_tile2tiles.F |
129 |
W2_SET_TILE2TILES |
nbNeighb = nbNeighb + 1 |
./pkg/exch2/w2_set_tile2tiles.F |
130 |
W2_SET_TILE2TILES |
ns = MIN(nbNeighb,W2_maxNeighbours) |
./pkg/exch2/w2_set_tile2tiles.F |
182 |
W2_SET_TILE2TILES |
nbNeighb = nbNeighb + 1 |
./pkg/exch2/w2_set_tile2tiles.F |
183 |
W2_SET_TILE2TILES |
ns = MIN(nbNeighb,W2_maxNeighbours) |
./pkg/exch2/w2_set_tile2tiles.F |
223 |
W2_SET_TILE2TILES |
exch2_nNeighbours(is) = nbNeighb |
./pkg/exch2/w2_set_tile2tiles.F |
226 |
W2_SET_TILE2TILES |
& 'Tile',is,' : nbNeighb=',nbNeighb,' ; is-at-Facet-Edge:', |
./pkg/exch2/w2_set_tile2tiles.F |
229 |
W2_SET_TILE2TILES |
DO ns=1,MIN(nbNeighb,W2_maxNeighbours) |
./pkg/exch2/w2_set_tile2tiles.F |
244 |
W2_SET_TILE2TILES |
nbNeighb = 0 |
./pkg/exch2/w2_set_tile2tiles.F |
247 |
W2_SET_TILE2TILES |
IF ( exch2_nNeighbours(is).GT.nbNeighb ) THEN |
./pkg/exch2/w2_set_tile2tiles.F |
248 |
W2_SET_TILE2TILES |
nbNeighb = exch2_nNeighbours(is) |
./pkg/exch2/w2_set_tile2tiles.F |
253 |
W2_SET_TILE2TILES |
& 'current Max.Nb.Neighbours (e.g., on tile',it,' ) =',nbNeighb |
./pkg/exch2/w2_set_tile2tiles.F |
255 |
W2_SET_TILE2TILES |
IF ( nbNeighb.GT.W2_maxNeighbours ) THEN |
./pkg/exch2/w2_set_tile2tiles.F |
257 |
W2_SET_TILE2TILES |
& 'W2_SET_TILE2TILES: Max.Nb.Neighbours=', nbNeighb, |
./pkg/exch2/w2_set_tile2tiles.F |
42 |
W2_SET_TILE2TILES |
INTEGER tNx, tNy, nbTx, nbNeighb |
./pkg/exch2/w2_set_tile2tiles.F |
81 |
W2_SET_TILE2TILES |
nbNeighb = 0 |