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

Contents of /MITgcm/eesupp/src/exch_xyz_rx.template

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


Revision 1.7 - (show annotations) (download)
Fri Nov 17 22:35:03 2006 UTC (17 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint59, checkpoint58y_post, checkpoint58t_post, checkpoint58w_post, mitgcm_mapl_00, checkpoint59e, checkpoint59d, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint58v_post, checkpoint58x_post, checkpoint58u_post, checkpoint58s_post
Changes since 1.6: +3 -2 lines
Remove EXCH(1) code ifdef ALLOW_EXCH2 (since old exch isnt used anyways)
Allows TAF not to choke on old exch stuff.

1 C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_xyz_rx.template,v 1.6 2006/08/23 15:20:37 jmc Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_EEOPTIONS.h"
6
7 CBOP
8 C !ROUTINE: EXCH_XYZ_RX
9
10 C !INTERFACE:
11 SUBROUTINE EXCH_XYZ_RX(
12 U phi,
13 I myThid )
14
15 C !DESCRIPTION:
16 C *==========================================================*
17 C | SUBROUTINE EXCH_XYZ_RX
18 C | o Handle exchanges for _RX, three-dim scalar arrays.
19 C *==========================================================*
20 C | Invoke appropriate exchange routine depending on type
21 C | of grid (cube or globally indexed) to be operated on.
22 C *==========================================================*
23
24 C !USES:
25 IMPLICIT NONE
26 C === Global data ===
27 #include "SIZE.h"
28 #include "EEPARAMS.h"
29 #include "EESUPPORT.h"
30 #include "EXCH.h"
31
32 C !INPUT/OUTPUT PARAMETERS:
33 C === Routine arguments ===
34 C phi :: Array with overlap regions are to be exchanged
35 C myThid :: My thread id.
36 _RX phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,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, myNz
44
45 CEOP
46
47 #ifdef ALLOW_EXCH2
48 CALL EXCH2_3D_RX( phi, Nr, myThid )
49 RETURN
50 #else
51
52 OLw = OLx
53 OLe = OLx
54 OLn = OLy
55 OLs = OLy
56 exchWidthX = OLx
57 exchWidthY = OLy
58 myNz = Nr
59 C ** NOTE ** The exchange routine we use here does not
60 C require the preceeding and following barriers.
61 C However, the slow, simple exchange interface
62 C that is calling it here is meant to ensure
63 C that threads are synchronised before exchanges
64 C begine.
65 IF (useCubedSphereExchange) THEN
66 CALL EXCH_RX_CUBE( phi,
67 I OLw, OLe, OLs, OLn, myNz,
68 I exchWidthX, exchWidthY,
69 I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
70 ELSE
71 CALL EXCH_RX( phi,
72 I OLw, OLe, OLs, OLn, myNz,
73 I exchWidthX, exchWidthY,
74 I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
75 ENDIF
76
77 RETURN
78 #endif
79 END

  ViewVC Help
Powered by ViewVC 1.1.22