| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
73 |
NO PROCEDURE |
INTEGER facet_pij(4,4,W2_maxNbFacets) |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
78 |
NO PROCEDURE |
& facet_pij, facet_oi, facet_oj |
|
./pkg/exch2/w2_e2setup.F |
56 |
W2_E2SETUP |
facet_pij(k,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
130 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
131 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
132 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
133 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
155 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
156 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
157 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
158 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
164 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
165 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
166 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
167 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
173 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
174 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
175 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
176 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
182 |
W2_SET_F2F_INDEX |
facet_pij(1,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
183 |
W2_SET_F2F_INDEX |
facet_pij(2,i,j) = 1 |
|
./pkg/exch2/w2_set_f2f_index.F |
184 |
W2_SET_F2F_INDEX |
facet_pij(3,i,j) =-1 |
|
./pkg/exch2/w2_set_f2f_index.F |
185 |
W2_SET_F2F_INDEX |
facet_pij(4,i,j) = 0 |
|
./pkg/exch2/w2_set_f2f_index.F |
202 |
W2_SET_F2F_INDEX |
& ' : pij=', (facet_pij(k,i,j),k=1,4), |
|
./pkg/exch2/w2_set_f2f_index.F |
232 |
W2_SET_F2F_INDEX |
chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
233 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
234 |
W2_SET_F2F_INDEX |
chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
235 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
236 |
W2_SET_F2F_INDEX |
chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
237 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
238 |
W2_SET_F2F_INDEX |
chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
239 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
241 |
W2_SET_F2F_INDEX |
chk5 = facet_pij(1,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
242 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
244 |
W2_SET_F2F_INDEX |
chk6 = facet_pij(3,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
245 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_tile2tiles.F |
153 |
W2_SET_TILE2TILES |
ibnd1 = facet_pij(1,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
154 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj1 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
155 |
W2_SET_TILE2TILES |
ibnd2 = facet_pij(1,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
156 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj2 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
157 |
W2_SET_TILE2TILES |
jbnd1 = facet_pij(3,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
158 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj1 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
159 |
W2_SET_TILE2TILES |
jbnd2 = facet_pij(3,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
160 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj2 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
187 |
W2_SET_TILE2TILES |
exch2_pij(k,ns,is) = facet_pij(k,i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
200 |
W2_SET_TILE2TILES |
isbd1 = facet_pij(1,i,js)*itbd1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
201 |
W2_SET_TILE2TILES |
& + facet_pij(2,i,js)*jtbd1 + facet_oi(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
202 |
W2_SET_TILE2TILES |
isbd2 = facet_pij(1,i,js)*itbd2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
203 |
W2_SET_TILE2TILES |
& + facet_pij(2,i,js)*jtbd2 + facet_oi(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
204 |
W2_SET_TILE2TILES |
jsbd1 = facet_pij(3,i,js)*itbd1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
205 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd1 + facet_oj(i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
206 |
W2_SET_TILE2TILES |
jsbd2 = facet_pij(3,i,js)*itbd2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
207 |
W2_SET_TILE2TILES |
& + facet_pij(4,i,js)*jtbd2 + facet_oj(i,js) |