pkg/exch2/exch2_s3d_rx.template

C $Header: /u/gcmpack/MITgcm/pkg/exch2/exch2_s3d_rx.template,v 1.7 2009/05/30 21:27:51 jmc Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"
#include "W2_OPTIONS.h"

CBOP
C     !ROUTINE: EXCH2_S3D_RX

C     !INTERFACE:
      SUBROUTINE EXCH2_S3D_RX(
     U                       phi,
     I                       myNz, myThid )

C     !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE EXCH2_S3D_RX
C     | o Handle Simple exchanges (= that ignore corners)
C     |   for _RX, 3-dim scalar arrays with overlap size = 1
C     *==========================================================*

C     !USES:
      IMPLICIT NONE
C     === Global data ===
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "W2_EXCH2_SIZE.h"
c#include "W2_EXCH2_TOPOLOGY.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     phi    :: Array with overlap regions are to be exchanged
C     myNz   :: 3rd dimension of array to exchange
C     myThid :: My thread id.
      INTEGER myNz
      _RX phi(0:sNx+1,0:sNy+1,myNz,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

CEOP

      OLw        = 1
      OLe        = 1
      OLn        = 1
      OLs        = 1
      exchWidthX = 1
      exchWidthY = 1

      CALL EXCH2_RX1_CUBE( phi, 'T ',
     I            OLw, OLe, OLs, OLn, myNz,
     I            exchWidthX, exchWidthY,
     I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )

      RETURN
      END

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/exch2/exch2_s3d_rx.template,v 1.7 2009/05/30 21:27:51 jmc Exp $
2	C $Name: $
3
4	#include "CPP_EEOPTIONS.h"
5	#include "W2_OPTIONS.h"
6
7	CBOP
8	C !ROUTINE: EXCH2_S3D_RX
9
10	C !INTERFACE:
11	SUBROUTINE EXCH2_S3D_RX(
12	U phi,
13	I myNz, myThid )
14
15	C !DESCRIPTION:
16	C ==========================================================
17	C \| SUBROUTINE EXCH2_S3D_RX
18	C \| o Handle Simple exchanges (= that ignore corners)
19	C \| for _RX, 3-dim scalar arrays with overlap size = 1
20	C ==========================================================
21
22	C !USES:
23	IMPLICIT NONE
24	C === Global data ===
25	#include "SIZE.h"
26	#include "EEPARAMS.h"
27	c#include "W2_EXCH2_SIZE.h"
28	c#include "W2_EXCH2_TOPOLOGY.h"
29
30	C !INPUT/OUTPUT PARAMETERS:
31	C === Routine arguments ===
32	C phi :: Array with overlap regions are to be exchanged
33	C myNz :: 3rd dimension of array to exchange
34	C myThid :: My thread id.
35	INTEGER myNz
36	_RX phi(0:sNx+1,0:sNy+1,myNz,nSx,nSy)
37	INTEGER myThid
38
39	C !LOCAL VARIABLES:
40	C == Local variables ==
41	C OL[wens] :: Overlap extents in west, east, north, south.
42	C exchWidth[XY] :: Extent of regions that will be exchanged.
43	INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY
44
45	CEOP
46
47	OLw = 1
48	OLe = 1
49	OLn = 1
50	OLs = 1
51	exchWidthX = 1
52	exchWidthY = 1
53
54	CALL EXCH2_RX1_CUBE( phi, 'T ',
55	I OLw, OLe, OLs, OLn, myNz,
56	I exchWidthX, exchWidthY,
57	I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
58
59	RETURN
60	END
61
62	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
63
64	CEH3 ;;; Local Variables: ***
65	CEH3 ;;; mode:fortran ***
66	CEH3 ;;; End: ***