97 |
c I exchWidthX, exchWidthY, |
c I exchWidthX, exchWidthY, |
98 |
c I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
c I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
99 |
c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs: |
c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs: |
100 |
_EXCH_XY_RX( Uphi, myThid ) |
c _EXCH_XY_RX( Uphi, myThid ) |
101 |
_EXCH_XY_RX( Vphi, myThid ) |
c _EXCH_XY_RX( Vphi, myThid ) |
102 |
|
CALL EXCH_XY_RX( Uphi, myThid ) |
103 |
|
CALL EXCH_XY_RX( Vphi, myThid ) |
104 |
ENDIF |
ENDIF |
105 |
|
|
106 |
RETURN |
RETURN |