74 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
75 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
76 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
77 |
|
CALL EXCH2_RX2_CUBE( Uphi, Vphi, withSigns, 'UV', |
78 |
|
I OLw, OLe, OLs, OLn, myNz, |
79 |
|
I exchWidthX, exchWidthY, |
80 |
|
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
81 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
82 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
83 |
myTile = W2_myTileList(bi) |
myTile = W2_myTileList(bi) |