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

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

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

revision 1.2 by heimbach, Fri Nov 17 22:35:03 2006 UTC revision 1.3 by jmc, Fri Aug 17 18:34:17 2007 UTC
# Line 25  C     !USES: Line 25  C     !USES:
25  C     == Global variables ==  C     == Global variables ==
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "EESUPPORT.h"  c#include "EESUPPORT.h"
29  #include "EXCH.h"  c#include "EXCH.h"
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
# Line 41  C     myThid :: My thread id. Line 41  C     myThid :: My thread id.
41        INTEGER myThid        INTEGER myThid
42    
43  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
44    #ifndef ALLOW_EXCH2
45  C     == Local variables ==  C     == Local variables ==
46  C     OL[wens]       :: Overlap extents in west, east, north, south.  C     OL[wens]       :: Overlap extents in west, east, north, south.
47  C     exchWidth[XY]  :: Extent of regions that will be exchanged.  C     exchWidth[XY]  :: Extent of regions that will be exchanged.
48        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY
49    #endif
50  CEOP  CEOP
51    
52  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
# Line 52  CEOP Line 54  CEOP
54       U                    phi,       U                    phi,
55       I                    myNz, myThid )       I                    myNz, myThid )
56        RETURN        RETURN
57  #else  #else /* ALLOW_EXCH2 */
58    
59        OLw        = OLx        OLw        = OLx
60        OLe        = OLx        OLe        = OLx
# Line 79  C                begine. Line 81  C                begine.
81        ENDIF        ENDIF
82    
83        RETURN        RETURN
84  #endif  #endif /* ALLOW_EXCH2 */
85        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22