| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/exch2_check_depths.F |
112 |
EXCH2_CHECK_DEPTHS |
& 'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):' |
|
./pkg/exch2/exch2_check_depths.F |
48 |
EXCH2_CHECK_DEPTHS |
INTEGER bi, bj, tId |
|
./pkg/exch2/exch2_check_depths.F |
75 |
EXCH2_CHECK_DEPTHS |
tId = W2_myTileList(bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
76 |
EXCH2_CHECK_DEPTHS |
DO n= 1,exch2_nNeighbours(tId) |
|
./pkg/exch2/exch2_check_depths.F |
77 |
EXCH2_CHECK_DEPTHS |
DO j=exch2_jLo(n,tId),exch2_jHi(n,tId) |
|
./pkg/exch2/exch2_check_depths.F |
78 |
EXCH2_CHECK_DEPTHS |
DO i=exch2_iLo(n,tId),exch2_iHi(n,tId) |
|
./pkg/exch2/w2_set_map_tiles.F |
141 |
W2_SET_MAP_TILES |
tId = 0 |
|
./pkg/exch2/w2_set_map_tiles.F |
155 |
W2_SET_MAP_TILES |
tId = tId + 1 |
|
./pkg/exch2/w2_set_map_tiles.F |
159 |
W2_SET_MAP_TILES |
IF ( blankList(k).EQ.tId ) tileIsActive = .FALSE. |
|
./pkg/exch2/w2_set_map_tiles.F |
161 |
W2_SET_MAP_TILES |
IF ( tileIsActive ) exch2_myFace(tId) = j |
|
./pkg/exch2/w2_set_map_tiles.F |
162 |
W2_SET_MAP_TILES |
exch2_mydNx ( tId ) = fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
163 |
W2_SET_MAP_TILES |
exch2_mydNy ( tId ) = fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
164 |
W2_SET_MAP_TILES |
exch2_tNx ( tId ) = tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
165 |
W2_SET_MAP_TILES |
exch2_tNy ( tId ) = tNy |
|
./pkg/exch2/w2_set_map_tiles.F |
166 |
W2_SET_MAP_TILES |
exch2_tBasex( tId ) = (tx-1)*tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
167 |
W2_SET_MAP_TILES |
exch2_tBasey( tId ) = (ty-1)*tNy |
|
./pkg/exch2/w2_set_map_tiles.F |
171 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + exch2_tBasex(tId) + fBaseX |
|
./pkg/exch2/w2_set_map_tiles.F |
172 |
W2_SET_MAP_TILES |
exch2_tyGlobalo( tId ) = 1 + exch2_tBasey(tId) |
|
./pkg/exch2/w2_set_map_tiles.F |
175 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
176 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + ii |
|
./pkg/exch2/w2_set_map_tiles.F |
177 |
W2_SET_MAP_TILES |
exch2_tyGlobalo( tId ) = 1 |
|
./pkg/exch2/w2_set_map_tiles.F |
180 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
181 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + MOD(ii,W2_mapIO) |
|
./pkg/exch2/w2_set_map_tiles.F |
182 |
W2_SET_MAP_TILES |
exch2_tyGlobalo( tId ) = 1 + ii/W2_mapIO |
|
./pkg/exch2/w2_set_map_tiles.F |
185 |
W2_SET_MAP_TILES |
& WRITE(W2_oUnit,'(A,I5,3(A,I3),2A,2I5,2A,2I8)') ' tile',tId, |
|
./pkg/exch2/w2_set_map_tiles.F |
186 |
W2_SET_MAP_TILES |
& ' on facet', exch2_myFace(tId),' (',tx,',',ty,'):', |
|
./pkg/exch2/w2_set_map_tiles.F |
187 |
W2_SET_MAP_TILES |
& ' offset=', exch2_tBasex(tId), exch2_tBasey(tId),' ;', |
|
./pkg/exch2/w2_set_map_tiles.F |
188 |
W2_SET_MAP_TILES |
& ' on Glob.Map=', exch2_txGlobalo(tId),exch2_tyGlobalo(tId) |
|
./pkg/exch2/w2_set_map_tiles.F |
47 |
W2_SET_MAP_TILES |
INTEGER j, ii, k, tId, tx, ty |