78 |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
79 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
80 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
81 |
I EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_IGNORE_CORNERS, myThid ) |
82 |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( uPhi, .FALSE., 'T ', |
83 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
84 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
87 |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
88 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
89 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
90 |
I EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_IGNORE_CORNERS, myThid ) |
91 |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
CALL EXCH2_RX1_CUBE( vPhi, .FALSE., 'T ', |
92 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
93 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |