/[MITgcm]/MITgcm/pkg/flt/flt_traj.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_traj.F

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

revision 1.9 by jmc, Tue Sep 1 19:32:27 2009 UTC revision 1.10 by jahn, Wed Dec 22 21:24:58 2010 UTC
# Line 23  C     == global variables == Line 23  C     == global variables ==
23  #include "PARAMS.h"  #include "PARAMS.h"
24  #include "DYNVARS.h"  #include "DYNVARS.h"
25  #include "FLT.h"  #include "FLT.h"
26    #ifdef ALLOW_EXCH2
27    #include "W2_EXCH2_SIZE.h"
28    #include "W2_EXCH2_TOPOLOGY.h"
29    #endif
30    
31  C     == routine arguments ==  C     == routine arguments ==
32        _RL myTime        _RL myTime
# Line 49  C     == local variables == Line 53  C     == local variables ==
53        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
54        CHARACTER*(80) dataFName        CHARACTER*(80) dataFName
55        INTEGER iG,jG,IL        INTEGER iG,jG,IL
56    #ifdef ALLOW_EXCH2
57          INTEGER nT
58    #endif
59        LOGICAL exst        LOGICAL exst
60        LOGICAL globalFile        LOGICAL globalFile
61    
# Line 101  C total number of floats Line 108  C total number of floats
108       &                          'RL', imax, tmp, dummyRS,       &                          'RL', imax, tmp, dummyRS,
109       &                           bi,bj,-1, myIter, myThid )       &                           bi,bj,-1, myIter, myThid )
110    
111    #ifdef ALLOW_EXCH2
112             nT = W2_myTileList(bi,bj)
113             i0x = DFLOAT( exch2_txGlobalo(nT) - 1 )
114             j0y = DFLOAT( exch2_tyGlobalo(nT) - 1 )
115    #else
116           i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx )           i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx )
117           j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy )           j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy )
118    #endif
119           DO ip=1,npart_tile(bi,bj)           DO ip=1,npart_tile(bi,bj)
120    
121              ix = ipart(ip,bi,bj)              ix = ipart(ip,bi,bj)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22