/[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.2 by jmc, Tue Apr 10 00:58:17 2001 UTC revision 1.1.2.3 by cnh, Thu Apr 12 10:52:48 2001 UTC
# Line 63  C                However, the slow, simp Line 63  C                However, the slow, simp
63  C                that is calling it here is meant to ensure  C                that is calling it here is meant to ensure
64  C                that threads are synchronised before exchanges  C                that threads are synchronised before exchanges
65  C                begine.  C                begine.
       _BARRIER  
66        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
67         CALL EXCH_UV_RX_CUBE( Uphi, Vphi, withSigns,         CALL EXCH_UV_RX_CUBE( Uphi, Vphi, withSigns,
68       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
# Line 82  c_jmc: for JAM compatibility, replace th Line 81  c_jmc: for JAM compatibility, replace th
81         _EXCH_XY_RX( Uphi, myThid )         _EXCH_XY_RX( Uphi, myThid )
82         _EXCH_XY_RX( Vphi, myThid )         _EXCH_XY_RX( Vphi, myThid )
83        ENDIF        ENDIF
       _BARRIER  
84    
85        RETURN        RETURN
86        END        END
Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3
  ViewVC Help
Powered by ViewVC 1.1.22