eesupp/src/exch_z_xyz_rx.template

C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_z_xyz_rx.template,v 1.3 2001/09/21 03:55:50 cnh Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CBOP
C     !ROUTINE: EXCH_Z_XYZ_RX

C     !INTERFACE:
      SUBROUTINE EXCH_Z_XYZ_RX(
     U                       phi,
     I                       myThid )
      IMPLICIT NONE
C     !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE EXCH_Z_XYZ_RX                                  
C     | o Handle exchanges for _RX, 3-dim, zeta coord arrays.    
C     *==========================================================*
C     | Branch to appropriate exchange routine for a zeta coord
C     | array on the current grid scheme.
C     *==========================================================*

C     !USES:
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     phi    :: Array with overlap regions are to be exchanged
C               Note - The interface to EXCH_RX assumes that
C               the standard Fortran 77 sequence association rules
C               apply.
C     myThid :: My thread id.
      _RX phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      INTEGER myThid

C     !LOCAL VARIABLES:
C     == Local variables ==
C     OL[wens]       :: Overlap extents in west, east, north, south.
C     exchWidth[XY]  :: Extent of regions that will be exchanged.
      INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
CEOP

      OLw        = OLx
      OLe        = OLx
      OLn        = OLy
      OLs        = OLy
      exchWidthX = OLx
      exchWidthY = OLy
      myNz       = Nr
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.
      IF (useCubedSphereExchange) THEN
       CALL EXCH_Z_RX_CUBE( phi,
     I            OLw, OLe, OLs, OLn, myNz,
     I            exchWidthX, exchWidthY,
     I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
      ELSE
       CALL EXCH_RX( phi,
     I            OLw, OLe, OLs, OLn, myNz,
     I            exchWidthX, exchWidthY,
     I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
      ENDIF

      RETURN
      END
1	edhill	1.4	C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_z_xyz_rx.template,v 1.3 2001/09/21 03:55:50 cnh Exp $
2	cnh	1.3	C $Name: $
3	adcroft	1.2
4			#include "CPP_EEOPTIONS.h"
5
6	cnh	1.3	CBOP
7			C !ROUTINE: EXCH_Z_XYZ_RX
8
9			C !INTERFACE:
10	adcroft	1.2	SUBROUTINE EXCH_Z_XYZ_RX(
11			U phi,
12			I myThid )
13			IMPLICIT NONE
14	cnh	1.3	C !DESCRIPTION:
15			C ==========================================================
16			C \| SUBROUTINE EXCH_Z_XYZ_RX
17			C \| o Handle exchanges for _RX, 3-dim, zeta coord arrays.
18			C ==========================================================
19			C \| Branch to appropriate exchange routine for a zeta coord
20			C \| array on the current grid scheme.
21			C ==========================================================
22	adcroft	1.2
23	cnh	1.3	C !USES:
24			C == Global variables ==
25	adcroft	1.2	#include "SIZE.h"
26			#include "EEPARAMS.h"
27			#include "EESUPPORT.h"
28	edhill	1.4	#include "EXCH.h"
29	adcroft	1.2
30	cnh	1.3	C !INPUT/OUTPUT PARAMETERS:
31			C == Routine arguments ==
32			C phi :: Array with overlap regions are to be exchanged
33			C Note - The interface to EXCH_RX assumes that
34			C the standard Fortran 77 sequence association rules
35			C apply.
36			C myThid :: My thread id.
37	adcroft	1.2	_RX phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38			INTEGER myThid
39
40	cnh	1.3	C !LOCAL VARIABLES:
41	adcroft	1.2	C == Local variables ==
42	cnh	1.3	C OL[wens] :: Overlap extents in west, east, north, south.
43			C exchWidth[XY] :: Extent of regions that will be exchanged.
44	adcroft	1.2	INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
45	cnh	1.3	CEOP
46	adcroft	1.2
47			OLw = OLx
48			OLe = OLx
49			OLn = OLy
50			OLs = OLy
51			exchWidthX = OLx
52			exchWidthY = OLy
53			myNz = Nr
54			C NOTE The exchange routine we use here does not
55			C require the preceeding and following barriers.
56			C However, the slow, simple exchange interface
57			C that is calling it here is meant to ensure
58			C that threads are synchronised before exchanges
59			C begine.
60			IF (useCubedSphereExchange) THEN
61			CALL EXCH_Z_RX_CUBE( phi,
62			I OLw, OLe, OLs, OLn, myNz,
63			I exchWidthX, exchWidthY,
64			I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
65			ELSE
66			CALL EXCH_RX( phi,
67			I OLw, OLe, OLs, OLn, myNz,
68			I exchWidthX, exchWidthY,
69			I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
70			ENDIF
71
72			RETURN
73			END