/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_computvort.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_computvort.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22