/[MITgcm]/MITgcm/eesupp/src/exch_uv_3d_rx.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_uv_3d_rx.template

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

revision 1.3 by jmc, Wed Jul 25 21:19:44 2007 UTC revision 1.4 by jmc, Fri Aug 17 18:34:17 2007 UTC
# Line 30  C     !USES: Line 30  C     !USES:
30  C     === Global data ===  C     === Global data ===
31  #include "SIZE.h"  #include "SIZE.h"
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "EESUPPORT.h"  c#include "EESUPPORT.h"
34  #include "EXCH.h"  c#include "EXCH.h"
35    
36  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
37  C     === Routine arguments ===  C     === Routine arguments ===
# Line 48  C     myThid :: My thread id. Line 48  C     myThid :: My thread id.
48        INTEGER myThid        INTEGER myThid
49    
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
51    #ifndef ALLOW_EXCH2
52  C     == Local variables ==  C     == Local variables ==
53  C     OL[wens]       :: Overlap extents in west, east, north, south.  C     OL[wens]       :: Overlap extents in west, east, north, south.
54  C     exchWidth[XY]  :: Extent of regions that will be exchanged.  C     exchWidth[XY]  :: Extent of regions that will be exchanged.
55        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY
56    #endif
57  CEOP  CEOP
58    
59  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
60  #ifdef W2_USE_R1_ONLY  #ifdef W2_USE_R1_ONLY
61        CALL EXCH2_UV_CGRID_3D_RX(        CALL EXCH2_UV_CGRID_3D_RX(
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22