/[MITgcm]/MITgcm/pkg/thsice/thsice_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_advection.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by jmc, Thu Jun 11 20:04:24 2009 UTC revision 1.11 by jmc, Sun Jun 28 01:05:41 2009 UTC
# Line 177  C--   Set tile-specific parameters for h Line 177  C--   Set tile-specific parameters for h
177        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
178         nipass=3         nipass=3
179  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
180         myTile = W2_myTileList(bi)         myTile = W2_myTileList(bi,bj)
181         nCFace = exch2_myFace(myTile)         nCFace = exch2_myFace(myTile)
182         N_edge = exch2_isNedge(myTile).EQ.1         N_edge = exch2_isNedge(myTile).EQ.1
183         S_edge = exch2_isSedge(myTile).EQ.1         S_edge = exch2_isSedge(myTile).EQ.1
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22