| File |
Line number |
Procedure |
Code |
|
./pkg/debug/debug_stats_rl.F |
25 |
DEBUG_STATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_stats_rl.F |
36 |
DEBUG_STATS_RL |
I myNr, arr, |
|
./pkg/debug/debug_stats_rl.F |
7 |
DEBUG_STATS_RL |
I myNr, arr, arrName, |
|
./pkg/debug/debug_fld_stats_rs.F |
21 |
DEBUG_FLD_STATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_fld_stats_rs.F |
48 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
5 |
DEBUG_FLD_STATS_RS |
I myNr, arr, |
|
./pkg/debug/debug_fld_stats_rs.F |
87 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_stats_rs.F |
25 |
DEBUG_STATS_RS |
_RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_stats_rs.F |
36 |
DEBUG_STATS_RS |
I myNr, arr, |
|
./pkg/debug/debug_stats_rs.F |
7 |
DEBUG_STATS_RS |
I myNr, arr, arrName, |
|
./pkg/debug/debug_fld_stats_rl.F |
23 |
DEBUG_FLD_STATS_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./pkg/debug/debug_fld_stats_rl.F |
50 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
7 |
DEBUG_FLD_STATS_RL |
I myNr, arr, |
|
./pkg/debug/debug_fld_stats_rl.F |
89 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
12 |
MDSWRITEFIELD_LOC |
I arr, |
|
./pkg/mdsio/mdsio_writefield_loc.F |
176 |
MDSWRITEFIELD_LOC |
local(I,J,bi,bj) = arr(I,J,k,bi,bj) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
326 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
328 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
341 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
343 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
411 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
413 |
MDSWRITEFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
426 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
428 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
78 |
MDSWRITEFIELD_LOC |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_slice.F |
1018 |
MDS_SEG8TORL_2D |
_RL arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_slice.F |
1025 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
1029 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
1038 |
MDS_SEG8TORS_2D |
subroutine MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
1058 |
MDS_SEG8TORS_2D |
_RS arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_slice.F |
1065 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
1069 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
12 |
MDSREADFIELDXZ |
| arr, |
|
./pkg/mdsio/mdsio_slice.F |
190 |
MDSREADFIELDXZ |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
192 |
MDSREADFIELDXZ |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
205 |
MDSREADFIELDXZ |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
207 |
MDSREADFIELDXZ |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
250 |
MDSREADFIELDYZ |
| arr, |
|
./pkg/mdsio/mdsio_slice.F |
289 |
MDSREADFIELDYZ |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice.F |
428 |
MDSREADFIELDYZ |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
430 |
MDSREADFIELDYZ |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
443 |
MDSREADFIELDYZ |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
445 |
MDSREADFIELDYZ |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
489 |
MDSWRITEFIELDXZ |
I arr, |
|
./pkg/mdsio/mdsio_slice.F |
51 |
MDSREADFIELDXZ |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice.F |
532 |
MDSWRITEFIELDXZ |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice.F |
631 |
MDSWRITEFIELDXZ |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
633 |
MDSWRITEFIELDXZ |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
646 |
MDSWRITEFIELDXZ |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
648 |
MDSWRITEFIELDXZ |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
706 |
MDSWRITEFIELDYZ |
I arr, |
|
./pkg/mdsio/mdsio_slice.F |
750 |
MDSWRITEFIELDYZ |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice.F |
849 |
MDSWRITEFIELDYZ |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
851 |
MDSWRITEFIELDYZ |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
864 |
MDSWRITEFIELDYZ |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
866 |
MDSWRITEFIELDYZ |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
918 |
MDS_SEG4TORL_2D |
subroutine MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
938 |
MDS_SEG4TORL_2D |
_RL arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_slice.F |
945 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
949 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
958 |
MDS_SEG4TORS_2D |
subroutine MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
978 |
MDS_SEG4TORS_2D |
_RS arr(1-ol:sn+ol,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_slice.F |
985 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
989 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
998 |
MDS_SEG8TORL_2D |
subroutine MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
27 |
MDS_READ_RL_VEC |
_RL arr(narr) |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
39 |
MDS_READ_RL_VEC |
read(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_read_rl_vec.F |
6 |
MDS_READ_RL_VEC |
subroutine MDS_READ_RL_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
11 |
MDSREADFIELDXZ_LOC |
| arr, |
|
./pkg/mdsio/mdsio_slice_loc.F |
180 |
MDSREADFIELDXZ_LOC |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
182 |
MDSREADFIELDXZ_LOC |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
195 |
MDSREADFIELDXZ_LOC |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
197 |
MDSREADFIELDXZ_LOC |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
240 |
MDSREADFIELDYZ_LOC |
| arr, |
|
./pkg/mdsio/mdsio_slice_loc.F |
279 |
MDSREADFIELDYZ_LOC |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice_loc.F |
409 |
MDSREADFIELDYZ_LOC |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
411 |
MDSREADFIELDYZ_LOC |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
424 |
MDSREADFIELDYZ_LOC |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
426 |
MDSREADFIELDYZ_LOC |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
470 |
MDSWRITEFIELDXZ_LOC |
I arr, |
|
./pkg/mdsio/mdsio_slice_loc.F |
50 |
MDSREADFIELDXZ_LOC |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice_loc.F |
513 |
MDSWRITEFIELDXZ_LOC |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice_loc.F |
603 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
605 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
618 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
620 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
678 |
MDSWRITEFIELDYZ_LOC |
I arr, |
|
./pkg/mdsio/mdsio_slice_loc.F |
722 |
MDSWRITEFIELDYZ_LOC |
Real arr(*) |
|
./pkg/mdsio/mdsio_slice_loc.F |
812 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
814 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
827 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
829 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_readtile.F |
11 |
MDSIO_READTILE |
O arr, |
|
./pkg/mdsio/mdsio_readtile.F |
181 |
MDSIO_READTILE |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
183 |
MDSIO_READTILE |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
196 |
MDSIO_READTILE |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
198 |
MDSIO_READTILE |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
54 |
MDSIO_READTILE |
Real arr(*) |
|
./pkg/mdsio/mdsio_readvector.F |
11 |
MDSREADVECTOR |
O arr, |
|
./pkg/mdsio/mdsio_readvector.F |
181 |
MDSREADVECTOR |
call MDS_READ_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
183 |
MDSREADVECTOR |
call MDS_READ_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
46 |
MDSREADVECTOR |
Real arr(narr) |
|
./pkg/mdsio/mdsio_gl.F |
1000 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1014 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1186 |
MDSWRITEFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
1353 |
MDSWRITEFIELD_2D_GL |
arr(ii,j,k,bi,bj)=arr_gl(ii,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1360 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1362 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1375 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1377 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
274 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
289 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
291 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
476 |
MDSWRITEFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
642 |
MDSWRITEFIELD_3D_GL |
arr(ii,j,k,bi,bj)=arr_gl(ii,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
649 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
651 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
664 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
666 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
797 |
MDSREADFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
88 |
MDSREADFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
983 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
985 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
998 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_writefield.F |
12 |
MDSWRITEFIELD |
I arr, |
|
./pkg/mdsio/mdsio_writefield.F |
47 |
MDSWRITEFIELD |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_writefield.F |
53 |
MDSWRITEFIELD |
. nNz,nNz,arr,irecord,myIter,myThid ) |
|
./pkg/mdsio/mdsio_seg8tors.F |
22 |
MDS_SEG8TORS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg8tors.F |
30 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
34 |
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_byteswapr4.F |
17 |
MDS_BYTESWAPR4 |
character*(*) arr |
|
./pkg/mdsio/mdsio_byteswapr4.F |
23 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/mdsio/mdsio_byteswapr4.F |
24 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/mdsio/mdsio_byteswapr4.F |
25 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/mdsio/mdsio_byteswapr4.F |
26 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/mdsio/mdsio_byteswapr4.F |
27 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/mdsio/mdsio_byteswapr4.F |
28 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/mdsio/mdsio_byteswapr4.F |
6 |
MDS_BYTESWAPR4 |
subroutine MDS_BYTESWAPR4( n, arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
12 |
MDS_WRITETILE |
I arr, |
|
./pkg/mdsio/mdsio_writetile.F |
160 |
MDS_WRITETILE |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
162 |
MDS_WRITETILE |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
175 |
MDS_WRITETILE |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
177 |
MDS_WRITETILE |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
67 |
MDS_WRITETILE |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_byteswapi4.F |
17 |
MDS_BYTESWAPI4 |
character*(*) arr |
|
./pkg/mdsio/mdsio_byteswapi4.F |
23 |
MDS_BYTESWAPI4 |
cc=arr(i:i) |
|
./pkg/mdsio/mdsio_byteswapi4.F |
24 |
MDS_BYTESWAPI4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/mdsio/mdsio_byteswapi4.F |
25 |
MDS_BYTESWAPI4 |
arr(i+3:i+3)=cc |
|
./pkg/mdsio/mdsio_byteswapi4.F |
26 |
MDS_BYTESWAPI4 |
cc=arr(i+1:i+1) |
|
./pkg/mdsio/mdsio_byteswapi4.F |
27 |
MDS_BYTESWAPI4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/mdsio/mdsio_byteswapi4.F |
28 |
MDS_BYTESWAPI4 |
arr(i+2:i+2)=cc |
|
./pkg/mdsio/mdsio_byteswapi4.F |
6 |
MDS_BYTESWAPI4 |
subroutine MDS_BYTESWAPI4( n, arr ) |
|
./pkg/mdsio/mdsio_writevector.F |
12 |
MDSWRITEVECTOR |
I arr, |
|
./pkg/mdsio/mdsio_writevector.F |
153 |
MDSWRITEVECTOR |
call MDS_WRITE_RS_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
155 |
MDSWRITEVECTOR |
call MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
52 |
MDSWRITEVECTOR |
Real arr(narr) |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
27 |
MDS_WRITE_RS_VEC |
_RS arr(narr) |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
38 |
MDS_WRITE_RS_VEC |
write(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_write_rs_vec.F |
6 |
MDS_WRITE_RS_VEC |
subroutine MDS_WRITE_RS_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
27 |
MDS_READ_RS_VEC |
_RS arr(narr) |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
39 |
MDS_READ_RS_VEC |
read(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_read_rs_vec.F |
6 |
MDS_READ_RS_VEC |
subroutine MDS_READ_RS_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
192 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
194 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
207 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
209 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
223 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
311 |
MDSREADFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
414 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
416 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
429 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
548 |
MDSWRITEFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
603 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
610 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
612 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
625 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
627 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
763 |
MDSWRITEFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
818 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
825 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
827 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
840 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
842 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
88 |
MDSREADFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_writelocal.F |
12 |
MDS_WRITELOCAL |
I arr, |
|
./pkg/mdsio/mdsio_writelocal.F |
175 |
MDS_WRITELOCAL |
call MDS_SEG4TORS( j,1,1,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
177 |
MDS_WRITELOCAL |
call MDS_SEG4TORL( j,1,1,k,nNz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
190 |
MDS_WRITELOCAL |
call MDS_SEG8TORS( j,1,1,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
192 |
MDS_WRITELOCAL |
call MDS_SEG8TORL( j,1,1,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
71 |
MDS_WRITELOCAL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
11 |
MDSREADFIELD_LOC |
O arr, |
|
./pkg/mdsio/mdsio_readfield_loc.F |
187 |
MDSREADFIELD_LOC |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
189 |
MDSREADFIELD_LOC |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
202 |
MDSREADFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
204 |
MDSREADFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
53 |
MDSREADFIELD_LOC |
Real arr(*) |
|
./pkg/mdsio/mdsio_seg4torl.F |
22 |
MDS_SEG4TORL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg4torl.F |
30 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
34 |
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_write_rl_vec.F |
27 |
MDS_WRITE_RL_VEC |
_RL arr(narr) |
|
./pkg/mdsio/mdsio_write_rl_vec.F |
42 |
MDS_WRITE_RL_VEC |
write(dUnit,rec=irec) arr |
|
./pkg/mdsio/mdsio_write_rl_vec.F |
6 |
MDS_WRITE_RL_VEC |
subroutine MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, mythid ) |
|
./pkg/mdsio/mdsio_seg8torl.F |
22 |
MDS_SEG8TORL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg8torl.F |
30 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
34 |
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_seg4tors.F |
22 |
MDS_SEG4TORS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_seg4tors.F |
30 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
34 |
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_byteswapr8.F |
17 |
MDS_BYTESWAPR8 |
character*(*) arr |
|
./pkg/mdsio/mdsio_byteswapr8.F |
23 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
24 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
25 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/mdsio/mdsio_byteswapr8.F |
26 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
27 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
28 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/mdsio/mdsio_byteswapr8.F |
29 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
30 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
31 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/mdsio/mdsio_byteswapr8.F |
32 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
33 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./pkg/mdsio/mdsio_byteswapr8.F |
34 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./pkg/mdsio/mdsio_byteswapr8.F |
6 |
MDS_BYTESWAPR8 |
subroutine MDS_BYTESWAPR8( n, arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
11 |
MDSREADFIELD |
O arr, |
|
./pkg/mdsio/mdsio_readfield.F |
208 |
MDSREADFIELD |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
210 |
MDSREADFIELD |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
223 |
MDSREADFIELD |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
225 |
MDSREADFIELD |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
313 |
MDSREADFIELD |
call MDS_SEG4TORS( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
315 |
MDSREADFIELD |
call MDS_SEG4TORL( j,bi,bj,k,nNz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
328 |
MDSREADFIELD |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
330 |
MDSREADFIELD |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
489 |
MDSREADFIELD |
call PASSTORS( local,arr,k,nNz,mythid ) |
|
./pkg/mdsio/mdsio_readfield.F |
491 |
MDSREADFIELD |
call PASSTORL( local,arr,k,nNz,mythid ) |
|
./pkg/mdsio/mdsio_readfield.F |
515 |
PASSTORS |
subroutine PASSTORS(local,arr,k,nNz,mythid) |
|
./pkg/mdsio/mdsio_readfield.F |
521 |
PASSTORS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_readfield.F |
527 |
PASSTORS |
arr(I,J,k,bi,bj) = local(I,J,bi,bj) |
|
./pkg/mdsio/mdsio_readfield.F |
535 |
PASSTORL |
subroutine PASSTORL(local,arr,k,nNz,mythid) |
|
./pkg/mdsio/mdsio_readfield.F |
541 |
PASSTORL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy) |
|
./pkg/mdsio/mdsio_readfield.F |
547 |
PASSTORL |
arr(I,J,k,bi,bj) = local(I,J,bi,bj) |
|
./pkg/mdsio/mdsio_readfield.F |
58 |
MDSREADFIELD |
Real arr(*) |
|
./pkg/mdsio/mdswritefield_new.F |
12 |
MDSWRITEFIELD_NEW |
I arr, |
|
./pkg/mdsio/mdswritefield_new.F |
177 |
MDSWRITEFIELD_NEW |
local(I,J,bi,bj) = arr(I,J,k,bi,bj) |
|
./pkg/mdsio/mdswritefield_new.F |
327 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORS( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
329 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORL( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
342 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORS( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
344 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORL( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
412 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORS( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
414 |
MDSWRITEFIELD_NEW |
call MDS_SEG4TORL( j,bi,bj,k,nNzdim, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
427 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORS( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
429 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORL( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
79 |
MDSWRITEFIELD_NEW |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNzdim,nSx,nSy) |
|
./model/src/external_fields_load.F |
306 |
LEF_ZERO |
SUBROUTINE LEF_ZERO( arr ,myThid ) |
|
./model/src/external_fields_load.F |
317 |
LEF_ZERO |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/external_fields_load.F |
328 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./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) |
|
./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) |
|
./verification/global_ocean_pressure/code/remove_mean_rl.F |
24 |
REMOVE_MEAN_RL |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
|
./verification/global_ocean_pressure/code/remove_mean_rl.F |
48 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./verification/global_ocean_pressure/code/remove_mean_rl.F |
72 |
REMOVE_MEAN_RL |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./verification/global_ocean_pressure/code/remove_mean_rl.F |
7 |
REMOVE_MEAN_RL |
I myNr, arr, arrMask, arrhFac, arrArea, arrDr, |
|
./verification/natl_box/code/external_fields_load.F |
256 |
LEF_ZERO |
SUBROUTINE LEF_ZERO( arr ,myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
268 |
LEF_ZERO |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/natl_box/code/external_fields_load.F |
279 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./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(1,0), |
|
./eesupp/src/exch_jam.F |
780 |
EXCH_XY_O1_R4_JAM |
CALL JAM_EXCHANGE(farProc1,arr(1,1),arr(1,0), |
|
./eesupp/src/exch_jam.F |
785 |
EXCH_XY_O1_R4_JAM |
CALL JAM_EXCHANGE(farProc2,arr(1,sNy),arr(1,sNy+1), |
|
./eesupp/src/exch_jam.F |
804 |
EXCH_XY_O1_R4_JAM |
arr(I,sNy+1) = exchBuf1(I) |
|
./eesupp/src/exch_jam.F |
805 |
EXCH_XY_O1_R4_JAM |
arr(I,0 ) = exchBuf2(I) |
|
./eesupp/src/exch_jam.F |
809 |
EXCH_XY_O1_R4_JAM |
arr(I,sNy+1) = exchBuf2(I) |
|
./eesupp/src/exch_jam.F |
810 |
EXCH_XY_O1_R4_JAM |
arr(I,0 ) = exchBuf1(I) |
|
./eesupp/src/exch_jam.F |
817 |
EXCH_XY_O1_R4_JAM |
arr(I,sNy+1) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
818 |
EXCH_XY_O1_R4_JAM |
arr(I,0 ) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
829 |
EXCH_XY_R4_JAM |
SUBROUTINE EXCH_XY_R4_JAM( arr ) |
|
./eesupp/src/exch_jam.F |
854 |
EXCH_XY_R4_JAM |
Real*4 arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./eesupp/src/exch_jam.F |
878 |
EXCH_XY_R4_JAM |
arr(1-I ,J) = arr(sNx-I+1,J) |
|
./eesupp/src/exch_jam.F |
879 |
EXCH_XY_R4_JAM |
arr(sNx+I,J) = arr(1+I-1 ,J) |
|
./eesupp/src/exch_jam.F |
905 |
EXCH_XY_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
906 |
EXCH_XY_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
90 |
EXCH_XY_O1_R8_JAM |
exchBuf1(I) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
915 |
EXCH_XY_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
916 |
EXCH_XY_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
91 |
EXCH_XY_O1_R8_JAM |
exchBuf2(I) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
956 |
EXCH_XY_R4_JAM |
arr(I,sNy+J ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
957 |
EXCH_XY_R4_JAM |
arr(I,1-OLy+J-1) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
95 |
EXCH_XY_O1_R8_JAM |
exchBuf1(I) = arr(I,1 ) |
|
./eesupp/src/exch_jam.F |
966 |
EXCH_XY_R4_JAM |
arr(I,sNy+J ) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
967 |
EXCH_XY_R4_JAM |
arr(I,1-OLy+J-1 ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
96 |
EXCH_XY_O1_R8_JAM |
exchBuf2(I) = arr(I,sNy) |
|
./eesupp/src/exch_jam.F |
985 |
EXCH_XY_R4_JAM |
& arr(1-OLx,sNy-OLy+1), |
|
./eesupp/src/exch_jam.F |
986 |
EXCH_XY_R4_JAM |
& arr(1-OLx,sNy+1 ), |
|
./eesupp/src/exch_jam.F |
993 |
EXCH_XY_R4_JAM |
& arr(1-OLx,1 ), |
|
./eesupp/src/exch_jam.F |
994 |
EXCH_XY_R4_JAM |
& arr(1-OLx,1-OLy ), |
|
./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 |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
17 |
MDS_BYTESWAPR4 |
CHARACTER*(*) arr |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
26 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
27 |
MDS_BYTESWAPR4 |
arr(i:i)=arr(i+3:i+3) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
28 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
29 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
30 |
MDS_BYTESWAPR4 |
arr(i+1:i+1)=arr(i+2:i+2) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
31 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
40 |
MDS_BYTESWAPR8 |
SUBROUTINE MDS_BYTESWAPR8( n, arr ) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
51 |
MDS_BYTESWAPR8 |
CHARACTER*(*) arr |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
60 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
61 |
MDS_BYTESWAPR8 |
arr(i:i)=arr(i+7:i+7) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
62 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
63 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
64 |
MDS_BYTESWAPR8 |
arr(i+1:i+1)=arr(i+6:i+6) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
65 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
66 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
67 |
MDS_BYTESWAPR8 |
arr(i+2:i+2)=arr(i+5:i+5) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
68 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
69 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
6 |
MDS_BYTESWAPR4 |
SUBROUTINE MDS_BYTESWAPR4( n, arr ) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
70 |
MDS_BYTESWAPR8 |
arr(i+3:i+3)=arr(i+4:i+4) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
71 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./pkg/sbo/sbo_writevector.F |
120 |
SBO_WRITEVECTOR |
write(dUnit,rec=irecord) arr |
|
./pkg/sbo/sbo_writevector.F |
23 |
SBO_WRITEVECTOR |
I arr, |
|
./pkg/sbo/sbo_writevector.F |
53 |
SBO_WRITEVECTOR |
Real*8 arr(narr) |
|
./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/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/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_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/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/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/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/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/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/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/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) |
|
./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/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/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/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/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/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/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/offline/offline_fields_load.F |
407 |
LEF_ZERO3 |
SUBROUTINE LEF_ZERO3( arr ,myThid ) |
|
./pkg/offline/offline_fields_load.F |
419 |
LEF_ZERO3 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
431 |
LEF_ZERO3 |
arr(i,j,k,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
444 |
LEF_ZERO2 |
SUBROUTINE LEF_ZERO2( arr ,myThid ) |
|
./pkg/offline/offline_fields_load.F |
456 |
LEF_ZERO2 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
466 |
LEF_ZERO2 |
arr(i,j,bi,bj)=0. |
|
./pkg/seaice/seaice_do_diags.F |
100 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=UICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
107 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'UICE.',suff,arr,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
111 |
SEAICE_DO_DIAGS |
_EXCH_XY_R4( arr, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
112 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( arr , 'Current uice ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
119 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=VICE(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
126 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'VICE.',suff,arr,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
130 |
SEAICE_DO_DIAGS |
_EXCH_XY_R4( arr, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
131 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( arr , 'Current vice ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
138 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
145 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'HEFF.',suff,arr,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
149 |
SEAICE_DO_DIAGS |
_EXCH_XY_R4( arr, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
150 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( arr , 'Current heff ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
157 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=AREA(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
164 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'AREA.',suff,arr,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
168 |
SEAICE_DO_DIAGS |
_EXCH_XY_R4( arr, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
169 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( arr , 'Current area ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
36 |
SEAICE_DO_DIAGS |
_RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy) |
|
./pkg/seaice/seaice_get_forcing.F |
549 |
INIT_ARRAY_RS |
SUBROUTINE INIT_ARRAY_RS( arr, initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
556 |
INIT_ARRAY_RS |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_get_forcing.F |
569 |
INIT_ARRAY_RS |
arr(i,j,bi,bj) = initValue |
|
./pkg/monitor/mon_stats_rl.F |
123 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
12 |
MON_STATS_RL |
I myNr, arr, arrMask,arrhFac, arrArea, arrDr, |
|
./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 |
62 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
72 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
73 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
74 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
75 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,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_latbnd_rl.F |
81 |
MON_STATS_LATBND_RL |
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, arrMask, arrhFac, arrArea, arrDr, |
|
./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 |
41 |
MON_PRINTSTATS_RL |
I myNr, arr, arrMask, arrhFac, arrArea, arrDr, |
|
./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 |
54 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
98 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./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, |