| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_tile2tiles.F |
159 |
W2_SET_TILE2TILES |
jbnd2 = facet_pij(3,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
169 |
W2_SET_TILE2TILES |
IF ( jbnd1.LE.jbnd2 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
171 |
W2_SET_TILE2TILES |
tybnd2 = ( jbnd2 -1 )/tNy |
|
./pkg/exch2/w2_set_tile2tiles.F |
173 |
W2_SET_TILE2TILES |
tybnd1 = ( jbnd2 -1 )/tNy |
|
./pkg/exch2/w2_set_tile2tiles.F |
198 |
W2_SET_TILE2TILES |
jtbd2 = MIN( MAX( jbnd2, exch2_tBasey(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
47 |
W2_SET_TILE2TILES |
INTEGER ibnd1, ibnd2, jbnd1, jbnd2 |