Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Tue May 12 19:56:36 2009 UTC | revision 1.4 by jmc, Sun Jun 28 01:08:26 2009 UTC | |
---|---|---|
# | Line 81 C- replace Physical calc Div & Vort b | Line 81 C- replace Physical calc Div & Vort b |
81 | C- Special stuff for Cubed Sphere | C- Special stuff for Cubed Sphere |
82 | IF (useCubedSphereExchange) THEN | IF (useCubedSphereExchange) THEN |
83 | #ifdef ALLOW_EXCH2 | #ifdef ALLOW_EXCH2 |
84 | myTile = W2_myTileList(bi) | myTile = W2_myTileList(bi,bj) |
85 | myFace = exch2_myFace(myTile) | myFace = exch2_myFace(myTile) |
86 | southWestCorner = exch2_isWedge(myTile).EQ.1 | southWestCorner = exch2_isWedge(myTile).EQ.1 |
87 | & .AND. exch2_isSedge(myTile).EQ.1 | & .AND. exch2_isSedge(myTile).EQ.1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |