File |
Line number |
Procedure |
Code |
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
102 |
NO PROCEDURE |
& exch2_nTiles, |
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
72 |
NO PROCEDURE |
INTEGER exch2_nTiles |
./pkg/exch2/w2_cumulsum_z_tile.F |
167 |
W2_CUMULSUM_Z_TILE_RL |
DO tN = 1,exch2_nTiles |
./pkg/exch2/w2_cumulsum_z_tile.F |
169 |
W2_CUMULSUM_Z_TILE_RL |
DO tS = 1,exch2_nTiles |
./pkg/exch2/w2_cumulsum_z_tile.F |
227 |
W2_CUMULSUM_Z_TILE_RL |
DO tN = 1,exch2_nTiles |
./pkg/exch2/w2_cumulsum_z_tile.F |
83 |
W2_CUMULSUM_Z_TILE_RL |
DO tN = 1,exch2_nTiles |
./pkg/exch2/w2_e2setup.F |
109 |
W2_E2SETUP |
IF ( blankList(i).LT.1 .OR. blankList(i).GT.exch2_nTiles ) THEN |
./pkg/exch2/w2_e2setup.F |
85 |
W2_E2SETUP |
exch2_nTiles = nBlankTiles + (nSx*nSy*nPx*nPy) |
./pkg/exch2/w2_e2setup.F |
94 |
W2_E2SETUP |
& 'W2_E2SETUP: Total number of Tiles =', exch2_nTiles |
./pkg/exch2/w2_e2setup.F |
97 |
W2_E2SETUP |
IF ( exch2_nTiles.GT.W2_maxNbTiles ) THEN |
./pkg/exch2/w2_e2setup.F |
99 |
W2_E2SETUP |
& exch2_nTiles, ' >', W2_maxNbTiles, ' =W2_maxNbTiles' |
./pkg/exch2/w2_eeboot.F |
46 |
W2_EEBOOT |
exch2_nTiles = 0 |
./pkg/exch2/w2_map_procs.F |
77 |
W2_MAP_PROCS |
DO I=1,exch2_nTiles |
./pkg/exch2/w2_print_e2setup.F |
172 |
W2_PRINT_E2SETUP |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_print_e2setup.F |
202 |
W2_PRINT_E2SETUP |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_print_e2setup.F |
60 |
W2_PRINT_E2SETUP |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_set_cs6_facets.F |
104 |
W2_SET_CS6_FACETS |
nGr = exch2_nTiles*sNx*sNy |
./pkg/exch2/w2_set_cs6_facets.F |
116 |
W2_SET_CS6_FACETS |
& ' nTiles*sNx*sNy=', exch2_nTiles,' x',sNx,' x',sNy,' =',nGr |
./pkg/exch2/w2_set_map_cumsum.F |
260 |
W2_SET_MAP_CUMSUM |
& ' missing-corner Tile for CUMUL-SUM (nTiles=', exch2_nTiles, |
./pkg/exch2/w2_set_map_cumsum.F |
321 |
W2_SET_MAP_CUMSUM |
DO k=1,exch2_nTiles |
./pkg/exch2/w2_set_map_cumsum.F |
334 |
W2_SET_MAP_CUMSUM |
DO k=1,exch2_nTiles |
./pkg/exch2/w2_set_map_cumsum.F |
345 |
W2_SET_MAP_CUMSUM |
& ' Tile Matrix for CUMUL-SUM (nTiles=', exch2_nTiles, ' ):' |
./pkg/exch2/w2_set_map_cumsum.F |
346 |
W2_SET_MAP_CUMSUM |
DO j=1,exch2_nTiles |
./pkg/exch2/w2_set_map_cumsum.F |
347 |
W2_SET_MAP_CUMSUM |
DO is=1,exch2_nTiles,10 |
./pkg/exch2/w2_set_map_cumsum.F |
348 |
W2_SET_MAP_CUMSUM |
ie = MIN(is+9,exch2_nTiles) |
./pkg/exch2/w2_set_map_tiles.F |
100 |
W2_SET_MAP_TILES |
& 'W2_SET_MAP_TILES: not match (SIZE.h+blankList)=',exch2_nTiles |
./pkg/exch2/w2_set_map_tiles.F |
95 |
W2_SET_MAP_TILES |
IF ( tCnt.NE.exch2_nTiles ) THEN |
./pkg/exch2/w2_set_tile2tiles.F |
246 |
W2_SET_TILE2TILES |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_set_tile2tiles.F |
270 |
W2_SET_TILE2TILES |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_set_tile2tiles.F |
314 |
W2_SET_TILE2TILES |
DO is=1,exch2_nTiles |
./pkg/exch2/w2_set_tile2tiles.F |
71 |
W2_SET_TILE2TILES |
DO is=1,exch2_nTiles |
./pkg/ocn_compon_interf/cpl_register.F |
69 |
CPL_REGISTER |
DO tN=1,exch2_nTiles |
./pkg/atm_compon_interf/cpl_register.F |
69 |
CPL_REGISTER |
DO tN=1,exch2_nTiles |