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

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

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

revision 1.10 by jmc, Wed May 19 01:53:46 2010 UTC revision 1.11 by jmc, Mon May 14 13:15:05 2012 UTC
# Line 46  CEOP Line 46  CEOP
46    
47  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
48        CALL EXCH2_3D_RX( phi, Nr, myThid )        CALL EXCH2_3D_RX( phi, Nr, myThid )
       RETURN  
49  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
50    
51        OLw        = OLx        OLw        = OLx
# Line 62  CEOP Line 61  CEOP
61       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
62       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
63        ELSE        ELSE
64    #ifdef DISCONNECTED_TILES
65           CALL EXCH0_RX( phi,
66         I            OLw, OLe, OLs, OLn, myNz,
67         I            exchWidthX, exchWidthY,
68         I            EXCH_UPDATE_CORNERS, myThid )
69    #else /* DISCONNECTED_TILES */
70         CALL EXCH1_RX( phi,         CALL EXCH1_RX( phi,
71       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
72       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
73       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
74    #endif /* DISCONNECTED_TILES */
75        ENDIF        ENDIF
76    
       RETURN  
77  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
78    
79          RETURN
80        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22