| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
187 |
W2_CUMULSUM_Z_TILE_RL |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
188 |
W2_CUMULSUM_Z_TILE_RL |
IF ( fNx*fNy .GE. 1 ) THEN |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
190 |
W2_CUMULSUM_Z_TILE_RL |
nbTy = fNy/sNy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
68 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER fNx, fNy, nbTx, nbTy |
|
./pkg/exch2/w2_print_e2setup.F |
176 |
W2_PRINT_E2SETUP |
fNy = exch2_mydNy(is) |
|
./pkg/exch2/w2_print_e2setup.F |
178 |
W2_PRINT_E2SETUP |
nbTy = fNy/tNy |
|
./pkg/exch2/w2_print_e2setup.F |
181 |
W2_PRINT_E2SETUP |
& '- facet', js, ' : X-size=', fNx, ' , Y-size=', fNy, |
|
./pkg/exch2/w2_print_e2setup.F |
39 |
W2_PRINT_E2SETUP |
INTEGER tNx, tNy, fNx, fNy |
|
./pkg/exch2/w2_print_e2setup.F |
65 |
W2_PRINT_E2SETUP |
fNy = exch2_mydNy(is) |
|
./pkg/exch2/w2_print_e2setup.F |
67 |
W2_PRINT_E2SETUP |
nbTy = fNy/tNy |
|
./pkg/exch2/w2_set_gen_facets.F |
38 |
W2_SET_GEN_FACETS |
INTEGER i,j,jj,fNx,fNy |
|
./pkg/exch2/w2_set_gen_facets.F |
54 |
W2_SET_GEN_FACETS |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_gen_facets.F |
56 |
W2_SET_GEN_FACETS |
IF ( fNx.NE.0 .AND. fNy.NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
58 |
W2_SET_GEN_FACETS |
ELSEIF ( fNx.NE.0 .OR. fNy.NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
62 |
W2_SET_GEN_FACETS |
& ' :',fNx,fNy |
|
./pkg/exch2/w2_set_map_cumsum.F |
247 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
248 |
W2_SET_MAP_CUMSUM |
IF ( fNx*fNy .GE. 1 ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
250 |
W2_SET_MAP_CUMSUM |
nbTy = fNy/sNy |
|
./pkg/exch2/w2_set_map_cumsum.F |
280 |
W2_SET_MAP_CUMSUM |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
281 |
W2_SET_MAP_CUMSUM |
IF ( fNx*fNy .GE. 1 ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
283 |
W2_SET_MAP_CUMSUM |
nbTy = fNy/sNy |
|
./pkg/exch2/w2_set_map_cumsum.F |
36 |
W2_SET_MAP_CUMSUM |
INTEGER fNx, fNy, nbTx, nbTy |
|
./pkg/exch2/w2_set_map_tiles.F |
163 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_tiles.F |
165 |
W2_SET_MAP_TILES |
nbTy = fNy/tNy |
|
./pkg/exch2/w2_set_map_tiles.F |
167 |
W2_SET_MAP_TILES |
& '- facet', j, ' : X-size=', fNx, ' , Y-size=', fNy, |
|
./pkg/exch2/w2_set_map_tiles.F |
180 |
W2_SET_MAP_TILES |
exch2_mydNy ( tId ) = fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
215 |
W2_SET_MAP_TILES |
fBaseY = fBaseY + fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
216 |
W2_SET_MAP_TILES |
nbPts = nbPts + fNx*fNy |
|
./pkg/exch2/w2_set_map_tiles.F |
45 |
W2_SET_MAP_TILES |
INTEGER tNx, tNy, fNx, fNy, nbPts, fBaseX, fBaseY |
|
./pkg/exch2/w2_set_map_tiles.F |
68 |
W2_SET_MAP_TILES |
fNy = facet_dims( 2*j ) |
|
./pkg/exch2/w2_set_map_tiles.F |
70 |
W2_SET_MAP_TILES |
nbTy = fNy/tNy |
|
./pkg/exch2/w2_set_map_tiles.F |
77 |
W2_SET_MAP_TILES |
IF ( nbTy*tNy .NE. fNy ) THEN |
|
./pkg/exch2/w2_set_map_tiles.F |
79 |
W2_SET_MAP_TILES |
& ' : Y-size=', fNy, ' not multiple of sNy=', tNy |
|
./pkg/exch2/w2_set_map_tiles.F |
86 |
W2_SET_MAP_TILES |
nbPts = nbPts + fNx*fNy |