| File |
Line number |
Procedure |
Code |
|
./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 |
1045 |
MDSREADFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1169 |
MDSWRITEFIELD_2D_GL |
integer nNz, nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1170 |
MDSWRITEFIELD_2D_GL |
parameter (nLocz = 1) |
|
./pkg/mdsio/mdsio_gl.F |
1173 |
MDSWRITEFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
|
./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 |
1249 |
MDSWRITEFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1268 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1310 |
MDSWRITEFIELD_2D_GL |
dimList(1,3)=nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1312 |
MDSWRITEFIELD_2D_GL |
dimList(3,3)=nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1314 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) ndims=2 |
|
./pkg/mdsio/mdsio_gl.F |
1350 |
MDSWRITEFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1357 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./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 |
1424 |
MDSWRITEFIELD_2D_GL |
if (nLocz .EQ. 1) ndims=2 |
|
./pkg/mdsio/mdsio_gl.F |
785 |
MDSREADFIELD_2D_GL |
integer nNz, nLocz |
|
./pkg/mdsio/mdsio_gl.F |
786 |
MDSREADFIELD_2D_GL |
parameter (nLocz = 1) |
|
./pkg/mdsio/mdsio_gl.F |
787 |
MDSREADFIELD_2D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,nLocz) |
|
./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 |
965 |
MDSREADFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
971 |
MDSREADFIELD_2D_GL |
& + nSx*nPx*Ny*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
975 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./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 ) |