File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_gl.F |
1053 |
MDSREADFIELD_2D_GL |
do k=1,nLocz |
./pkg/mdsio/mdsio_gl.F |
1059 |
MDSREADFIELD_2D_GL |
& + nSx*nPx*Ny*nLocz*(irecord-1) |
./pkg/mdsio/mdsio_gl.F |
1063 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
./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 |
1137 |
MDSREADFIELD_2D_GL |
DO k=1,nLocz |
./pkg/mdsio/mdsio_gl.F |
1263 |
MDSWRITEFIELD_2D_GL |
integer nNz, nLocz |
./pkg/mdsio/mdsio_gl.F |
1264 |
MDSWRITEFIELD_2D_GL |
parameter (nLocz = 1) |
./pkg/mdsio/mdsio_gl.F |
1267 |
MDSWRITEFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
./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 |
1375 |
MDSWRITEFIELD_2D_GL |
DO k=1,nLocz |
./pkg/mdsio/mdsio_gl.F |
1394 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
./pkg/mdsio/mdsio_gl.F |
1436 |
MDSWRITEFIELD_2D_GL |
dimList(1,3)=nLocz |
./pkg/mdsio/mdsio_gl.F |
1438 |
MDSWRITEFIELD_2D_GL |
dimList(3,3)=nLocz |
./pkg/mdsio/mdsio_gl.F |
1440 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) nDims=2 |
./pkg/mdsio/mdsio_gl.F |
1480 |
MDSWRITEFIELD_2D_GL |
do k=1,nLocz |
./pkg/mdsio/mdsio_gl.F |
1487 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
./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 |
1558 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) nDims=2 |
./pkg/mdsio/mdsio_gl.F |
847 |
MDSREADFIELD_2D_GL |
integer nNz, nLocz |
./pkg/mdsio/mdsio_gl.F |
848 |
MDSREADFIELD_2D_GL |
parameter (nLocz = 1) |
./pkg/mdsio/mdsio_gl.F |
849 |
MDSREADFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
./pkg/mdsio/mdsio_gl.F |
862 |
MDSREADFIELD_2D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy) |