/[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.3 by cnh, Fri Sep 21 03:55:50 2001 UTC revision 1.6 by heimbach, Fri Nov 17 22:35:03 2006 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
6    
7  CBOP  CBOP
# Line 8  C     !ROUTINE: EXCH_UV_XY_RX Line 9  C     !ROUTINE: EXCH_UV_XY_RX
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE EXCH_UV_XY_RX(        SUBROUTINE EXCH_UV_XY_RX(
12       U                       Uphi, Vphi, withSigns,       U                       Uphi, Vphi,
13       I                       myThid )       I                       withSigns, myThid )
14        IMPLICIT NONE        IMPLICIT NONE
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     *==========================================================*  C     *==========================================================*
# Line 28  C     === Global data === Line 29  C     === Global data ===
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "EESUPPORT.h"  #include "EESUPPORT.h"
32    #include "EXCH.h"
33    
34  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
35  C     === Routine arguments ===  C     === Routine arguments ===
# Line 49  C     exchWidth[XY]  :: Extent of region Line 51  C     exchWidth[XY]  :: Extent of region
51        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
52  CEOP  CEOP
53    
54    #ifdef ALLOW_EXCH2
55          CALL EXCH2_UV_XY_RX(
56         U                       Uphi, Vphi,
57         I                       withSigns, myThid )
58          RETURN
59    #else
60    
61        OLw        = OLx        OLw        = OLx
62        OLe        = OLx        OLe        = OLx
63        OLn        = OLy        OLn        = OLy
# Line 82  c_jmc: for JAM compatibility, replace th Line 91  c_jmc: for JAM compatibility, replace th
91        ENDIF        ENDIF
92    
93        RETURN        RETURN
94    #endif
95        END        END
96    
97    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
98    
99    CEH3 ;;; Local Variables: ***
100    CEH3 ;;; mode:fortran ***
101    CEH3 ;;; End: ***
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22