/[MITgcm]/MITgcm/pkg/fizhi/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_ocean_exports.F

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

revision 1.30 by jmc, Tue May 12 19:56:35 2009 UTC revision 1.31 by jmc, Sun Jun 28 01:05:41 2009 UTC
# Line 79  C*************************************** Line 79  C***************************************
79         DO BJ = myByLo(myThid),myByHi(myThid)         DO BJ = myByLo(myThid),myByHi(myThid)
80         DO BI = myBxLo(myThid),myBxHi(myThid)         DO BI = myBxLo(myThid),myBxHi(myThid)
81  #if defined(ALLOW_EXCH2)  #if defined(ALLOW_EXCH2)
82         bislot = exch2_txglobalo(W2_myTileList(bi))-1         bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
83         bjslot = exch2_tyglobalo(W2_myTileList(bi))-1         bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
84  #else  #else
85         bislot = myXGlobalLo-1+(bi-1)*sNx         bislot = myXGlobalLo-1+(bi-1)*sNx
86         bjslot = myYGlobalLo-1+(bj-1)*sNy         bjslot = myYGlobalLo-1+(bj-1)*sNy
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22