/[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.1.2.2 by jmc, Tue Apr 10 00:58:17 2001 UTC revision 1.11 by jmc, Wed May 19 01:53:46 2010 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
11    C     !ROUTINE: EXCH_UV_XY_RX
12    
13    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  C     /==========================================================\  
18  C     | SUBROUTINE EXCH_UV_XY_RX                                 |  C     !DESCRIPTION:
19  C     | o Handle exchanges for _RX,    two-dimensional arrays.   |  C     *==========================================================*
20  C     |==========================================================|  C     | SUBROUTINE EXCH_UV_XY_RX
21  C     | Do true shared-memory data transfers and "messaging"     |  C     | o Handle exchanges for _RX, 2-dimensional vector arrays.
22  C     | tranfers for blocking case of data transfers.            |  C     *==========================================================*
23  C     | Applications call this routine using                     |  C     | Vector arrays need to be rotated and interchaged for
24  C     |  CALL EXCH..( x, myThid )                                |  C     | exchange operations on some grids. This driver routine
25  C     | where x is a two-dimensional array with overlaps.        |  C     | branches to support this.
26  C     | This routine does true-shared-memory copies for blocks   |  C     *==========================================================*
27  C     | within a thread. It will also do MPI meesaging between   |  
28  C     | different processes.                                     |  C     !USES:
 C     | Note:                                                    |  
 C     | =====                                                    |  
 C     | This routine is a default mode interface to the more     |  
 C     | general exchange routine. Under default mode the         |  
 C     | exchange is for an edge width of OLx, and OLy and        |  
 C     | updates corner points as well as edges ( slightly more   |  
 C     | synchronisation required).                               |  
 C     \==========================================================/  
29        IMPLICIT NONE        IMPLICIT NONE
30    
31  C     === Global data ===  C     === Global data ===
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
34    
35    C     !INPUT/OUTPUT PARAMETERS:
36  C     === Routine arguments ===  C     === Routine arguments ===
37  C     phi    - Array with overlap regions are to be exchanged  C     Uphi      :: 2 components of a vector field with overlap regions
38  C              Note - The interface to EXCH_RL assumes that  C     Vphi      :: to be exchanged
39  C              the standard Fortran 77 sequence association rules  C     withSigns :: Flag controlling whether vector is signed.
40  C              apply.  C     myThid    :: my Thread Id. number
 C     myThid - My thread id.  
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
 CEndOfInterface  
45    
46    C     !LOCAL VARIABLES:
47    #ifndef ALLOW_EXCH2
48  C     == Local variables ==  C     == Local variables ==
49  C     OL[wens]       - Overlap extents in west, east, north, south.  C     OL[wens]       :: Overlap extents in west, east, north, south.
50  C     exchWidth[XY]  - Extent of regions that will be exchanged.  C     exchWidth[XY]  :: Extent of regions that will be exchanged.
51        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
52    #endif
53    CEOP
54    
55    #ifdef ALLOW_EXCH2
56    #ifdef W2_USE_R1_ONLY
57          CALL EXCH2_UV_CGRID_3D_RX(
58         U                     Uphi, Vphi,
59         I                     withSigns, 1, myThid )
60    #else
61          CALL EXCH2_UV_3D_RX(
62         U                     Uphi, Vphi,
63         I                     withSigns, 1, myThid )
64    #endif
65          RETURN
66    #else /* ALLOW_EXCH2 */
67    
68        OLw        = OLx        OLw        = OLx
69        OLe        = OLx        OLe        = OLx
# Line 57  C     exchWidth[XY]  - Extent of regions Line 72  C     exchWidth[XY]  - Extent of regions
72        exchWidthX = OLx        exchWidthX = OLx
73        exchWidthY = OLy        exchWidthY = OLy
74        myNz       = 1        myNz       = 1
 C     ** NOTE ** The exchange routine we use here does not  
 C                require the preceeding and following barriers.  
 C                However, the slow, simple exchange interface  
 C                that is calling it here is meant to ensure  
 C                that threads are synchronised before exchanges  
 C                begine.  
       _BARRIER  
75        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
76         CALL EXCH_UV_RX_CUBE( Uphi, Vphi, withSigns,         CALL EXCH1_UV_RX_CUBE( Uphi, Vphi, withSigns,
77       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
78       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
79       I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
80        ELSE        ELSE
81  c      CALL EXCH_RX( Uphi,         CALL EXCH1_RX( Uphi,
82  c    I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
83  c    I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
84  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
85  c      CALL EXCH_RX( Vphi,         CALL EXCH1_RX( Vphi,
86  c    I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
87  c    I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
88  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
 c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs:  
        _EXCH_XY_RX( Uphi, myThid )  
        _EXCH_XY_RX( Vphi, myThid )  
89        ENDIF        ENDIF
       _BARRIER  
90    
91        RETURN        RETURN
92    #endif /* ALLOW_EXCH2 */
93        END        END
94    
95    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
96    
97    CEH3 ;;; Local Variables: ***
98    CEH3 ;;; mode:fortran ***
99    CEH3 ;;; End: ***
Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22