/[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.4 by jmc, Tue Nov 16 17:21:40 2004 UTC revision 1.5 by molod, Wed Nov 17 16:29:22 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
6    
7        SUBROUTINE EXCH_UV_AGRID_XY_RX( component1,component2, myThid )        SUBROUTINE EXCH_UV_AGRID_XY_RX( component1,component2, withSigns,
8         .                                                          myThid )
9    
10        implicit none        implicit none
11    
# Line 14  C      handle exchanges for a 2D vector Line 15  C      handle exchanges for a 2D vector
15  C  C
16  C  Input: component1(lon,lat,bi,bj) - first component of vector  C  Input: component1(lon,lat,bi,bj) - first component of vector
17  C         component2(lon,lat,bi,bj) - second component of vector  C         component2(lon,lat,bi,bj) - second component of vector
18  C         myThid                           - tile number  C         withSigns (logical)       - true to use signs of components
19    C         myThid                    - tile number
20  C  C
21  C  Output: component1 and component2 are updated (halo regions filled)  C  Output: component1 and component2 are updated (halo regions filled)
22  C  C
# Line 34  C*====================================== Line 36  C*======================================
36  C     == Argument list variables ==  C     == Argument list variables ==
37        _RX component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38        _RX component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39          LOGICAL withSigns
40        INTEGER myThid        INTEGER myThid
41    
42  C     == Local variables ==  C     == Local variables ==
# Line 49  C     b[nsew] - indices of the [nswe] ne Line 52  C     b[nsew] - indices of the [nswe] ne
52        _RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53    
54  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
55        CALL EXCH2_UV_AGRID_XY_RX( component1,component2, myThid )        CALL EXCH2_UV_AGRID_XY_RX( component1,component2, withSigns,
56         .                                                       myThid )
57        RETURN        RETURN
58  #endif  #endif
59    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22