/[MITgcm]/MITgcm/pkg/monitor/mon_vort3.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_vort3.F

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

revision 1.5 by jmc, Wed Feb 25 23:52:11 2004 UTC revision 1.6 by adcroft, Mon Mar 8 21:20:03 2004 UTC
# Line 18  C     === Global data === Line 18  C     === Global data ===
18  #include "DYNVARS.h"  #include "DYNVARS.h"
19  #include "MONITOR.h"  #include "MONITOR.h"
20  #include "GRID.h"  #include "GRID.h"
21  #ifdef USE_W2  #ifdef ALLOW_EXCH2
22  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
23  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
24  #endif /* USE_W2 */  #endif /* ALLOW_EXCH2 */
25    
26  C     === Routine arguments ===  C     === Routine arguments ===
27        INTEGER myIter, myThid        INTEGER myIter, myThid
# Line 140  c          AZcorner = 0.75 _d 0 Line 140  c          AZcorner = 0.75 _d 0
140             northWestCorner = .TRUE.             northWestCorner = .TRUE.
141             northEastCorner = .TRUE.             northEastCorner = .TRUE.
142             iG = bi+(myXGlobalLo-1)/sNx             iG = bi+(myXGlobalLo-1)/sNx
143  #ifdef USE_W2  #ifdef ALLOW_EXCH2
144             myTile = W2_myTileList(bi)             myTile = W2_myTileList(bi)
145             iG = exch2_myFace(myTile)             iG = exch2_myFace(myTile)
146             southWestCorner = exch2_isWedge(myTile).EQ.1             southWestCorner = exch2_isWedge(myTile).EQ.1
# Line 151  c          AZcorner = 0.75 _d 0 Line 151  c          AZcorner = 0.75 _d 0
151       &                 .AND. exch2_isNedge(myTile).EQ.1       &                 .AND. exch2_isNedge(myTile).EQ.1
152             northWestCorner = exch2_isWedge(myTile).EQ.1             northWestCorner = exch2_isWedge(myTile).EQ.1
153       &                 .AND. exch2_isNedge(myTile).EQ.1       &                 .AND. exch2_isNedge(myTile).EQ.1
154  #endif /* USE_W2 */  #endif /* ALLOW_EXCH2 */
155    
156  C--        avoid to count 3 times the same corner:  C--        avoid to count 3 times the same corner:
157             southEastCorner = southEastCorner .AND. iG.EQ.2             southEastCorner = southEastCorner .AND. iG.EQ.2
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22