11 |
SUBROUTINE EXCH2_RX2_CUBE_AD( |
SUBROUTINE EXCH2_RX2_CUBE_AD( |
12 |
U array1, array2, |
U array1, array2, |
13 |
I signOption, fieldCode, |
I signOption, fieldCode, |
14 |
I myOLw, myOLe, myOLn, myOLs, myNz, |
I myOLw, myOLe, myOLs, myOLn, myNz, |
15 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
16 |
I cornerMode, myThid ) |
I cornerMode, myThid ) |
17 |
|
|
37 |
C signOption :: Flag controlling whether vector is signed. |
C signOption :: Flag controlling whether vector is signed. |
38 |
C fieldCode :: field code (position on staggered grid) |
C fieldCode :: field code (position on staggered grid) |
39 |
C myOLw,myOLe :: West and East overlap region sizes. |
C myOLw,myOLe :: West and East overlap region sizes. |
40 |
C myOLn,myOLs :: North and South overlap region sizes. |
C myOLs,myOLn :: South and North overlap region sizes. |
41 |
C exchWidthX :: Width of data region exchanged in X. |
C exchWidthX :: Width of data region exchanged in X. |
42 |
C exchWidthY :: Width of data region exchanged in Y. |
C exchWidthY :: Width of data region exchanged in Y. |
43 |
C cornerMode :: halo-corner-region treatment: update/ignore corner region |
C cornerMode :: halo-corner-region treatment: update/ignore corner region |
44 |
C myThid :: Thread number of this instance of S/R EXCH... |
C myThid :: Thread number of this instance of S/R EXCH... |
45 |
|
|
46 |
INTEGER myOLw, myOLe, myOLn, myOLs, myNz |
INTEGER myOLw, myOLe, myOLs, myOLn, myNz |
47 |
_RX array1(1-myOLw:sNx+myOLe, |
_RX array1(1-myOLw:sNx+myOLe, |
48 |
& 1-myOLs:sNy+myOLn, |
& 1-myOLs:sNy+myOLn, |
49 |
& myNz, nSx, nSy) |
& myNz, nSx, nSy) |