/[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.11 by jmc, Wed May 19 01:53:46 2010 UTC revision 1.12 by jmc, Mon May 14 13:15:05 2012 UTC
# Line 12  C     !ROUTINE: EXCH_UV_XY_RX Line 12  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,       U                          uPhi, vPhi,
16       I                          withSigns, myThid )       I                          withSigns, myThid )
17    
18  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 34  C     === Global data === Line 34  C     === Global data ===
34    
35  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
36  C     === Routine arguments ===  C     === Routine arguments ===
37  C     Uphi      :: 2 components of a vector field with overlap regions  C     uPhi      :: 2 components of a vector field with overlap regions
38  C     Vphi      :: to be exchanged  C     vPhi      :: to be exchanged
39  C     withSigns :: Flag controlling whether vector is signed.  C     withSigns :: Flag controlling whether vector is signed.
40  C     myThid    :: my Thread Id. number  C     myThid    :: my Thread Id. number
41        _RX Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42        _RX Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43        LOGICAL withSigns        LOGICAL withSigns
44        INTEGER myThid        INTEGER myThid
45    
# Line 55  CEOP Line 55  CEOP
55  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
56  #ifdef W2_USE_R1_ONLY  #ifdef W2_USE_R1_ONLY
57        CALL EXCH2_UV_CGRID_3D_RX(        CALL EXCH2_UV_CGRID_3D_RX(
58       U                     Uphi, Vphi,       U                     uPhi, vPhi,
59       I                     withSigns, 1, myThid )       I                     withSigns, 1, myThid )
60  #else  #else
61        CALL EXCH2_UV_3D_RX(        CALL EXCH2_UV_3D_RX(
62       U                     Uphi, Vphi,       U                     uPhi, vPhi,
63       I                     withSigns, 1, myThid )       I                     withSigns, 1, myThid )
64  #endif  #endif
       RETURN  
65  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
66    
67        OLw        = OLx        OLw        = OLx
# Line 73  CEOP Line 72  CEOP
72        exchWidthY = OLy        exchWidthY = OLy
73        myNz       = 1        myNz       = 1
74        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
75         CALL EXCH1_UV_RX_CUBE( Uphi, Vphi, withSigns,         CALL EXCH1_UV_RX_CUBE( uPhi, vPhi, withSigns,
76       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
77       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
78       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
79        ELSE        ELSE
80         CALL EXCH1_RX( Uphi,  #ifdef DISCONNECTED_TILES
81           CALL EXCH0_RX( uPhi,
82         I            OLw, OLe, OLs, OLn, myNz,
83         I            exchWidthX, exchWidthY,
84         I            EXCH_UPDATE_CORNERS, myThid )
85           CALL EXCH0_RX( vPhi,
86         I            OLw, OLe, OLs, OLn, myNz,
87         I            exchWidthX, exchWidthY,
88         I            EXCH_UPDATE_CORNERS, myThid )
89    #else /* DISCONNECTED_TILES */
90           CALL EXCH1_RX( uPhi,
91       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
92       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
93       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
94         CALL EXCH1_RX( Vphi,         CALL EXCH1_RX( vPhi,
95       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
96       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
97       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
98    #endif /* DISCONNECTED_TILES */
99        ENDIF        ENDIF
100    
       RETURN  
101  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
102    
103          RETURN
104        END        END
105    
106  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22