/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_hfacz.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_hfacz.F

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

revision 1.4 by jmc, Sat Nov 15 18:46:03 2008 UTC revision 1.6 by jmc, Sun Jun 28 01:08:25 2009 UTC
# Line 22  C !USES: =============================== Line 22  C !USES: ===============================
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
25    #include "W2_EXCH2_SIZE.h"
26  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #include "W2_EXCH2_PARAMS.h"  
27  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
28    
29  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
# Line 241  C     Special stuff for Cubed Sphere Line 241  C     Special stuff for Cubed Sphere
241        IF ( useCubedSphereExchange .AND. hZoption.GE.1 ) THEN        IF ( useCubedSphereExchange .AND. hZoption.GE.1 ) THEN
242    
243  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
244          myTile = W2_myTileList(bi)          myTile = W2_myTileList(bi,bj)
245          myFace = exch2_myFace(myTile)          myFace = exch2_myFace(myTile)
246          southWestCorner = exch2_isWedge(myTile).EQ.1          southWestCorner = exch2_isWedge(myTile).EQ.1
247       &               .AND. exch2_isSedge(myTile).EQ.1       &               .AND. exch2_isSedge(myTile).EQ.1
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22