File |
Line number |
Procedure |
Code |
./pkg/exch2/w2_cumulsum_z_tile.F |
139 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
./pkg/exch2/w2_cumulsum_z_tile.F |
140 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = loc2Buf(1,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
141 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = loc2Buf(2,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
158 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
159 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
160 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj) |
./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 |
168 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
170 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
171 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_tiles(1,tS,tN)*globalBuf(1,tS) |
./pkg/exch2/w2_cumulsum_z_tile.F |
172 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_tiles(2,tS,tN)*globalBuf(2,tS) |
./pkg/exch2/w2_cumulsum_z_tile.F |
193 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + bi-1 |
./pkg/exch2/w2_cumulsum_z_tile.F |
194 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN+1) = globalBuf(3,tN) + globalBuf(1,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
199 |
W2_CUMULSUM_Z_TILE_RL |
tN = tS + bi |
./pkg/exch2/w2_cumulsum_z_tile.F |
200 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN+nbTx) = globalBuf(3,tN) + globalBuf(2,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
206 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + bi-1 |
./pkg/exch2/w2_cumulsum_z_tile.F |
207 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(1,j) = facetXYSum(1,j) + globalBuf(1,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
210 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + (bj-1)*nbTx |
./pkg/exch2/w2_cumulsum_z_tile.F |
211 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(2,j) = facetXYSum(2,j) + globalBuf(2,tN) |
./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 |
228 |
W2_CUMULSUM_Z_TILE_RL |
j = exch2_myFace(tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
230 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = globalBuf(3,tN) + facet_CSum(j) |
./pkg/exch2/w2_cumulsum_z_tile.F |
244 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
245 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
257 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
./pkg/exch2/w2_cumulsum_z_tile.F |
258 |
W2_CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
63 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER tN, tS |
./pkg/exch2/w2_cumulsum_z_tile.F |
83 |
W2_CUMULSUM_Z_TILE_RL |
DO tN = 1,exch2_nTiles |
./pkg/exch2/w2_cumulsum_z_tile.F |
84 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
85 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
86 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = 0. |
./pkg/exch2/w2_print_comm_sequence.F |
130 |
W2_PRINT_COMM_SEQUENCE |
tN=exch2_opposingSend(N,myTileId) |
./pkg/exch2/w2_print_comm_sequence.F |
56 |
W2_PRINT_COMM_SEQUENCE |
INTEGER pi(2), pj(2), oi, oj, tN |
./pkg/exch2/w2_print_comm_sequence.F |
73 |
W2_PRINT_COMM_SEQUENCE |
tN = exch2_opposingSend(N,myTileId) |
./pkg/exch2/w2_print_comm_sequence.F |
82 |
W2_PRINT_COMM_SEQUENCE |
I targetTile, tN, |
./pkg/exch2/w2_set_map_cumsum.F |
251 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
253 |
W2_SET_MAP_CUMSUM |
& .AND. exch2_myFace(tN).NE.0 ) W2_tMC2 = tN |
./pkg/exch2/w2_set_map_cumsum.F |
254 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
256 |
W2_SET_MAP_CUMSUM |
& .AND. exch2_myFace(tN).NE.0 ) W2_tMC1 = tN |
./pkg/exch2/w2_set_map_cumsum.F |
288 |
W2_SET_MAP_CUMSUM |
tN = tS + 1 + (bj-1)*nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
290 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(1,k,tN) = 1 |
./pkg/exch2/w2_set_map_cumsum.F |
294 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) - 1 + nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
295 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,tN,j) = 1 |
./pkg/exch2/w2_set_map_cumsum.F |
296 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
./pkg/exch2/w2_set_map_cumsum.F |
297 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,k,j) = W2_cumSum_tiles(1,k,tN) |
./pkg/exch2/w2_set_map_cumsum.F |
303 |
W2_SET_MAP_CUMSUM |
tN = tS + bj*nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
306 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(2,l,tN) = 1 |
./pkg/exch2/w2_set_map_cumsum.F |
310 |
W2_SET_MAP_CUMSUM |
tN = facet_owns(1,j) + (nbTy-1)*nbTx |
./pkg/exch2/w2_set_map_cumsum.F |
311 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,tN,j) = 1 |
./pkg/exch2/w2_set_map_cumsum.F |
312 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
./pkg/exch2/w2_set_map_cumsum.F |
313 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,k,j) = W2_cumSum_tiles(2,k,tN) |
./pkg/exch2/w2_set_map_cumsum.F |
333 |
W2_SET_MAP_CUMSUM |
DO tN=facet_owns(1,j),facet_owns(2,j) |
./pkg/exch2/w2_set_map_cumsum.F |
335 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(1,k,tN) = W2_cumSum_tiles(1,k,tN) |
./pkg/exch2/w2_set_map_cumsum.F |
337 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(2,k,tN) = W2_cumSum_tiles(2,k,tN) |
./pkg/exch2/w2_set_map_cumsum.F |
42 |
W2_SET_MAP_CUMSUM |
INTEGER tN, i, j, k, ii, jj |
./pkg/mdsio/mdsio_facef_read.F |
60 |
MDS_FACEF_READ_RS |
INTEGER tN, dNx, dNy, tBx, tBy, tNx, tNY, jj, jBase |
./pkg/mdsio/mdsio_facef_read.F |
71 |
MDS_FACEF_READ_RS |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_facef_read.F |
72 |
MDS_FACEF_READ_RS |
dNx = exch2_mydnx(tN) |
./pkg/mdsio/mdsio_facef_read.F |
73 |
MDS_FACEF_READ_RS |
dNy = exch2_mydny(tN) |
./pkg/mdsio/mdsio_facef_read.F |
74 |
MDS_FACEF_READ_RS |
tBx = exch2_tbasex(tN) |
./pkg/mdsio/mdsio_facef_read.F |
75 |
MDS_FACEF_READ_RS |
tBy = exch2_tbasey(tN) |
./pkg/mdsio/mdsio_facef_read.F |
76 |
MDS_FACEF_READ_RS |
tNx = exch2_tnx(tN) |
./pkg/mdsio/mdsio_facef_read.F |
77 |
MDS_FACEF_READ_RS |
tNy = exch2_tny(tN) |
./pkg/mdsio/mdsio_read_field.F |
118 |
MDS_READ_FIELD |
INTEGER tN |
./pkg/mdsio/mdsio_read_field.F |
408 |
MDS_READ_FIELD |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_read_field.F |
412 |
MDS_READ_FIELD |
tBx = exch2_txGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_read_field.F |
413 |
MDS_READ_FIELD |
tBy = exch2_tyGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_read_field.F |
414 |
MDS_READ_FIELD |
IF ( exch2_mydNx(tN) .GT. xSize ) THEN |
./pkg/mdsio/mdsio_read_field.F |
417 |
MDS_READ_FIELD |
jGjLoc = exch2_mydNx(tN) / xSize |
./pkg/mdsio/mdsio_read_field.F |
418 |
MDS_READ_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_read_field.F |
420 |
MDS_READ_FIELD |
iGjLoc = exch2_mydNx(tN) |
./pkg/mdsio/mdsio_read_section.F |
203 |
MDS_READ_SEC_XZ |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_read_section.F |
204 |
MDS_READ_SEC_XZ |
tGx = exch2_txXStackLo(tN) |
./pkg/mdsio/mdsio_read_section.F |
205 |
MDS_READ_SEC_XZ |
tNx = exch2_tNx(tN) |
./pkg/mdsio/mdsio_read_section.F |
369 |
MDS_READ_SEC_YZ |
INTEGER tGy,tNy,tN |
./pkg/mdsio/mdsio_read_section.F |
481 |
MDS_READ_SEC_YZ |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_read_section.F |
482 |
MDS_READ_SEC_YZ |
tGy = exch2_tyYStackLo(tN) |
./pkg/mdsio/mdsio_read_section.F |
483 |
MDS_READ_SEC_YZ |
tNy = exch2_tNy(tN) |
./pkg/mdsio/mdsio_read_section.F |
92 |
MDS_READ_SEC_XZ |
INTEGER tGx,tNx,tN |
./pkg/mdsio/mdsio_wr_metafiles.F |
102 |
MDS_WR_METAFILES |
INTEGER tN |
./pkg/mdsio/mdsio_wr_metafiles.F |
173 |
MDS_WR_METAFILES |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_wr_metafiles.F |
174 |
MDS_WR_METAFILES |
tBx = exch2_txGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_wr_metafiles.F |
175 |
MDS_WR_METAFILES |
tBy = exch2_tyGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_wr_metafiles.F |
177 |
MDS_WR_METAFILES |
IF ( exch2_mydNx(tN) .GT. xSize ) THEN |
./pkg/mdsio/mdsio_wr_metafiles.F |
180 |
MDS_WR_METAFILES |
map2gl(2) = exch2_mydNx(tN) / xSize |
./pkg/mdsio/mdsio_wr_metafiles.F |
181 |
MDS_WR_METAFILES |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_wr_metafiles.F |
183 |
MDS_WR_METAFILES |
map2gl(1) = exch2_mydNx(tN) |
./pkg/mdsio/mdsio_write_field.F |
136 |
MDS_WRITE_FIELD |
INTEGER tN |
./pkg/mdsio/mdsio_write_field.F |
452 |
MDS_WRITE_FIELD |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_write_field.F |
456 |
MDS_WRITE_FIELD |
tBx = exch2_txGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_write_field.F |
457 |
MDS_WRITE_FIELD |
tBy = exch2_tyGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_write_field.F |
458 |
MDS_WRITE_FIELD |
IF ( exch2_mydNx(tN) .GT. xSize ) THEN |
./pkg/mdsio/mdsio_write_field.F |
461 |
MDS_WRITE_FIELD |
jGjLoc = exch2_mydNx(tN) / xSize |
./pkg/mdsio/mdsio_write_field.F |
462 |
MDS_WRITE_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_write_field.F |
464 |
MDS_WRITE_FIELD |
iGjLoc = exch2_mydNx(tN) |
./pkg/mdsio/mdsio_write_section.F |
174 |
MDS_WRITE_SEC_XZ |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_write_section.F |
175 |
MDS_WRITE_SEC_XZ |
tGx = exch2_txXStackLo(tN) |
./pkg/mdsio/mdsio_write_section.F |
176 |
MDS_WRITE_SEC_XZ |
tNx = exch2_tNx(tN) |
./pkg/mdsio/mdsio_write_section.F |
352 |
MDS_WRITE_SEC_YZ |
INTEGER tGy,tNy,tN |
./pkg/mdsio/mdsio_write_section.F |
427 |
MDS_WRITE_SEC_YZ |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_write_section.F |
428 |
MDS_WRITE_SEC_YZ |
tGy = exch2_tyYStackLo(tN) |
./pkg/mdsio/mdsio_write_section.F |
429 |
MDS_WRITE_SEC_YZ |
tNy = exch2_tNy(tN) |
./pkg/mdsio/mdsio_write_section.F |
98 |
MDS_WRITE_SEC_XZ |
INTEGER tGx,tNx,tN |
./pkg/mdsio/mdsio_writelocal.F |
125 |
MDS_WRITELOCAL |
INTEGER tN |
./pkg/mdsio/mdsio_writelocal.F |
307 |
MDS_WRITELOCAL |
tN = W2_myTileList(bi,bj) |
./pkg/mdsio/mdsio_writelocal.F |
309 |
MDS_WRITELOCAL |
tBx = exch2_txGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_writelocal.F |
310 |
MDS_WRITELOCAL |
tBy = exch2_tyGlobalo(tN) - 1 |
./pkg/mdsio/mdsio_writelocal.F |
311 |
MDS_WRITELOCAL |
IF ( exch2_mydNx(tN) .GT. xSize ) THEN |
./pkg/mdsio/mdsio_writelocal.F |
314 |
MDS_WRITELOCAL |
jGjLoc = exch2_mydNx(tN) / xSize |
./pkg/mdsio/mdsio_writelocal.F |
315 |
MDS_WRITELOCAL |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_writelocal.F |
317 |
MDS_WRITELOCAL |
iGjLoc = exch2_mydNx(tN) |
./pkg/obcs/obcs_readparms.F |
592 |
OBCS_READPARMS |
tN = W2_myTileList(bi,bj) |
./pkg/obcs/obcs_readparms.F |
597 |
OBCS_READPARMS |
iG = exch2_txXStackLo(tN)+i-1 |
./pkg/obcs/obcs_readparms.F |
602 |
OBCS_READPARMS |
jG = exch2_tyXStackLo(tN)+j-1 |
./pkg/obcs/obcs_readparms.F |
609 |
OBCS_READPARMS |
jG = exch2_tyXStackLo(tN)+j-1 |
./pkg/obcs/obcs_readparms.F |
618 |
OBCS_READPARMS |
jG = exch2_tyYStackLo(tN)+j-1 |
./pkg/obcs/obcs_readparms.F |
623 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
./pkg/obcs/obcs_readparms.F |
630 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
./pkg/obcs/obcs_readparms.F |
65 |
OBCS_READPARMS |
INTEGER tN |
./pkg/ocn_compon_interf/cpl_register.F |
103 |
CPL_REGISTER |
tN = W2_myTileList(bi,bj) |
./pkg/ocn_compon_interf/cpl_register.F |
104 |
CPL_REGISTER |
iG0 = exch2_txGlobalo(tN) |
./pkg/ocn_compon_interf/cpl_register.F |
105 |
CPL_REGISTER |
jG0 = exch2_tyGlobalo(tN) |
./pkg/ocn_compon_interf/cpl_register.F |
53 |
CPL_REGISTER |
INTEGER tN |
./pkg/ocn_compon_interf/cpl_register.F |
69 |
CPL_REGISTER |
DO tN=1,exch2_nTiles |
./pkg/ocn_compon_interf/cpl_register.F |
70 |
CPL_REGISTER |
IF ( exch2_mydNx(tN) .GT. exch2_global_Nx ) THEN |
./pkg/ocn_compon_interf/cpl_register.F |
75 |
CPL_REGISTER |
ELSEIF ( exch2_tNy(tN) .GT. exch2_global_Ny ) THEN |
./model/src/ini_local_grid.F |
119 |
INI_LOCAL_GRID |
tN = W2_myTileList(bi,bj) |
./model/src/ini_local_grid.F |
120 |
INI_LOCAL_GRID |
iG0 = exch2_tBasex(tN) |
./model/src/ini_local_grid.F |
121 |
INI_LOCAL_GRID |
jG0 = exch2_tBasey(tN) |
./model/src/ini_local_grid.F |
76 |
INI_LOCAL_GRID |
INTEGER tN |
./pkg/atm_compon_interf/cpl_register.F |
103 |
CPL_REGISTER |
tN = W2_myTileList(bi,bj) |
./pkg/atm_compon_interf/cpl_register.F |
104 |
CPL_REGISTER |
iG0 = exch2_txGlobalo(tN) |
./pkg/atm_compon_interf/cpl_register.F |
105 |
CPL_REGISTER |
jG0 = exch2_tyGlobalo(tN) |
./pkg/atm_compon_interf/cpl_register.F |
53 |
CPL_REGISTER |
INTEGER tN |
./pkg/atm_compon_interf/cpl_register.F |
69 |
CPL_REGISTER |
DO tN=1,exch2_nTiles |
./pkg/atm_compon_interf/cpl_register.F |
70 |
CPL_REGISTER |
IF ( exch2_mydNx(tN) .GT. exch2_global_Nx ) THEN |
./pkg/atm_compon_interf/cpl_register.F |
75 |
CPL_REGISTER |
ELSEIF ( exch2_tNy(tN) .GT. exch2_global_Ny ) THEN |