| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_writefield_loc.F |
106 |
MDSWRITEFIELD_LOC |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
181 |
MDSWRITEFIELD_LOC |
CALL GATHER_2D( global, local, myThid ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
201 |
MDSWRITEFIELD_LOC |
xy_buffer_r4(iG_IO,jG_IO) = global(iG,jG) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
209 |
MDSWRITEFIELD_LOC |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
233 |
MDSWRITEFIELD_LOC |
xy_buffer_r8(iG_IO,jG_IO) = global(iG,jG) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
241 |
MDSWRITEFIELD_LOC |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
101 |
MDSREADFIELD_3D_GL |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdsio_gl.F |
1060 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1070 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1088 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1198 |
MDSWRITEFIELD_2D_GL |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdsio_gl.F |
1259 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1272 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1282 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
351 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
361 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
379 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
488 |
MDSWRITEFIELD_3D_GL |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdsio_gl.F |
548 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
561 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
571 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
810 |
MDSREADFIELD_2D_GL |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdsio_readfield.F |
440 |
MDSREADFIELD |
global(iG,jG) = xy_buffer_r4(iG_IO,jG_IO) |
|
./pkg/mdsio/mdsio_readfield.F |
448 |
MDSREADFIELD |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_readfield.F |
467 |
MDSREADFIELD |
global(iG,jG) = xy_buffer_r8(iG_IO,jG_IO) |
|
./pkg/mdsio/mdsio_readfield.F |
475 |
MDSREADFIELD |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_readfield.F |
487 |
MDSREADFIELD |
CALL SCATTER_2D(global,local,mythid) |
|
./pkg/mdsio/mdsio_readfield.F |
82 |
MDSREADFIELD |
Real*8 global (Nx,Ny) |
|
./pkg/mdsio/mdswritefield_new.F |
107 |
MDSWRITEFIELD_NEW |
Real*8 global(Nx,Ny) |
|
./pkg/mdsio/mdswritefield_new.F |
182 |
MDSWRITEFIELD_NEW |
CALL GATHER_2D( global, local, myThid ) |
|
./pkg/mdsio/mdswritefield_new.F |
202 |
MDSWRITEFIELD_NEW |
xy_buffer_r4(iG_IO,jG_IO) = global(iG,jG) |
|
./pkg/mdsio/mdswritefield_new.F |
210 |
MDSWRITEFIELD_NEW |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdswritefield_new.F |
234 |
MDSWRITEFIELD_NEW |
xy_buffer_r8(iG_IO,jG_IO) = global(iG,jG) |
|
./pkg/mdsio/mdswritefield_new.F |
242 |
MDSWRITEFIELD_NEW |
xy_buffer_r8(I,J) = global(I,J) |
|
./eesupp/src/gather_2d.F |
15 |
GATHER_2D |
Real*8 global(Nx,Ny) |
|
./eesupp/src/gather_2d.F |
41 |
GATHER_2D |
global(iG,jG) = local(i,j,bi,bj) |
|
./eesupp/src/gather_2d.F |
64 |
GATHER_2D |
global(iG,jG) = local(i,j,bi,bj) |
|
./eesupp/src/gather_2d.F |
6 |
GATHER_2D |
SUBROUTINE GATHER_2D( global, local, myThid ) |
|
./eesupp/src/gather_2d.F |
84 |
GATHER_2D |
global(iG,jG) = temp(i,j,bi,bj) |
|
./eesupp/src/scatter_2d.F |
12 |
SCATTER_2D |
Real*8 global(Nx,Ny) |
|
./eesupp/src/scatter_2d.F |
39 |
SCATTER_2D |
local(i,j,bi,bj) = global(iG,jG) |
|
./eesupp/src/scatter_2d.F |
3 |
SCATTER_2D |
SUBROUTINE SCATTER_2D( global, local, myThid ) |
|
./eesupp/src/scatter_2d.F |
61 |
SCATTER_2D |
local(i,j,bi,bj) = global(iG,jG) |
|
./eesupp/src/scatter_2d.F |
75 |
SCATTER_2D |
temp(i,j,bi,bj) = global(iG,jG) |
|
./pkg/exf/exf_interp_read.F |
65 |
EXF_INTERP_READ |
real*4 global(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
84 |
EXF_INTERP_READ |
& ((global(i,j),i=1,nx_in),j=1,ny_in) |
|
./pkg/exf/exf_interp_read.F |
89 |
EXF_INTERP_READ |
call MPI_BCAST(global,nx_in*ny_in,MPI_REAL, |
|
./pkg/exf/exf_interp_read.F |
93 |
EXF_INTERP_READ |
arrayin(i,j)=global(i,j) |