Warning, /pkg/exch2/exch2_s3d_rx.template is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
056a52ae18 Jean*0001 #include "CPP_EEOPTIONS.h"
0002 #include "W2_OPTIONS.h"
0003
0004 CBOP
0005 C !ROUTINE: EXCH2_S3D_RX
0006
0007 C !INTERFACE:
0008 SUBROUTINE EXCH2_S3D_RX(
0009 U phi,
d4e639dc4c Jean*0010 I myNz, myThid )
056a52ae18 Jean*0011
0012 C !DESCRIPTION:
0013 C *==========================================================*
0014 C | SUBROUTINE EXCH2_S3D_RX
0015 C | o Handle Simple exchanges (= that ignore corners)
0016 C | for _RX, 3-dim scalar arrays with overlap size = 1
0017 C *==========================================================*
0018
0019 C !USES:
d4e639dc4c Jean*0020 IMPLICIT NONE
056a52ae18 Jean*0021 C === Global data ===
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
90219e5912 Jean*0024 c#include "W2_EXCH2_SIZE.h"
985b56ea8d Jean*0025 c#include "W2_EXCH2_TOPOLOGY.h"
056a52ae18 Jean*0026
0027 C !INPUT/OUTPUT PARAMETERS:
0028 C === Routine arguments ===
0029 C phi :: Array with overlap regions are to be exchanged
d4e639dc4c Jean*0030 C myNz :: 3rd dimension of array to exchange
056a52ae18 Jean*0031 C myThid :: My thread id.
d4e639dc4c Jean*0032 INTEGER myNz
0033 _RX phi(0:sNx+1,0:sNy+1,myNz,nSx,nSy)
056a52ae18 Jean*0034 INTEGER myThid
0035
0036 C !LOCAL VARIABLES:
0037 C == Local variables ==
0038 C OL[wens] :: Overlap extents in west, east, north, south.
0039 C exchWidth[XY] :: Extent of regions that will be exchanged.
d4e639dc4c Jean*0040 INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY
056a52ae18 Jean*0041
0042 CEOP
0043
0044 OLw = 1
0045 OLe = 1
0046 OLn = 1
0047 OLs = 1
0048 exchWidthX = 1
0049 exchWidthY = 1
0050
8bc539472e Jean*0051 CALL EXCH2_RX1_CUBE( phi, .FALSE., 'T ',
056a52ae18 Jean*0052 I OLw, OLe, OLs, OLn, myNz,
0053 I exchWidthX, exchWidthY,
8bc539472e Jean*0054 I EXCH_IGNORE_CORNERS, myThid )
056a52ae18 Jean*0055
0056 RETURN
0057 END
0058
0059 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
0060
0061 CEH3 ;;; Local Variables: ***
0062 CEH3 ;;; mode:fortran ***
0063 CEH3 ;;; End: ***
