| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_gl.F |
1018 |
MDSREADFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1024 |
MDSREADFIELD_2D_GL |
& + nSx*nPx*Ny*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1036 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1038 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1051 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1053 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1098 |
MDSREADFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1224 |
MDSWRITEFIELD_2D_GL |
integer nNz, nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1225 |
MDSWRITEFIELD_2D_GL |
parameter (nLocz = 1) |
|
./pkg/mdsio/mdsio_gl.F |
1228 |
MDSWRITEFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
|
./pkg/mdsio/mdsio_gl.F |
1244 |
MDSWRITEFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
1327 |
MDSWRITEFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1346 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1388 |
MDSWRITEFIELD_2D_GL |
dimList(1,3)=nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1390 |
MDSWRITEFIELD_2D_GL |
dimList(3,3)=nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1392 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) nDims=2 |
|
./pkg/mdsio/mdsio_gl.F |
1432 |
MDSWRITEFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1439 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1442 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1444 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1457 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1459 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1506 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) nDims=2 |
|
./pkg/mdsio/mdsio_gl.F |
821 |
MDSREADFIELD_2D_GL |
integer nNz, nLocz |
|
./pkg/mdsio/mdsio_gl.F |
822 |
MDSREADFIELD_2D_GL |
parameter (nLocz = 1) |
|
./pkg/mdsio/mdsio_gl.F |
823 |
MDSREADFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
|
./pkg/mdsio/mdsio_gl.F |
836 |
MDSREADFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |