3 |
|
|
4 |
#include "PACKAGES_CONFIG.h" |
#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 |
CBOP |
11 |
C !ROUTINE: EXCH_UV_XY_RX |
C !ROUTINE: EXCH_UV_XY_RX |
17 |
IMPLICIT NONE |
IMPLICIT NONE |
18 |
C !DESCRIPTION: |
C !DESCRIPTION: |
19 |
C *==========================================================* |
C *==========================================================* |
20 |
C | SUBROUTINE EXCH_UV_XY_RX |
C | SUBROUTINE EXCH_UV_XY_RX |
21 |
C | o Handle exchanges for _RX, two-dimensional arrays. |
C | o Handle exchanges for _RX, two-dimensional arrays. |
22 |
C *==========================================================* |
C *==========================================================* |
23 |
C | Driver exchange routine which branches to cube sphere or |
C | Driver exchange routine which branches to cube sphere or |
24 |
C | global, simple cartesian index grid. Exchange routine is |
C | global, simple cartesian index grid. Exchange routine is |
25 |
C | called with two arrays that are components of a vector. |
C | called with two arrays that are components of a vector. |
26 |
C | These components are rotated and interchanged on the |
C | These components are rotated and interchanged on the |
27 |
C | rotated grid during cube exchanges. |
C | rotated grid during cube exchanges. |
28 |
C *==========================================================* |
C *==========================================================* |
29 |
|
|
55 |
CEOP |
CEOP |
56 |
|
|
57 |
#ifdef ALLOW_EXCH2 |
#ifdef ALLOW_EXCH2 |
58 |
|
#ifdef W2_USE_R1_ONLY |
59 |
|
CALL EXCH2_UV_CGRID_3D_RX( |
60 |
|
U Uphi, Vphi, |
61 |
|
I withSigns, 1, myThid ) |
62 |
|
#else |
63 |
CALL EXCH2_UV_XY_RX( |
CALL EXCH2_UV_XY_RX( |
64 |
U Uphi, Vphi, |
U Uphi, Vphi, |
65 |
I withSigns, myThid ) |
I withSigns, myThid ) |
66 |
|
#endif |
67 |
RETURN |
RETURN |
68 |
#else |
#else /* ALLOW_EXCH2 */ |
69 |
|
|
70 |
OLw = OLx |
OLw = OLx |
71 |
OLe = OLx |
OLe = OLx |
100 |
ENDIF |
ENDIF |
101 |
|
|
102 |
RETURN |
RETURN |
103 |
#endif |
#endif /* ALLOW_EXCH2 */ |
104 |
END |
END |
105 |
|
|
106 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |