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

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

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

revision 1.2 by edhill, Sat Apr 3 04:46:34 2004 UTC revision 1.4 by jmc, Tue Nov 16 17:21:40 2004 UTC
# Line 1  Line 1 
1        subroutine exch_uv_agrid_xy_RX( component1,component2, myThid )  C $Header$
2    C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
6    
7          SUBROUTINE EXCH_UV_AGRID_XY_RX( component1,component2, myThid )
8    
9        implicit none        implicit none
10    
11  C*=====================================================================*  C*=====================================================================*
12  C  Purpose: subroutine exch_uv_agrid_xyz_rx will  C  Purpose: subroutine exch_uv_agrid_xyz_RX will
13  C      handle exchanges for a 2D vector field on an A-grid.    C      handle exchanges for a 2D vector field on an A-grid.  
14  C  C
15  C  Input: component1(lon,lat,bi,bj) - first component of vector  C  Input: component1(lon,lat,bi,bj) - first component of vector
# Line 17  C         for the first-component, once Line 23  C         for the first-component, once
23  C  C
24  C  NOTES: 1) This code, as written, only works on ONE PROCESSOR!  C  NOTES: 1) This code, as written, only works on ONE PROCESSOR!
25  C         2) This code assumes that the faces are square (sNx=sNy....)  C         2) This code assumes that the faces are square (sNx=sNy....)
26  C               (also - we don't worry about barriers)  C               (also - we do not worry about barriers)
27  C*=====================================================================*  C*=====================================================================*
28    
29  #include "SIZE.h"  #include "SIZE.h"
# Line 42  C     b[nsew] - indices of the [nswe] ne Line 48  C     b[nsew] - indices of the [nswe] ne
48        _RX dummy1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX dummy1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49        _RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50    
51    #ifdef ALLOW_EXCH2
52          CALL EXCH2_UV_AGRID_XY_RX( component1,component2, myThid )
53          RETURN
54    #endif
55    
56        OLw        = OLx        OLw        = OLx
57        OLe        = OLx        OLe        = OLx
58        OLn        = OLy        OLn        = OLy
# Line 136  C south Line 147  C south
147    
148        RETURN        RETURN
149        END        END
150    
151    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
152    
153    CEH3 ;;; Local Variables: ***
154    CEH3 ;;; mode:fortran ***
155    CEH3 ;;; End: ***
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22