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

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

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

revision 1.4 by edhill, Sat Apr 3 04:46:34 2004 UTC revision 1.5 by jmc, Tue Nov 16 17:21:40 2004 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 9  C     !ROUTINE: EXCH_UV_XYZ_RX Line 10  C     !ROUTINE: EXCH_UV_XYZ_RX
10    
11  C     !INTERFACE:  C     !INTERFACE:
12        SUBROUTINE EXCH_UV_XYZ_RX(        SUBROUTINE EXCH_UV_XYZ_RX(
13       U                       Uphi, Vphi, withSigns,       U                       Uphi, Vphi,
14       I                       myThid )       I                       withSigns, myThid )
15        IMPLICIT NONE        IMPLICIT NONE
16  C     !DESCRIPTION:  C     !DESCRIPTION:
17  C     *==========================================================*  C     *==========================================================*
# Line 32  C     === Global data === Line 33  C     === Global data ===
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     === Routine arguments ===  C     === Routine arguments ===
35  C     phi    :: Array with overlap regions are to be exchanged  C     phi    :: Array with overlap regions are to be exchanged
36  C               Note - The interface to EXCH_RL assumes that  C               Note - The interface to EXCH_RX assumes that
37  C               the standard Fortran 77 sequence association rules  C               the standard Fortran 77 sequence association rules
38  C               apply.  C               apply.
39  C     myThid :: My thread id.  C     myThid :: My thread id.
# Line 48  C     exchWidth[XY]  :: Extent of region Line 49  C     exchWidth[XY]  :: Extent of region
49        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz        INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz
50    
51  CEOP  CEOP
52    #ifdef ALLOW_EXCH2
53          CALL EXCH2_UV_XYZ_RX(
54         U                       Uphi, Vphi,
55         I                       withSigns, myThid )
56          RETURN
57    #endif
58    
59        OLw        = OLx        OLw        = OLx
60        OLe        = OLx        OLe        = OLx
# Line 83  c_jmc: for JAM compatibility, replace th Line 90  c_jmc: for JAM compatibility, replace th
90    
91        RETURN        RETURN
92        END        END
93    
94    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
95    
96    CEH3 ;;; Local Variables: ***
97    CEH3 ;;; mode:fortran ***
98    CEH3 ;;; End: ***
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22