/[MITgcm]/MITgcm/pkg/exch2/exch2_uv_bgrid_3d_rx.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_uv_bgrid_3d_rx.template

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

revision 1.7 by jmc, Thu May 6 23:28:45 2010 UTC revision 1.9 by jmc, Tue Sep 4 00:47:14 2012 UTC
# Line 37  C     !USES: Line 37  C     !USES:
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "W2_EXCH2_SIZE.h"  #include "W2_EXCH2_SIZE.h"
39  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
40  #ifdef W2_FILL_NULL_REGIONS  c#ifdef W2_FILL_NULL_REGIONS
41  #include "W2_EXCH2_PARAMS.h"  c#include "W2_EXCH2_PARAMS.h"
42  #endif  c#endif
43    
44  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
45  C     == Argument list variables ==  C     == Argument list variables ==
# Line 115  C--   First call the exchanges for the t Line 115  C--   First call the exchanges for the t
115         CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ',
116       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
117       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
118       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_IGNORE_CORNERS, myThid )
119         CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ',
120       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
121       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
# Line 124  C--   First call the exchanges for the t Line 124  C--   First call the exchanges for the t
124         CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ',
125       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
126       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
127       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_IGNORE_CORNERS, myThid )
128         CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ',
129       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
130       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.22