/[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.3 by jmc, Fri May 9 21:43:16 2008 UTC revision 1.4 by jmc, Fri May 9 22:32:35 2008 UTC
# Line 219  c       rTrans(i,j)  = 0. _d 0 Line 219  c       rTrans(i,j)  = 0. _d 0
219  C--   Set tile-specific parameters for horizontal fluxes  C--   Set tile-specific parameters for horizontal fluxes
220        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
221         npass  = 3         npass  = 3
 #ifdef ALLOW_AUTODIFF_TAMC  
        IF ( npass.GT.maxcube ) STOP 'maxcube needs to be = 3'  
 #endif  
222  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
223         myTile = W2_myTileList(bi)         myTile = W2_myTileList(bi)
224         nCFace = exch2_myFace(myTile)         nCFace = exch2_myFace(myTile)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22