209 |
ELSE |
ELSE |
210 |
C--- not using CubedSphereExchange: |
C--- not using CubedSphereExchange: |
211 |
|
|
212 |
|
#ifndef AUTODIFF_EXCH2 |
213 |
CALL EXCH_RX( Uphi, |
CALL EXCH_RX( Uphi, |
214 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
215 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
218 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
219 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
220 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
221 |
|
#endif |
222 |
|
|
223 |
C--- using or not using CubedSphereExchange: end |
C--- using or not using CubedSphereExchange: end |
224 |
ENDIF |
ENDIF |