[Mitgcm-support] Exchange macro/cg2d ?

[mitgcm-support at dev.mitgcm.org]

Chris,

Annoying little thing...

In cg2d.F, regular lat-lon - atmos-exact,

       CALL EXCH_RL( cg2d_s,
     I            OLw, OLe, OLs, OLn, myNz,
     I            exchWidthX, exchWidthY,
     I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
c     _EXCH_XY_R8( cg2d_s, myThid )

works but

c      CALL EXCH_RL( cg2d_s,
c    I            OLw, OLe, OLs, OLn, myNz,
c    I            exchWidthX, exchWidthY,
c    I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
      _EXCH_XY_R8( cg2d_s, myThid )

doesn't work.


However, earlier in the routine,

c      CALL EXCH_RL( cg2d_r,
c    I            OLw, OLe, OLs, OLn, myNz,
c    I            exchWidthX, exchWidthY,
c    I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
      _EXCH_XY_R8( cg2d_r, myThid )

works.

Confused...

A.