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

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

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

revision 1.1 by jmc, Wed Aug 23 15:18:46 2006 UTC revision 1.2 by jmc, Fri Aug 17 18:34:17 2007 UTC
# Line 26  C     !USES: Line 26  C     !USES:
26  C     === Global data ===  C     === Global data ===
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "EESUPPORT.h"  c#include "EESUPPORT.h"
30  #include "EXCH.h"  c#include "EXCH.h"
31    
32  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
33  C     === Routine arguments ===  C     === Routine arguments ===
# Line 39  C     myThid :: My thread id. Line 39  C     myThid :: My thread id.
39        INTEGER myThid        INTEGER myThid
40    
41  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
42    #ifndef ALLOW_EXCH2
43  C     == Local variables ==  C     == Local variables ==
44  C     OL[wens]       :: Overlap extents in west, east, north, south.  C     OL[wens]       :: Overlap extents in west, east, north, south.
45  C     exchWidth[XY]  :: Extent of regions that will be exchanged.  C     exchWidth[XY]  :: Extent of regions that will be exchanged.
46        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY
47    #endif
48  CEOP  CEOP
49    
50  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
51        CALL EXCH2_3D_RX( phi, myNz, myThid )        CALL EXCH2_3D_RX( phi, myNz, myThid )
52        RETURN        RETURN
53  #endif  #else /* ALLOW_EXCH2 */
54    
55        OLw        = OLx        OLw        = OLx
56        OLe        = OLx        OLe        = OLx
# Line 76  C                begine. Line 77  C                begine.
77        ENDIF        ENDIF
78    
79        RETURN        RETURN
80    #endif /* ALLOW_EXCH2 */
81        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22