| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_filter_rl.F |
30 |
EXF_FILTER_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_filter_rl.F |
65 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
73 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
7 |
EXF_FILTER_RL |
U arr, |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mdsio/mdsio_buffertorl.F |
11 |
MDS_BUFFERTORL |
SUBROUTINE MDS_BUFFERTORL( vecBuf, arr, narr, copyTo, myThid ) |
|
./pkg/mdsio/mdsio_buffertorl.F |
28 |
MDS_BUFFERTORL |
_RL arr(narr) |
|
./pkg/mdsio/mdsio_buffertorl.F |
40 |
MDS_BUFFERTORL |
arr(L) = vecBuf(L) |
|
./pkg/mdsio/mdsio_buffertorl.F |
44 |
MDS_BUFFERTORL |
vecBuf(L) = arr(L) |
|
./pkg/mdsio/mdsio_buffertors.F |
11 |
MDS_BUFFERTORS |
SUBROUTINE MDS_BUFFERTORS( vecBuf, arr, narr, copyTo, myThid ) |
|
./pkg/mdsio/mdsio_buffertors.F |
28 |
MDS_BUFFERTORS |
_RS arr(narr) |
|
./pkg/mdsio/mdsio_buffertors.F |
40 |
MDS_BUFFERTORS |
arr(L) = vecBuf(L) |
|
./pkg/mdsio/mdsio_buffertors.F |
44 |
MDS_BUFFERTORS |
vecBuf(L) = arr(L) |
|
./pkg/mdsio/mdsio_gl.F |
1072 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1075 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1089 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1092 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1283 |
MDSWRITEFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
1483 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1491 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1494 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1508 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1511 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
288 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
302 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
319 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
495 |
MDSWRITEFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
702 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
705 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
719 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
722 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
75 |
MDSREADFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
862 |
MDSREADFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
191 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
205 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
208 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
315 |
MDSREADFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
428 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
448 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
462 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
570 |
MDSWRITEFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
639 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
647 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
650 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
664 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
667 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
74 |
MDSREADFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
811 |
MDSWRITEFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
880 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
888 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
891 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
905 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
908 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
12 |
MDS_RD_REC_RL |
O arr, |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
40 |
MDS_RD_REC_RL |
_RL arr(nArr) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
63 |
MDS_RD_REC_RL |
arr(k) = r4Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
71 |
MDS_RD_REC_RL |
arr(k) = r8Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
12 |
MDS_RD_REC_RS |
O arr, |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
40 |
MDS_RD_REC_RS |
_RS arr(nArr) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
63 |
MDS_RD_REC_RS |
arr(k) = r4Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
71 |
MDS_RD_REC_RS |
arr(k) = r8Buf(k) |
|
./pkg/mdsio/mdsio_rw_field.F |
119 |
MDSREADFIELD_LOC |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_field.F |
131 |
MDSREADFIELD_LOC |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_field.F |
136 |
MDSREADFIELD_LOC |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
155 |
MDSWRITEFIELD |
I arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
190 |
MDSWRITEFIELD |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_rw_field.F |
203 |
MDSWRITEFIELD |
I arrType, nNz, 1, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_field.F |
208 |
MDSWRITEFIELD |
I arrType, nNz, 1, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
227 |
MDSWRITEFIELD_LOC |
I arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
22 |
MDSREADFIELD |
O arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
262 |
MDSWRITEFIELD_LOC |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_rw_field.F |
275 |
MDSWRITEFIELD_LOC |
I arrType, nNz, 1, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_field.F |
280 |
MDSWRITEFIELD_LOC |
I arrType, nNz, 1, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
53 |
MDSREADFIELD |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_field.F |
65 |
MDSREADFIELD |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_field.F |
70 |
MDSREADFIELD |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_field.F |
88 |
MDSREADFIELD_LOC |
O arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
121 |
MDSREADFIELDYZ |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
133 |
MDSREADFIELDYZ |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
138 |
MDSREADFIELDYZ |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
156 |
MDSREADFIELDXZ_LOC |
| arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
186 |
MDSREADFIELDXZ_LOC |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
198 |
MDSREADFIELDXZ_LOC |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
203 |
MDSREADFIELDXZ_LOC |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
221 |
MDSREADFIELDYZ_LOC |
| arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
251 |
MDSREADFIELDYZ_LOC |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
263 |
MDSREADFIELDYZ_LOC |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
268 |
MDSREADFIELDYZ_LOC |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
26 |
MDSREADFIELDXZ |
| arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
287 |
MDSWRITEFIELDXZ |
I arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
321 |
MDSWRITEFIELDXZ |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
334 |
MDSWRITEFIELDXZ |
I arrType, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
339 |
MDSWRITEFIELDXZ |
I arrType, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
358 |
MDSWRITEFIELDYZ |
I arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
392 |
MDSWRITEFIELDYZ |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
405 |
MDSWRITEFIELDYZ |
I arrType, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
410 |
MDSWRITEFIELDYZ |
I arrType, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
429 |
MDSWRITEFIELDXZ_LOC |
I arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
463 |
MDSWRITEFIELDXZ_LOC |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
476 |
MDSWRITEFIELDXZ_LOC |
I arrType, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
481 |
MDSWRITEFIELDXZ_LOC |
I arrType, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
500 |
MDSWRITEFIELDYZ_LOC |
I arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
534 |
MDSWRITEFIELDYZ_LOC |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
547 |
MDSWRITEFIELDYZ_LOC |
I arrType, nNz, arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
552 |
MDSWRITEFIELDYZ_LOC |
I arrType, nNz, dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
56 |
MDSREADFIELDXZ |
_RL arr(*) |
|
./pkg/mdsio/mdsio_rw_slice.F |
68 |
MDSREADFIELDXZ |
O arr, dummyRS, |
|
./pkg/mdsio/mdsio_rw_slice.F |
73 |
MDSREADFIELDXZ |
O dummyRL, arr, |
|
./pkg/mdsio/mdsio_rw_slice.F |
91 |
MDSREADFIELDYZ |
| arr, |
|
./pkg/mdsio/mdsio_seg4torl.F |
23 |
MDS_SEG4TORL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg4torl.F |
31 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
35 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4torl.F |
6 |
MDS_SEG4TORL |
SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg4tors.F |
23 |
MDS_SEG4TORS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg4tors.F |
31 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
35 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4tors.F |
6 |
MDS_SEG4TORS |
SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8torl.F |
23 |
MDS_SEG8TORL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg8torl.F |
31 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
35 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8torl.F |
6 |
MDS_SEG8TORL |
SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8tors.F |
23 |
MDS_SEG8TORS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg8tors.F |
31 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
35 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
6 |
MDS_SEG8TORS |
SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
118 |
MDS_SEG8TORL_2D |
_RL arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
125 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
129 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
138 |
MDS_SEG8TORS_2D |
SUBROUTINE MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
159 |
MDS_SEG8TORS_2D |
_RS arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
15 |
MDS_SEG4TORL_2D |
SUBROUTINE MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
166 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
170 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
36 |
MDS_SEG4TORL_2D |
_RL arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
43 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
47 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
56 |
MDS_SEG4TORS_2D |
SUBROUTINE MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
77 |
MDS_SEG4TORS_2D |
_RS arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
84 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
88 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
97 |
MDS_SEG8TORL_2D |
SUBROUTINE MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
12 |
MDS_WR_REC_RL |
I arr, |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
40 |
MDS_WR_REC_RL |
_RL arr(nArr) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
59 |
MDS_WR_REC_RL |
r4Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
67 |
MDS_WR_REC_RL |
r8Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
12 |
MDS_WR_REC_RS |
I arr, |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
40 |
MDS_WR_REC_RS |
_RS arr(nArr) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
59 |
MDS_WR_REC_RS |
r4Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
67 |
MDS_WR_REC_RS |
r8Buf(k) = arr(k) |
|
./pkg/monitor/mon_calc_stats_rl.F |
12 |
MON_CALC_STATS_RL |
I myNr, arr, arrhFac, arrMask, arrArea, arrDr, |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
26 |
MON_CALC_STATS_RL |
_RL arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_calc_stats_rl.F |
71 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
92 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
12 |
MON_CALC_STATS_RS |
I myNr, arr, arrhFac, arrMask, arrArea, arrDr, |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
26 |
MON_CALC_STATS_RS |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_calc_stats_rs.F |
71 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
92 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_printstats_rl.F |
12 |
MON_PRINTSTATS_RL |
I myNr, arr, arrName, |
|
./pkg/monitor/mon_printstats_rl.F |
28 |
MON_PRINTSTATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_printstats_rl.F |
45 |
MON_PRINTSTATS_RL |
I myNr, arr, arrMask, arrhFac, arrArea, arrDr, |
|
./pkg/monitor/mon_printstats_rs.F |
12 |
MON_PRINTSTATS_RS |
I myNr, arr, arrName, |
|
./pkg/monitor/mon_printstats_rs.F |
27 |
MON_PRINTSTATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_printstats_rs.F |
39 |
MON_PRINTSTATS_RS |
I myNr, arr, |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
103 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
13 |
MON_STATS_LATBND_RL |
I arr, arrMask, arrhFac, arrArea, arrY, arrDr, |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
34 |
MON_STATS_LATBND_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_stats_rl.F |
12 |
MON_STATS_RL |
I myNr, arr, arrMask,arrhFac, arrArea, arrDr, |
|
./pkg/monitor/mon_stats_rl.F |
136 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
25 |
MON_STATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
83 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
84 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
103 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
12 |
MON_STATS_RS |
I myNr, arr, |
|
./pkg/monitor/mon_stats_rs.F |
26 |
MON_STATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_writestats_rl.F |
12 |
MON_WRITESTATS_RL |
I myNr, arr, arrName, |
|
./pkg/monitor/mon_writestats_rl.F |
29 |
MON_WRITESTATS_RL |
_RL arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_writestats_rl.F |
46 |
MON_WRITESTATS_RL |
I myNr, arr, arrhFac, arrMask, arrArea, arrDr, |
|
./pkg/monitor/mon_writestats_rs.F |
12 |
MON_WRITESTATS_RS |
I myNr, arr, arrName, |
|
./pkg/monitor/mon_writestats_rs.F |
29 |
MON_WRITESTATS_RS |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/monitor/mon_writestats_rs.F |
46 |
MON_WRITESTATS_RS |
I myNr, arr, arrhFac, arrMask, arrArea, arrDr, |
|
./pkg/obcs/obcs_mon_stats.F |
122 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
195 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
19 |
OBCS_MON_STATS_EW_RL |
I arr, arrhFac, arrDy, arrDr, mskInC, |
|
./pkg/obcs/obcs_mon_stats.F |
251 |
OBCS_MON_STATS_NS_RL |
I arr, arrhFac, arrDx, arrDr, mskInC, |
|
./pkg/obcs/obcs_mon_stats.F |
291 |
OBCS_MON_STATS_NS_RL |
_RL arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/obcs/obcs_mon_stats.F |
354 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
427 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
59 |
OBCS_MON_STATS_EW_RL |
_RL arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/sphere/exch_all_2d_rl.F |
35 |
EXCH_ALLGATHER_2D_RL |
_RL arr ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx, nSy ) |
|
./pkg/sphere/exch_all_2d_rl.F |
66 |
EXCH_ALLGATHER_2D_RL |
call MPI_ALLGATHER( arr , sendsize, MPI_DOUBLE_PRECISION |
|
./pkg/sphere/exch_all_2d_rl.F |
7 |
EXCH_ALLGATHER_2D_RL |
I arr |
|
./model/src/port_rand.F |
101 |
PORT_RANARR |
SUBROUTINE PORT_RANARR(n,arr) |
|
./model/src/port_rand.F |
111 |
PORT_RANARR |
real*8 arr(n) |
|
./model/src/port_rand.F |
126 |
PORT_RANARR |
arr(i)=port_rand(seed) |
|
./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 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
13 |
MDS_BYTESWAPR4 |
SUBROUTINE MDS_BYTESWAPR4( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
24 |
MDS_BYTESWAPR4 |
CHARACTER*(*) arr |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
33 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
34 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
35 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
36 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
37 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
38 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
47 |
MDS_BYTESWAPR8 |
SUBROUTINE MDS_BYTESWAPR8( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
58 |
MDS_BYTESWAPR8 |
CHARACTER*(*) arr |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
67 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
68 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
69 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
70 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
71 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
72 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
73 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
74 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
75 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
76 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
77 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
78 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./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 ) |
|
./eesupp/src/mds_byteswapi4.F |
20 |
MDS_BYTESWAPI4 |
integer(kind=4) arr(n), i32 |
|
./eesupp/src/mds_byteswapi4.F |
30 |
MDS_BYTESWAPI4 |
arr(i) = i32(arr(i)) |
|
./eesupp/src/mds_byteswapi4.F |
37 |
MDS_BYTESWAPI4 |
character*(*) arr |
|
./eesupp/src/mds_byteswapi4.F |
44 |
MDS_BYTESWAPI4 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapi4.F |
45 |
MDS_BYTESWAPI4 |
arr(i:i)=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapi4.F |
46 |
MDS_BYTESWAPI4 |
arr(i+3:i+3)=cc |
|
./eesupp/src/mds_byteswapi4.F |
47 |
MDS_BYTESWAPI4 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapi4.F |
48 |
MDS_BYTESWAPI4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapi4.F |
49 |
MDS_BYTESWAPI4 |
arr(i+2:i+2)=cc |
|
./eesupp/src/mds_byteswapi4.F |
6 |
MDS_BYTESWAPI4 |
subroutine MDS_BYTESWAPI4( n, arr ) |
|
./eesupp/src/mds_byteswapr4.F |
20 |
MDS_BYTESWAPR4 |
integer(kind=4) arr(n), i32 |
|
./eesupp/src/mds_byteswapr4.F |
30 |
MDS_BYTESWAPR4 |
arr(i) = i32(arr(i)) |
|
./eesupp/src/mds_byteswapr4.F |
37 |
MDS_BYTESWAPR4 |
character*(*) arr |
|
./eesupp/src/mds_byteswapr4.F |
44 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapr4.F |
45 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapr4.F |
46 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./eesupp/src/mds_byteswapr4.F |
47 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapr4.F |
48 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapr4.F |
49 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./eesupp/src/mds_byteswapr4.F |
6 |
MDS_BYTESWAPR4 |
subroutine MDS_BYTESWAPR4( n, arr ) |
|
./eesupp/src/mds_byteswapr8.F |
20 |
MDS_BYTESWAPR8 |
integer(kind=8) arr(n),i64,i1 |
|
./eesupp/src/mds_byteswapr8.F |
34 |
MDS_BYTESWAPR8 |
arr(i) = i64(arr(i)) |
|
./eesupp/src/mds_byteswapr8.F |
41 |
MDS_BYTESWAPR8 |
character*(*) arr |
|
./eesupp/src/mds_byteswapr8.F |
48 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./eesupp/src/mds_byteswapr8.F |
49 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./eesupp/src/mds_byteswapr8.F |
50 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./eesupp/src/mds_byteswapr8.F |
51 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./eesupp/src/mds_byteswapr8.F |
52 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./eesupp/src/mds_byteswapr8.F |
53 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./eesupp/src/mds_byteswapr8.F |
54 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./eesupp/src/mds_byteswapr8.F |
55 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./eesupp/src/mds_byteswapr8.F |
56 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./eesupp/src/mds_byteswapr8.F |
57 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./eesupp/src/mds_byteswapr8.F |
58 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./eesupp/src/mds_byteswapr8.F |
59 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./eesupp/src/mds_byteswapr8.F |
6 |
MDS_BYTESWAPR8 |
subroutine MDS_BYTESWAPR8( n, arr ) |
|
./pkg/compon_communic/comprecv_r4.F |
10 |
COMPRECV_R4 |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/comprecv_r4.F |
5 |
COMPRECV_R4 |
subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r4.F |
73 |
COMPRECV_R4 |
arr(i,j)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
10 |
COMPRECV_R4TILES |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
5 |
COMPRECV_R4TILES |
subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r8.F |
10 |
COMPRECV_R8 |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/comprecv_r8.F |
5 |
COMPRECV_R8 |
subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r8.F |
73 |
COMPRECV_R8 |
arr(i,j)=r8buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
10 |
COMPRECV_R8TILES |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
5 |
COMPRECV_R8TILES |
subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_r4.F |
10 |
COMPSEND_R4 |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/compsend_r4.F |
38 |
COMPSEND_R4 |
r4buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r4.F |
5 |
COMPSEND_R4 |
subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
10 |
COMPSEND_R4TILES |
real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
5 |
COMPSEND_R4TILES |
subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/compsend_r8.F |
10 |
COMPSEND_R8 |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj) |
|
./pkg/compon_communic/compsend_r8.F |
38 |
COMPSEND_R8 |
r8buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r8.F |
5 |
COMPSEND_R8 |
subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
10 |
COMPSEND_R8TILES |
real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
5 |
COMPSEND_R8TILES |
subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/couprecv_r4.F |
11 |
COUPRECV_R4 |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r4.F |
5 |
COUPRECV_R4 |
subroutine COUPRECV_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r4.F |
94 |
COUPRECV_R4 |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
107 |
COUPRECV_R4TILES |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
11 |
COUPRECV_R4TILES |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
5 |
COUPRECV_R4TILES |
subroutine COUPRECV_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8.F |
11 |
COUPRECV_R8 |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r8.F |
5 |
COUPRECV_R8 |
subroutine COUPRECV_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8.F |
94 |
COUPRECV_R8 |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
107 |
COUPRECV_R8TILES |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
11 |
COUPRECV_R8TILES |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
5 |
COUPRECV_R8TILES |
subroutine COUPRECV_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4.F |
15 |
COUPSEND_R4 |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/coupsend_r4.F |
5 |
COUPSEND_R4 |
subroutine COUPSEND_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4.F |
60 |
COUPSEND_R4 |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
15 |
COUPSEND_R4TILES |
real*4 arr(Nx,Ny) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
5 |
COUPSEND_R4TILES |
subroutine COUPSEND_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
63 |
COUPSEND_R4TILES |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
15 |
COUPSEND_R8 |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/coupsend_r8.F |
5 |
COUPSEND_R8 |
subroutine COUPSEND_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8.F |
60 |
COUPSEND_R8 |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
15 |
COUPSEND_R8TILES |
real*8 arr(Nx,Ny) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
5 |
COUPSEND_R8TILES |
subroutine COUPSEND_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
63 |
COUPSEND_R8TILES |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/debug/debug_fld_stats_rl.F |
115 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
12 |
DEBUG_FLD_STATS_RL |
I myNr, arr, exclValue, |
|
./pkg/debug/debug_fld_stats_rl.F |
38 |
DEBUG_FLD_STATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_fld_stats_rl.F |
74 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
115 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
12 |
DEBUG_FLD_STATS_RS |
I myNr, arr, exclValue, |
|
./pkg/debug/debug_fld_stats_rs.F |
38 |
DEBUG_FLD_STATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_stats_rl.F |
24 |
DEBUG_STATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_stats_rl.F |
35 |
DEBUG_STATS_RL |
I myNr, arr, zeroRL, |
|
./pkg/debug/debug_stats_rl.F |
7 |
DEBUG_STATS_RL |
I myNr, arr, arrName, |
|
./pkg/debug/debug_stats_rs.F |
24 |
DEBUG_STATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_stats_rs.F |
35 |
DEBUG_STATS_RS |
I myNr, arr, zeroRS, |
|
./pkg/debug/debug_stats_rs.F |
7 |
DEBUG_STATS_RS |
I myNr, arr, arrName, |