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

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

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

revision 1.6 by heimbach, Fri Nov 17 22:35:03 2006 UTC revision 1.9 by jmc, Fri Aug 17 18:34:17 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
6    #ifdef ALLOW_EXCH2
7    #include "W2_OPTIONS.h"
8    #endif
9    
10  CBOP  CBOP
11  C     !ROUTINE: EXCH_UV_XY_RX  C     !ROUTINE: EXCH_UV_XY_RX
# Line 14  C     !INTERFACE: Line 17  C     !INTERFACE:
17        IMPLICIT NONE        IMPLICIT NONE
18  C     !DESCRIPTION:  C     !DESCRIPTION:
19  C     *==========================================================*  C     *==========================================================*
20  C     | SUBROUTINE EXCH_UV_XY_RX                                    C     | SUBROUTINE EXCH_UV_XY_RX
21  C     | o Handle exchanges for _RX, two-dimensional arrays.      C     | o Handle exchanges for _RX, two-dimensional arrays.
22  C     *==========================================================*  C     *==========================================================*
23  C     | Driver exchange routine which branches to cube sphere or  C     | Driver exchange routine which branches to cube sphere or
24  C     | global, simple cartesian index grid. Exchange routine is  C     | global, simple cartesian index grid. Exchange routine is
25  C     | called with two arrays that are components of a vector.  C     | called with two arrays that are components of a vector.
26  C     | These components are rotated and interchanged on the  C     | These components are rotated and interchanged on the
27  C     | rotated grid during cube exchanges.  C     | rotated grid during cube exchanges.
28  C     *==========================================================*  C     *==========================================================*
29    
# Line 28  C     !USES: Line 31  C     !USES:
31  C     === Global data ===  C     === Global data ===
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "EESUPPORT.h"  cph-mpi#include "EESUPPORT.h"
35  #include "EXCH.h"  c#include "EXCH.h"
36    
37  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
38  C     === Routine arguments ===  C     === Routine arguments ===
# Line 45  C     withSigns :: Flag controlling whet Line 48  C     withSigns :: Flag controlling whet
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, myNz        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
56    #endif
57  CEOP  CEOP
58    
59  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
60    #ifdef W2_USE_R1_ONLY
61          CALL EXCH2_UV_CGRID_3D_RX(
62         U                       Uphi, Vphi,
63         I                       withSigns, 1, myThid )
64    #else
65        CALL EXCH2_UV_XY_RX(        CALL EXCH2_UV_XY_RX(
66       U                       Uphi, Vphi,       U                       Uphi, Vphi,
67       I                       withSigns, myThid )       I                       withSigns, myThid )
68    #endif
69        RETURN        RETURN
70  #else  #else /* ALLOW_EXCH2 */
71    
72        OLw        = OLx        OLw        = OLx
73        OLe        = OLx        OLe        = OLx
# Line 91  c_jmc: for JAM compatibility, replace th Line 102  c_jmc: for JAM compatibility, replace th
102        ENDIF        ENDIF
103    
104        RETURN        RETURN
105  #endif  #endif /* ALLOW_EXCH2 */
106        END        END
107    
108  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22