/[MITgcm]/MITgcm/eesupp/src/exch_uv_xy_rx.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_uv_xy_rx.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1.2.1 by adcroft, Wed Mar 28 19:48:51 2001 UTC revision 1.1.2.2 by jmc, Tue Apr 10 00:58:17 2001 UTC
# Line 70  C                begine. Line 70  C                begine.
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    

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

  ViewVC Help
Powered by ViewVC 1.1.22