/[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.2 by adcroft, Tue May 29 14:01:36 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,
69       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
70       I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
71        ELSE        ELSE
72         CALL EXCH_RX( Uphi,  c      CALL EXCH_RX( Uphi,
73       I            OLw, OLe, OLs, OLn, myNz,  c    I            OLw, OLe, OLs, OLn, myNz,
74       I            exchWidthX, exchWidthY,  c    I            exchWidthX, exchWidthY,
75       I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
76         CALL EXCH_RX( Vphi,  c      CALL EXCH_RX( Vphi,
77       I            OLw, OLe, OLs, OLn, myNz,  c    I            OLw, OLe, OLs, OLn, myNz,
78       I            exchWidthX, exchWidthY,  c    I            exchWidthX, exchWidthY,
79       I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )  c    I            FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid )
80    c_jmc: for JAM compatibility, replace the 2 CALLs above by the 2 CPP_MACROs:
81           _EXCH_XY_RX( Uphi, myThid )
82           _EXCH_XY_RX( Vphi, myThid )
83        ENDIF        ENDIF
       _BARRIER  
84    
85        RETURN        RETURN
86        END        END
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22