C Tiling topology data structures header file C *** THIS FILE IS AUTOMATICALLY GENERATED *** C NTILES :: Number of tiles in this topology C MAX_NEIGHBOURS :: Maximum number of neighbours any tile has. C exch2_domain_nxt :: Total domain length in tiles. C exch2_domain_nyt :: Maximum domain height in tiles. C exch2_tnx :: Size in X for each tile. C exch2_tny :: Size in Y for each tile. C exch2_tbasex :: Tile offset in X within its sub-domain (cube face) C exch2_tbasey :: Tile offset in Y within its sub-domain (cube face) C exch2_tglobalxlo :: Tile base X index within global index space. C exch2_tglobalylo :: Tile base Y index within global index space. C exch2_isWedge :: 0 if West not at domain edge, 1 if it is. C exch2_isNedge :: 0 if North not at domain edge, 1 if it is. C exch2_isEedge :: 0 if East not at domain edge, 1 if it is. C exch2_isSedge :: 0 if South not at domain edge, 1 if it is. C exch2_myFace :: Cube face number used for I/O. C exch2_nNeighbours :: Tile neighbour entries count. C exch2_tProc :: Rank of process owning tile C :: (filled at run time). C exch2_neighbourId :: Tile number for each neighbour entry. C exch2_opposingSend_record :: Record for entry in target tile send C :: list that has this tile and face C :: as its target. C exch2_pi :: X index row of target to source permutation C :: matrix for each neighbour entry. C exch2_pj :: Y index row of target to source permutation C :: matrix for each neighbour entry. C exch2_oi :: X index element of target to source C :: offset vector for cell-centered quantities C :: of each neighbor entry. C exch2_oj :: Y index element of target to source C :: offset vector for cell-centered quantities C :: of each neighbor entry. C exch2_oi_f :: X index element of target to source C :: offset vector for face quantities C :: of each neighbor entry. C exch2_oj_f :: Y index element of target to source C :: offset vector for face quantities C :: of each neighbor entry. INTEGER NTILES INTEGER MAX_NEIGHBOURS INTEGER exch2_domain_nyt INTEGER exch2_domain_nxt PARAMETER ( NTILES = 6) PARAMETER ( MAX_NEIGHBOURS = 4) PARAMETER ( exch2_domain_nxt=6) PARAMETER ( exch2_domain_nyt=1) INTEGER exch2_tnx(NTILES) INTEGER exch2_tny(NTILES) INTEGER exch2_tbasex(NTILES) INTEGER exch2_tbasey(NTILES) INTEGER exch2_txglobalo(NTILES) INTEGER exch2_tyglobalo(NTILES) INTEGER exch2_isWedge(NTILES) INTEGER exch2_isNedge(NTILES) INTEGER exch2_isEedge(NTILES) INTEGER exch2_isSedge(NTILES) INTEGER exch2_myFace(NTILES) INTEGER exch2_mydnx(NTILES) INTEGER exch2_mydny(NTILES) INTEGER exch2_nNeighbours(NTILES) INTEGER exch2_tProc(NTILES) INTEGER exch2_neighbourId(MAX_NEIGHBOURS,NTILES) INTEGER exch2_opposingSend_record(MAX_NEIGHBOURS,NTILES) INTEGER exch2_pi(2,MAX_NEIGHBOURS,NTILES) INTEGER exch2_pj(2,MAX_NEIGHBOURS,NTILES) INTEGER exch2_oi(MAX_NEIGHBOURS,NTILES) INTEGER exch2_oj(MAX_NEIGHBOURS,NTILES) INTEGER exch2_oi_f(MAX_NEIGHBOURS,NTILES) INTEGER exch2_oj_f(MAX_NEIGHBOURS,NTILES) C Exchange execution loop data structures INTEGER exch2_itlo_c(MAX_NEIGHBOURS,NTILES) INTEGER exch2_ithi_c(MAX_NEIGHBOURS,NTILES) INTEGER exch2_jtlo_c(MAX_NEIGHBOURS,NTILES) INTEGER exch2_jthi_c(MAX_NEIGHBOURS,NTILES) COMMON /W2_EXCH2_TOPO_I/ & exch2_tnx, exch2_tny, & exch2_tbasex,exch2_tbasey, & exch2_txglobalo,exch2_tyglobalo, & exch2_isWedge, exch2_isNedge, & exch2_isEedge, exch2_isSedge, & exch2_myFace, exch2_mydnx, exch2_mydny, & exch2_nNeighbours,exch2_neighbourId, & exch2_opposingSend_record, & exch2_tProc, & exch2_pi,exch2_pj, & exch2_oi,exch2_oj, & exch2_oi_f,exch2_oj_f COMMON /W2_EXCH2_HALO_SPEC/ & exch2_itlo_c, exch2_ithi_c, & exch2_jtlo_c, exch2_jthi_c C *** THIS FILE IS AUTOMATICALLY GENERATED ***