/[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.4 by edhill, Sat Apr 3 04:46:34 2004 UTC revision 1.7 by jmc, Wed Jul 25 21:19:44 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #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
12    
13  C     !INTERFACE:  C     !INTERFACE:
14        SUBROUTINE EXCH_UV_XY_RX(        SUBROUTINE EXCH_UV_XY_RX(
15       U                       Uphi, Vphi, withSigns,       U                       Uphi, Vphi,
16       I                       myThid )       I                       withSigns, myThid )
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 50  C     exchWidth[XY]  :: Extent of region Line 54  C     exchWidth[XY]  :: Extent of region
54        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
55  CEOP  CEOP
56    
57    #ifdef ALLOW_EXCH2
58    #ifdef W2_USE_R1_ONLY
59          CALL EXCH2_UV_CGRID_3D_RX(
60         U                       Uphi, Vphi,
61         I                       withSigns, 1, myThid )
62    #else
63          CALL EXCH2_UV_XY_RX(
64         U                       Uphi, Vphi,
65         I                       withSigns, myThid )
66    #endif
67          RETURN
68    #else /* ALLOW_EXCH2 */
69    
70        OLw        = OLx        OLw        = OLx
71        OLe        = OLx        OLe        = OLx
72        OLn        = OLy        OLn        = OLy
# Line 83  c_jmc: for JAM compatibility, replace th Line 100  c_jmc: for JAM compatibility, replace th
100        ENDIF        ENDIF
101    
102        RETURN        RETURN
103    #endif /* ALLOW_EXCH2 */
104        END        END
105    
106    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
107    
108    CEH3 ;;; Local Variables: ***
109    CEH3 ;;; mode:fortran ***
110    CEH3 ;;; End: ***
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22