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

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

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

revision 1.2 by heimbach, Fri Nov 17 22:35:03 2006 UTC revision 1.3 by jmc, Wed Jul 25 21:19:44 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
6    #ifdef ALLOW_EXCH2
7    #include "W2_OPTIONS.h"
8    #endif
9    
10  CBOP  CBOP
11  C     !ROUTINE: EXCH_UV_3D_RX  C     !ROUTINE: EXCH_UV_3D_RX
# Line 52  C     exchWidth[XY]  :: Extent of region Line 55  C     exchWidth[XY]  :: Extent of region
55    
56  CEOP  CEOP
57  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
58    #ifdef W2_USE_R1_ONLY
59          CALL EXCH2_UV_CGRID_3D_RX(
60         U                     Uphi, Vphi,
61         I                     withSigns, myNz, myThid )
62    #else
63        CALL EXCH2_UV_3D_RX(        CALL EXCH2_UV_3D_RX(
64       U                     Uphi, Vphi,       U                     Uphi, Vphi,
65       I                     withSigns, myNz, myThid )       I                     withSigns, myNz, myThid )
66    #endif
67        RETURN        RETURN
68  #else  #else /* ALLOW_EXCH2 */
69    
70        OLw        = OLx        OLw        = OLx
71        OLe        = OLx        OLe        = OLx
# Line 87  C                begine. Line 96  C                begine.
96        ENDIF        ENDIF
97    
98        RETURN        RETURN
99  #endif  #endif /* ALLOW_EXCH2 */
100        END        END
101    
102  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22