1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
6 |
|
|
7 |
CBOP |
CBOP |
9 |
|
|
10 |
C !INTERFACE: |
C !INTERFACE: |
11 |
SUBROUTINE EXCH_UV_XY_RX( |
SUBROUTINE EXCH_UV_XY_RX( |
12 |
U Uphi, Vphi, withSigns, |
U Uphi, Vphi, |
13 |
I myThid ) |
I withSigns, myThid ) |
14 |
IMPLICIT NONE |
IMPLICIT NONE |
15 |
C !DESCRIPTION: |
C !DESCRIPTION: |
16 |
C *==========================================================* |
C *==========================================================* |
51 |
INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
52 |
CEOP |
CEOP |
53 |
|
|
54 |
|
#ifdef ALLOW_EXCH2 |
55 |
|
CALL EXCH2_UV_XY_RX( |
56 |
|
U Uphi, Vphi, |
57 |
|
I withSigns, myThid ) |
58 |
|
RETURN |
59 |
|
#endif |
60 |
|
|
61 |
OLw = OLx |
OLw = OLx |
62 |
OLe = OLx |
OLe = OLx |
63 |
OLn = OLy |
OLn = OLy |
92 |
|
|
93 |
RETURN |
RETURN |
94 |
END |
END |
95 |
|
|
96 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
97 |
|
|
98 |
|
CEH3 ;;; Local Variables: *** |
99 |
|
CEH3 ;;; mode:fortran *** |
100 |
|
CEH3 ;;; End: *** |