192 |
exchWidthY = 1 |
exchWidthY = 1 |
193 |
myNz = 1 |
myNz = 1 |
194 |
CALL EXCH_RL( cg2d_r, |
CALL EXCH_RL( cg2d_r, |
195 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, sNx, sNy, myNz, |
196 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
197 |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
198 |
#endif |
#endif |
208 |
exchWidthY = 1 |
exchWidthY = 1 |
209 |
myNz = 1 |
myNz = 1 |
210 |
CALL EXCH_RL( cg2d_s, |
CALL EXCH_RL( cg2d_s, |
211 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, sNx, sNy, myNz, |
212 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
213 |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
214 |
#endif |
#endif |
295 |
exchWidthY = 1 |
exchWidthY = 1 |
296 |
myNz = 1 |
myNz = 1 |
297 |
CALL EXCH_RL( cg2d_s, |
CALL EXCH_RL( cg2d_s, |
298 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, sNx, sNy, myNz, |
299 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
300 |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
301 |
#endif |
#endif |
364 |
exchWidthY = 1 |
exchWidthY = 1 |
365 |
myNz = 1 |
myNz = 1 |
366 |
CALL EXCH_RL( cg2d_r, |
CALL EXCH_RL( cg2d_r, |
367 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, sNx, sNy, myNz, |
368 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
369 |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
I FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid ) |
370 |
#endif |
#endif |