/[MITgcm]/MITgcm/pkg/mnc/mnc_cwrapper.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cwrapper.F

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

revision 1.6 by edhill, Thu Feb 5 05:42:07 2004 UTC revision 1.7 by edhill, Mon Feb 16 22:21:43 2004 UTC
# Line 538  C---+----1----+----2----+----3----+----4 Line 538  C---+----1----+----2----+----3----+----4
538        implicit none        implicit none
539  #include "EEPARAMS.h"  #include "EEPARAMS.h"
540  #include "SIZE.h"  #include "SIZE.h"
541    #ifdef ALLOW_EXCH2
542    #include "W2_EXCH2_TOPOLOGY.h"
543    #include "W2_EXCH2_PARAMS.h"
544    #endif
545    
546  C     Arguments  C     Arguments
547        integer myThid, bi,bj, uniq_tnum        integer myThid, bi,bj, uniq_tnum
# Line 550  C     Local Variables Line 554  C     Local Variables
554    
555  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
556    
 #include "W2_EXCH2_PARAMS.h"  
557        uniq_tnum = W2_myTileList(bi)        uniq_tnum = W2_myTileList(bi)
558    
559  #else  #else
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22