70 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
71 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
72 |
ELSE |
ELSE |
73 |
CALL EXCH_RX( Uphi, |
c CALL EXCH_RX( Uphi, |
74 |
I OLw, OLe, OLs, OLn, myNz, |
c I OLw, OLe, OLs, OLn, myNz, |
75 |
I exchWidthX, exchWidthY, |
c I exchWidthX, exchWidthY, |
76 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
c I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
77 |
CALL EXCH_RX( Vphi, |
c CALL EXCH_RX( Vphi, |
78 |
I OLw, OLe, OLs, OLn, myNz, |
c I OLw, OLe, OLs, OLn, myNz, |
79 |
I exchWidthX, exchWidthY, |
c I exchWidthX, exchWidthY, |
80 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
c I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
81 |
|
c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs: |
82 |
|
_EXCH_XY_RX( Uphi, myThid ) |
83 |
|
_EXCH_XY_RX( Vphi, myThid ) |
84 |
ENDIF |
ENDIF |
85 |
_BARRIER |
_BARRIER |
86 |
|
|