File indexing completed on 2018-03-02 18:39:44 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
017b6b2289 Jean*0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
d6ea3164dc Jean*0014
017b6b2289 Jean*0015
0016
0017
0018
a98fc18a55 Jean*0019
2b887796b0 Oliv*0020
0021 INTEGER W2_NORTH, W2_SOUTH, W2_EAST, W2_WEST
0022 PARAMETER ( W2_NORTH = 1 )
0023 PARAMETER ( W2_SOUTH = 2 )
0024 PARAMETER ( W2_EAST = 3 )
0025 PARAMETER ( W2_WEST = 4 )
017b6b2289 Jean*0026
0027
9b79698769 Jean*0028
0029
1dea4b2a51 Oliv*0030
0031
0032
0033
017b6b2289 Jean*0034
a98fc18a55 Jean*0035
017b6b2289 Jean*0036
0037
0038
9b79698769 Jean*0039
0040
0041
0042
0043
0044
1dea4b2a51 Oliv*0045
0046
0047
0048
9b79698769 Jean*0049
0050
0051
0052
ef53b829d7 Jean*0053
0054
017b6b2289 Jean*0055
9b79698769 Jean*0056
0057
0058
0059
0060
0061
0062
0063 INTEGER exch2_global_Nx
0064 INTEGER exch2_global_Ny
1dea4b2a51 Oliv*0065 INTEGER exch2_xStack_Nx
0066 INTEGER exch2_xStack_Ny
0067 INTEGER exch2_yStack_Nx
0068 INTEGER exch2_yStack_Ny
a98fc18a55 Jean*0069 INTEGER exch2_nTiles
017b6b2289 Jean*0070 INTEGER exch2_myFace( W2_maxNbTiles )
0071 INTEGER exch2_mydNx( W2_maxNbTiles )
0072 INTEGER exch2_mydNy( W2_maxNbTiles )
0073 INTEGER exch2_tNx( W2_maxNbTiles )
0074 INTEGER exch2_tNy( W2_maxNbTiles )
0075 INTEGER exch2_tBasex( W2_maxNbTiles )
0076 INTEGER exch2_tBasey( W2_maxNbTiles )
0077 INTEGER exch2_txGlobalo(W2_maxNbTiles )
0078 INTEGER exch2_tyGlobalo(W2_maxNbTiles )
1dea4b2a51 Oliv*0079 INTEGER exch2_txXStackLo(W2_maxNbTiles )
0080 INTEGER exch2_tyXStackLo(W2_maxNbTiles )
0081 INTEGER exch2_txYStackLo(W2_maxNbTiles )
0082 INTEGER exch2_tyYStackLo(W2_maxNbTiles )
017b6b2289 Jean*0083 INTEGER exch2_isWedge( W2_maxNbTiles )
0084 INTEGER exch2_isNedge( W2_maxNbTiles )
0085 INTEGER exch2_isEedge( W2_maxNbTiles )
0086 INTEGER exch2_isSedge( W2_maxNbTiles )
0087 INTEGER exch2_nNeighbours( W2_maxNbTiles )
0088 INTEGER exch2_neighbourId( W2_maxNeighbours, W2_maxNbTiles )
0089 INTEGER exch2_opposingSend( W2_maxNeighbours, W2_maxNbTiles )
2b887796b0 Oliv*0090 INTEGER exch2_neighbourDir( W2_maxNeighbours, W2_maxNbTiles )
017b6b2289 Jean*0091 INTEGER exch2_pij(4,W2_maxNeighbours, W2_maxNbTiles )
0092 INTEGER exch2_oi ( W2_maxNeighbours, W2_maxNbTiles )
0093 INTEGER exch2_oj ( W2_maxNeighbours, W2_maxNbTiles )
ef53b829d7 Jean*0094
0095 COMMON /W2_EXCH2_TOPO_I/
017b6b2289 Jean*0096 & exch2_global_Nx, exch2_global_Ny,
1dea4b2a51 Oliv*0097 & exch2_xStack_Nx, exch2_xStack_Ny,
0098 & exch2_yStack_Nx, exch2_yStack_Ny,
f7d498dc61 Jean*0099 & exch2_nTiles,
017b6b2289 Jean*0100 & exch2_myFace, exch2_mydNx, exch2_mydNy,
9b79698769 Jean*0101 & exch2_tNx, exch2_tNy,
0102 & exch2_tBasex, exch2_tBasey,
0103 & exch2_txGlobalo,exch2_tyGlobalo,
1dea4b2a51 Oliv*0104 & exch2_txXStackLo,exch2_tyXStackLo,
0105 & exch2_txYStackLo,exch2_tyYStackLo,
ef53b829d7 Jean*0106 & exch2_isWedge, exch2_isNedge,
0107 & exch2_isEedge, exch2_isSedge,
9b79698769 Jean*0108 & exch2_nNeighbours, exch2_neighbourId,
2b887796b0 Oliv*0109 & exch2_opposingSend, exch2_neighbourDir,
9b79698769 Jean*0110 & exch2_pij,
0111 & exch2_oi, exch2_oj
ef53b829d7 Jean*0112
9b79698769 Jean*0113
0114
0115
0116
0117
017b6b2289 Jean*0118 INTEGER exch2_iLo( W2_maxNeighbours, W2_maxNbTiles )
0119 INTEGER exch2_iHi( W2_maxNeighbours, W2_maxNbTiles )
0120 INTEGER exch2_jLo( W2_maxNeighbours, W2_maxNbTiles )
0121 INTEGER exch2_jHi( W2_maxNeighbours, W2_maxNbTiles )
ef53b829d7 Jean*0122 COMMON /W2_EXCH2_HALO_SPEC/
9b79698769 Jean*0123 & exch2_iLo, exch2_iHi,
0124 & exch2_jLo, exch2_jHi
0125
a98fc18a55 Jean*0126
0127
575f97366a Jean*0128
0129
0130
0131
a98fc18a55 Jean*0132
0133
0134
0135
0136 INTEGER W2_tMC1, W2_tMC2
575f97366a Jean*0137 INTEGER W2_cumSum_facet( 2, W2_maxNbFacets,W2_maxNbFacets)
0138 COMMON /W2_CUMSUM_TOPO_I/
0139 & W2_tMC1, W2_tMC2,
0140 & W2_cumSum_facet
0141 #ifdef W2_CUMSUM_USE_MATRIX
a98fc18a55 Jean*0142 INTEGER W2_cumSum_tiles( 2, W2_maxNbTiles, W2_maxNbTiles )
0143 COMMON /W2_CUMSUM_MATRIX/
0144 & W2_cumSum_tiles
575f97366a Jean*0145 #endif /* W2_CUMSUM_USE_MATRIX */
a98fc18a55 Jean*0146
017b6b2289 Jean*0147
0148
f7d498dc61 Jean*0149
0150
0151
0152
0153
0154
0155
017b6b2289 Jean*0156
0157
0158
f7d498dc61 Jean*0159 INTEGER W2_tileProc ( W2_maxNbTiles )
a561475a37 Jean*0160 INTEGER W2_tileIndex( W2_maxNbTiles )
f7d498dc61 Jean*0161
0162 INTEGER W2_myTileList ( nSx,nSy )
0163 INTEGER W2_procTileList(nSx,nSy,nPx*nPy )
0164 COMMON /W2_MAP_TILE2PROC/
0165 & W2_tileProc,
a561475a37 Jean*0166 & W2_tileIndex,
f7d498dc61 Jean*0167
017b6b2289 Jean*0168 & W2_myTileList, W2_procTileList
0169
f7d498dc61 Jean*0170
0171 CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy )
0172 COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag
0173
0174
0175
0176
0177 _RL e2FillValue_RL
0178 _RS e2FillValue_RS
0179 _R4 e2FillValue_R4
0180 _R8 e2FillValue_R8
0181 COMMON /EXCH2_FILLVAL_RL/ e2FillValue_RL
0182 COMMON /EXCH2_FILLVAL_RS/ e2FillValue_RS
0183 COMMON /EXCH2_FILLVAL_R4/ e2FillValue_R4
0184 COMMON /EXCH2_FILLVAL_R8/ e2FillValue_R8
0185
017b6b2289 Jean*0186