| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_filter_rl.F |
101 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
39 |
EXF_FILTER_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_filter_rl.F |
7 |
EXF_FILTER_RL |
I arr, |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
91 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
100 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
38 |
EXF_FILTER_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_filter_rs.F |
6 |
EXF_FILTER_RS |
I arr, |
|
./pkg/exf/exf_filter_rs.F |
80 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
90 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
17 |
MDS_BYTESWAPR4 |
CHARACTER*(*) arr |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
26 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
27 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
28 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
29 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
30 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
31 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
40 |
MDS_BYTESWAPR8 |
SUBROUTINE MDS_BYTESWAPR8( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
51 |
MDS_BYTESWAPR8 |
CHARACTER*(*) arr |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
60 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
61 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
62 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
63 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
64 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
65 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
66 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
67 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
68 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
69 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
6 |
MDS_BYTESWAPR4 |
SUBROUTINE MDS_BYTESWAPR4( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
70 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
71 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./pkg/flt/flt_mdsreadvector.F |
183 |
MDSREADVECTOR_FLT |
call MDS_READ_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
185 |
MDSREADVECTOR_FLT |
call MDS_READ_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
21 |
MDSREADVECTOR_FLT |
O arr, |
|
./pkg/flt/flt_mdsreadvector.F |
59 |
MDSREADVECTOR_FLT |
Real arr(narr) |
|
./pkg/offline/offline_fields_load.F |
459 |
LEF_ZERO3 |
SUBROUTINE LEF_ZERO3( arr ,myThid ) |
|
./pkg/offline/offline_fields_load.F |
471 |
LEF_ZERO3 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
483 |
LEF_ZERO3 |
arr(i,j,k,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
495 |
LEF_ZERO2 |
SUBROUTINE LEF_ZERO2( arr ,myThid ) |
|
./pkg/offline/offline_fields_load.F |
507 |
LEF_ZERO2 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
517 |
LEF_ZERO2 |
arr(i,j,bi,bj)=0. |
|
./model/src/port_rand.F |
107 |
PORT_RANARR |
arr(i)=port_rand(seed) |
|
./model/src/port_rand.F |
93 |
PORT_RANARR |
subroutine PORT_RANARR(n,arr) |
|
./model/src/port_rand.F |
96 |
PORT_RANARR |
real arr(n) |
|
./model/src/remove_mean.F |
10 |
REMOVE_MEAN_RL |
I myNr, arr, arrMask, arrhFac, arrArea, arrDr, |
|
./model/src/remove_mean.F |
115 |
REMOVE_MEAN_RS |
I myNr, arr, arrMask, arrhFac, arrArea, arrDr, |
|
./model/src/remove_mean.F |
139 |
REMOVE_MEAN_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./model/src/remove_mean.F |
166 |
REMOVE_MEAN_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
190 |
REMOVE_MEAN_RS |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/remove_mean.F |
34 |
REMOVE_MEAN_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./model/src/remove_mean.F |
61 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
85 |
REMOVE_MEAN_RL |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./eesupp/src/mds_byteswapi4.F |
17 |
MDS_BYTESWAPI4 |
character*(*) arr |
|
./eesupp/src/mds_byteswapi4.F |
23 |
MDS_BYTESWAPI4 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapi4.F |
24 |
MDS_BYTESWAPI4 |
arr(i:i)=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapi4.F |
25 |
MDS_BYTESWAPI4 |
arr(i+3:i+3)=cc |
|
./eesupp/src/mds_byteswapi4.F |
26 |
MDS_BYTESWAPI4 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapi4.F |
27 |
MDS_BYTESWAPI4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapi4.F |
28 |
MDS_BYTESWAPI4 |
arr(i+2:i+2)=cc |
|
./eesupp/src/mds_byteswapi4.F |
6 |
MDS_BYTESWAPI4 |
subroutine MDS_BYTESWAPI4( n, arr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
2 |
COUPSEND_R8TILES |
subroutine COUPSEND_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
58 |
COUPSEND_R8TILES |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
8 |
COUPSEND_R8TILES |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
104 |
COUPRECV_R8TILES |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
2 |
COUPRECV_R8TILES |
subroutine COUPRECV_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
8 |
COUPRECV_R8TILES |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r8.F |
2 |
COUPRECV_R8 |
subroutine COUPRECV_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8.F |
8 |
COUPRECV_R8 |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r8.F |
91 |
COUPRECV_R8 |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/coupsend_r4.F |
2 |
COUPSEND_R4 |
subroutine COUPSEND_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4.F |
55 |
COUPSEND_R4 |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4.F |
8 |
COUPSEND_R4 |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/comprecv_r8.F |
2 |
COMPRECV_R8 |
subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r8.F |
70 |
COMPRECV_R8 |
arr(i,j)=r8buf(ij) |
|
./pkg/compon_communic/comprecv_r8.F |
7 |
COMPRECV_R8 |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/couprecv_r4.F |
2 |
COUPRECV_R4 |
subroutine COUPRECV_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r4.F |
8 |
COUPRECV_R4 |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r4.F |
91 |
COUPRECV_R4 |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4.F |
2 |
COMPRECV_R4 |
subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r4.F |
70 |
COMPRECV_R4 |
arr(i,j)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4.F |
7 |
COMPRECV_R4 |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
2 |
COMPRECV_R8TILES |
subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
77 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
7 |
COMPRECV_R8TILES |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
2 |
COMPRECV_R4TILES |
subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
77 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
7 |
COMPRECV_R4TILES |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty) |
|
./pkg/compon_communic/coupsend_r8.F |
2 |
COUPSEND_R8 |
subroutine COUPSEND_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8.F |
55 |
COUPSEND_R8 |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
8 |
COUPSEND_R8 |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/compsend_r4tiles.F |
2 |
COMPSEND_R4TILES |
subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
45 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
7 |
COMPSEND_R4TILES |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj) |
|
./eesupp/src/lef_zero.F |
20 |
LEF_ZERO |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/lef_zero.F |
31 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./eesupp/src/lef_zero.F |
9 |
LEF_ZERO |
SUBROUTINE LEF_ZERO( arr ,myThid ) |
|
./pkg/compon_communic/compsend_r4.F |
2 |
COMPSEND_R4 |
subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r4.F |
35 |
COMPSEND_R4 |
r4buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r4.F |
7 |
COMPSEND_R4 |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
104 |
COUPRECV_R4TILES |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
2 |
COUPRECV_R4TILES |
subroutine COUPRECV_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
8 |
COUPRECV_R4TILES |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/compsend_r8tiles.F |
2 |
COMPSEND_R8TILES |
subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
45 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
7 |
COMPSEND_R8TILES |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
2 |
COUPSEND_R4TILES |
subroutine COUPSEND_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
58 |
COUPSEND_R4TILES |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
8 |
COUPSEND_R4TILES |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/compsend_r8.F |
2 |
COMPSEND_R8 |
subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r8.F |
35 |
COMPSEND_R8 |
r8buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r8.F |
7 |
COMPSEND_R8 |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/sphere/exch_all_2d_rl.F |
34 |
EXCH_ALLGATHER_2D_RL |
_RL arr ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx, nSy ) |
|
./pkg/sphere/exch_all_2d_rl.F |
67 |
EXCH_ALLGATHER_2D_RL |
call MPI_ALLGATHER( arr , sendsize, MPI_DOUBLE_PRECISION |
|
./pkg/sphere/exch_all_2d_rl.F |
6 |
EXCH_ALLGATHER_2D_RL |
I arr |
|
./eesupp/src/exch_jam.F |
1008 |
EXCH_XY_R4_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
1009 |
EXCH_XY_R4_JAM |
& arr(1-OLx,1-OLy ), |
|
./eesupp/src/exch_jam.F |
1016 |
EXCH_XY_R4_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
1017 |
EXCH_XY_R4_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
1030 |
EXCH_XY_R4_JAM |
arr(I,sNy+J ) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
1031 |
EXCH_XY_R4_JAM |
arr(I,1-OLy+J-1) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
1042 |
EXCH_XYZ_R4_JAM |
SUBROUTINE EXCH_XYZ_R4_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
1067 |
EXCH_XYZ_R4_JAM |
Real*4 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr) |
|
./eesupp/src/exch_jam.F |
1092 |
EXCH_XYZ_R4_JAM |
arr(1-I ,J,K) = arr(sNx-I+1,J,K) |
|
./eesupp/src/exch_jam.F |
1093 |
EXCH_XYZ_R4_JAM |
arr(sNx+I,J,K) = arr(1+I-1 ,J,K) |
|
./eesupp/src/exch_jam.F |
1121 |
EXCH_XYZ_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
1122 |
EXCH_XYZ_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
1131 |
EXCH_XYZ_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
1132 |
EXCH_XYZ_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
1171 |
EXCH_XYZ_R4_JAM |
arr(I,sNy+J ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1172 |
EXCH_XYZ_R4_JAM |
arr(I,1-OLy+J-1,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1181 |
EXCH_XYZ_R4_JAM |
arr(I,sNy+J ,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1182 |
EXCH_XYZ_R4_JAM |
arr(I,1-OLy+J-1 ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1202 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
1203 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
1210 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
1211 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
1225 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
1226 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
1233 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
1234 |
EXCH_XYZ_R4_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
1249 |
EXCH_XYZ_R4_JAM |
arr(I,sNy+J ,K) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
1250 |
EXCH_XYZ_R4_JAM |
arr(I,1-OLy+J-1,K) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
1271 |
EXCH_XY_O1_R8_JAM |
SUBROUTINE EXCH_XY_O1_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
1298 |
EXCH_XY_O1_R8_JAM |
Real*8 arr(1-_OLx:sNx+_OLx,1-_OLy:sNy+_OLy) |
|
./eesupp/src/exch_jam.F |
1322 |
EXCH_XY_O1_R8_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
1323 |
EXCH_XY_O1_R8_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
1349 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
1363 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,1),arr(1,0),sNx*8,jam_exchKey) |
|
./eesupp/src/exch_jam.F |
1371 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,1),arr(1,0),sNx*8,jam_exchKey) |
|
./eesupp/src/exch_jam.F |
1384 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
1399 |
EXCH_XY_R8_JAM |
SUBROUTINE EXCH_XY_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
139 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
1424 |
EXCH_XY_R8_JAM |
Real*8 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/exch_jam.F |
144 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,1),arr(1,0), |
|
./eesupp/src/exch_jam.F |
1452 |
EXCH_XY_R8_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
1453 |
EXCH_XY_R8_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
1484 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
1485 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
1501 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
1502 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1-OLy ), |
|
./eesupp/src/exch_jam.F |
1517 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
1518 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1-OLy ), |
|
./eesupp/src/exch_jam.F |
1534 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
1535 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
1550 |
EXCH_XYZ_R8_JAM |
SUBROUTINE EXCH_XYZ_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
156 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,1),arr(1,0), |
|
./eesupp/src/exch_jam.F |
1575 |
EXCH_XYZ_R8_JAM |
Real*8 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr) |
|
./eesupp/src/exch_jam.F |
1604 |
EXCH_XYZ_R8_JAM |
arr(1-I ,J,K) = arr(sNx-I+1,J,K) |
|
./eesupp/src/exch_jam.F |
1605 |
EXCH_XYZ_R8_JAM |
arr(sNx+I,J,K) = arr(1+I-1 ,J,K) |
|
./eesupp/src/exch_jam.F |
161 |
EXCH_XY_O1_R8_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
1643 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
1644 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
1660 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
1661 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
1676 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
1677 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
1693 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
1694 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
16 |
EXCH_XY_O1_R8_JAM |
SUBROUTINE EXCH_XY_O1_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
180 |
EXCH_XY_O1_R8_JAM |
arr(I,sNy+1) = exchBuf1(I) |
|
./eesupp/src/exch_jam.F |
181 |
EXCH_XY_O1_R8_JAM |
arr(I,0 ) = exchBuf2(I) |
|
./eesupp/src/exch_jam.F |
185 |
EXCH_XY_O1_R8_JAM |
arr(I,sNy+1) = exchBuf2(I) |
|
./eesupp/src/exch_jam.F |
186 |
EXCH_XY_O1_R8_JAM |
arr(I,0 ) = exchBuf1(I) |
|
./eesupp/src/exch_jam.F |
193 |
EXCH_XY_O1_R8_JAM |
arr(I,sNy+1) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
194 |
EXCH_XY_O1_R8_JAM |
arr(I,0 ) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
205 |
EXCH_XY_R8_JAM |
SUBROUTINE EXCH_XY_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
231 |
EXCH_XY_R8_JAM |
Real*8 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/exch_jam.F |
256 |
EXCH_XY_R8_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
257 |
EXCH_XY_R8_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
283 |
EXCH_XY_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
284 |
EXCH_XY_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
293 |
EXCH_XY_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
294 |
EXCH_XY_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
334 |
EXCH_XY_R8_JAM |
arr(I,sNy+J ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
335 |
EXCH_XY_R8_JAM |
arr(I,1-OLy+J-1) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
344 |
EXCH_XY_R8_JAM |
arr(I,sNy+J ) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
345 |
EXCH_XY_R8_JAM |
arr(I,1-OLy+J-1 ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
363 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
364 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
371 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
372 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1-OLy ), |
|
./eesupp/src/exch_jam.F |
386 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
387 |
EXCH_XY_R8_JAM |
& arr(1-OLx,1-OLy ), |
|
./eesupp/src/exch_jam.F |
394 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
395 |
EXCH_XY_R8_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
408 |
EXCH_XY_R8_JAM |
arr(I,sNy+J ) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
409 |
EXCH_XY_R8_JAM |
arr(I,1-OLy+J-1) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
420 |
EXCH_XYZ_R8_JAM |
SUBROUTINE EXCH_XYZ_R8_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
42 |
EXCH_XY_O1_R8_JAM |
Real*8 arr(1-_OLx:sNx+_OLx,1-_OLy:sNy+_OLy) |
|
./eesupp/src/exch_jam.F |
445 |
EXCH_XYZ_R8_JAM |
Real*8 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr) |
|
./eesupp/src/exch_jam.F |
471 |
EXCH_XYZ_R8_JAM |
arr(1-I ,J,K) = arr(sNx-I+1,J,K) |
|
./eesupp/src/exch_jam.F |
472 |
EXCH_XYZ_R8_JAM |
arr(sNx+I,J,K) = arr(1+I-1 ,J,K) |
|
./eesupp/src/exch_jam.F |
500 |
EXCH_XYZ_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
501 |
EXCH_XYZ_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
510 |
EXCH_XYZ_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
511 |
EXCH_XYZ_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
550 |
EXCH_XYZ_R8_JAM |
arr(I,sNy+J ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
551 |
EXCH_XYZ_R8_JAM |
arr(I,1-OLy+J-1,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
560 |
EXCH_XYZ_R8_JAM |
arr(I,sNy+J ,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
561 |
EXCH_XYZ_R8_JAM |
arr(I,1-OLy+J-1 ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
581 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
582 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
589 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
590 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
604 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1 ,K), |
|
./eesupp/src/exch_jam.F |
605 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,1-OLy ,K), |
|
./eesupp/src/exch_jam.F |
612 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy-OLy+1,K), |
|
./eesupp/src/exch_jam.F |
613 |
EXCH_XYZ_R8_JAM |
& arr(1-OLx,sNy+1 ,K), |
|
./eesupp/src/exch_jam.F |
628 |
EXCH_XYZ_R8_JAM |
arr(I,sNy+J ,K) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
629 |
EXCH_XYZ_R8_JAM |
arr(I,1-OLy+J-1,K) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
645 |
EXCH_XY_O1_R4_JAM |
SUBROUTINE EXCH_XY_O1_R4_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
673 |
EXCH_XY_O1_R4_JAM |
Real*4 arr(1-_OLx:sNx+_OLx,1-_OLy:sNy+_OLy) |
|
./eesupp/src/exch_jam.F |
67 |
EXCH_XY_O1_R8_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
68 |
EXCH_XY_O1_R8_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
691 |
EXCH_XY_O1_R4_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
692 |
EXCH_XY_O1_R4_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
714 |
EXCH_XY_O1_R4_JAM |
exchBuf1(I) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
715 |
EXCH_XY_O1_R4_JAM |
exchBuf2(I) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
719 |
EXCH_XY_O1_R4_JAM |
exchBuf1(I) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
720 |
EXCH_XY_O1_R4_JAM |
exchBuf2(I) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
763 |
EXCH_XY_O1_R4_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
768 |
EXCH_XY_O1_R4_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,1),arr |