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_3D_RX |
C !ROUTINE: EXCH_UV_3D_RX |
55 |
|
|
56 |
CEOP |
CEOP |
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, myNz, myThid ) |
62 |
|
#else |
63 |
CALL EXCH2_UV_3D_RX( |
CALL EXCH2_UV_3D_RX( |
64 |
U Uphi, Vphi, |
U Uphi, Vphi, |
65 |
I withSigns, myNz, myThid ) |
I withSigns, myNz, myThid ) |
|
RETURN |
|
66 |
#endif |
#endif |
67 |
|
RETURN |
68 |
|
#else /* ALLOW_EXCH2 */ |
69 |
|
|
70 |
OLw = OLx |
OLw = OLx |
71 |
OLe = OLx |
OLe = OLx |
96 |
ENDIF |
ENDIF |
97 |
|
|
98 |
RETURN |
RETURN |
99 |
|
#endif /* ALLOW_EXCH2 */ |
100 |
END |
END |
101 |
|
|
102 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |