Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by jahn, Fri Jun 26 23:10:09 2009 UTC | revision 1.8 by jmc, Sun Jun 28 01:05:41 2009 UTC | |
---|---|---|
# | Line 219 C-- Set tile-specific parameters for h | Line 219 C-- Set tile-specific parameters for h |
219 | IF (useCubedSphereExchange) THEN | IF (useCubedSphereExchange) THEN |
220 | npass = 3 | npass = 3 |
221 | #ifdef ALLOW_EXCH2 | #ifdef ALLOW_EXCH2 |
222 | myTile = W2_myTileList(bi) | myTile = W2_myTileList(bi,bj) |
223 | nCFace = exch2_myFace(myTile) | nCFace = exch2_myFace(myTile) |
224 | N_edge = exch2_isNedge(myTile).EQ.1 | N_edge = exch2_isNedge(myTile).EQ.1 |
225 | S_edge = exch2_isSedge(myTile).EQ.1 | S_edge = exch2_isSedge(myTile).EQ.1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |