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

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

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

revision 1.12 by jmc, Tue May 12 19:56:35 2009 UTC revision 1.13 by jmc, Sun Jun 28 01:05:41 2009 UTC
# Line 84  C Only do I/O if I am the master thread Line 84  C Only do I/O if I am the master thread
84        DO bi = myBxLo(myThid), myBxHi(myThid)        DO bi = myBxLo(myThid), myBxHi(myThid)
85    
86  #if defined(ALLOW_EXCH2)  #if defined(ALLOW_EXCH2)
87         bislot = exch2_txglobalo(W2_myTileList(bi))-1         bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
88         bjslot = exch2_tyglobalo(W2_myTileList(bi))-1         bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
89  #else  #else
90         bislot = myXGlobalLo-1+(bi-1)*sNx         bislot = myXGlobalLo-1+(bi-1)*sNx
91         bjslot = myYGlobalLo-1+(bj-1)*sNy         bjslot = myYGlobalLo-1+(bj-1)*sNy
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22