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

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

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

revision 1.4 by jmc, Wed May 19 01:53:46 2010 UTC revision 1.5 by jmc, Mon May 14 13:15:05 2012 UTC
# Line 51  CEOP Line 51  CEOP
51        CALL EXCH2_Z_3D_RX(        CALL EXCH2_Z_3D_RX(
52       U                    phi,       U                    phi,
53       I                    myNz, myThid )       I                    myNz, myThid )
       RETURN  
54  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
55    
56        OLw        = OLx        OLw        = OLx
# Line 66  CEOP Line 65  CEOP
65       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
66       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
67        ELSE        ELSE
68    #ifdef DISCONNECTED_TILES
69           CALL EXCH0_RX( phi,
70         I            OLw, OLe, OLs, OLn, myNz,
71         I            exchWidthX, exchWidthY,
72         I            EXCH_UPDATE_CORNERS, myThid )
73    #else /* DISCONNECTED_TILES */
74         CALL EXCH1_RX( phi,         CALL EXCH1_RX( phi,
75       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
76       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
77       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_UPDATE_CORNERS, myThid )
78    #endif /* DISCONNECTED_TILES */
79        ENDIF        ENDIF
80    
       RETURN  
81  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
82    
83          RETURN
84        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22