115 |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
116 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
117 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
118 |
I EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_IGNORE_CORNERS, myThid ) |
119 |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
120 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
121 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
124 |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
125 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
126 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
127 |
I EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_IGNORE_CORNERS, myThid ) |
128 |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
129 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
130 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |