/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_som_advect.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_som_advect.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.22