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

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

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

revision 1.5 by jmc, Tue Nov 16 17:21:40 2004 UTC revision 1.6 by jmc, Wed Aug 23 15:20:37 2006 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12        SUBROUTINE EXCH_UV_XYZ_RX(        SUBROUTINE EXCH_UV_XYZ_RX(
13       U                       Uphi, Vphi,       U                       Uphi, Vphi,
14       I                       withSigns, myThid )       I                       withSigns, myThid )
15        IMPLICIT NONE  
16  C     !DESCRIPTION:  C     !DESCRIPTION:
17  C     *==========================================================*  C     *==========================================================*
18  C     | SUBROUTINE EXCH_UV_XYZ_RX                                  C     | SUBROUTINE EXCH_UV_XYZ_RX
19  C     | o Handle exchanges for _RX, 3-dimensional vector arrays.      C     | o Handle exchanges for _RX, 3-dimensional vector arrays.
20  C     *==========================================================*  C     *==========================================================*
21  C     | Vector arrays need to be rotated and interchaged for  C     | Vector arrays need to be rotated and interchaged for
22  C     | exchange operations on some grids. This driver routine  C     | exchange operations on some grids. This driver routine
23  C     | branches to support this.  C     | branches to support this.
24  C     *==========================================================*  C     *==========================================================*
25    
26  C     !USES:  C     !USES:
27          IMPLICIT NONE
28  C     === Global data ===  C     === Global data ===
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 50  C     exchWidth[XY]  :: Extent of region Line 51  C     exchWidth[XY]  :: Extent of region
51    
52  CEOP  CEOP
53  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
54        CALL EXCH2_UV_XYZ_RX(        CALL EXCH2_UV_3D_RX(
55       U                       Uphi, Vphi,       U                     Uphi, Vphi,
56       I                       withSigns, myThid )       I                     withSigns, Nr, myThid )
57        RETURN        RETURN
58  #endif  #endif
59    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22