| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_gl.F |
1022 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1088 |
MDSREADFIELD_2D_GL |
DO jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
1093 |
MDSREADFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1096 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1191 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1262 |
MDSWRITEFIELD_2D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
1267 |
MDSWRITEFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1270 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1339 |
MDSWRITEFIELD_2D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
1346 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1364 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1422 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1429 |
MDSWRITEFIELD_2D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
1430 |
MDSWRITEFIELD_2D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
217 |
MDSREADFIELD_3D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
263 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl.F |
308 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
374 |
MDSREADFIELD_3D_GL |
DO jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
379 |
MDSREADFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
382 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
476 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
546 |
MDSWRITEFIELD_3D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
554 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
623 |
MDSWRITEFIELD_3D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
630 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
648 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
706 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
713 |
MDSWRITEFIELD_3D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
714 |
MDSWRITEFIELD_3D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
801 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
87 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
931 |
MDSREADFIELD_2D_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl.F |
939 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
977 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl_slice.F |
143 |
MDSREADFIELD_XZ_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl_slice.F |
151 |
MDSREADFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./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 |
309 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
365 |
MDSREADFIELD_YZ_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl_slice.F |
373 |
MDSREADFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./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 |
545 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
579 |
MDSWRITEFIELD_XZ_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl_slice.F |
586 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./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 |
659 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
666 |
MDSWRITEFIELD_XZ_GL |
dimList(2,2)=(jp-1)*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
667 |
MDSWRITEFIELD_XZ_GL |
dimList(3,2)= jp*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
760 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
794 |
MDSWRITEFIELD_YZ_GL |
do jp=1,nPy |
|
./pkg/mdsio/mdsio_gl_slice.F |
801 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./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 |
86 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
874 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
881 |
MDSWRITEFIELD_YZ_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl_slice.F |
882 |
MDSWRITEFIELD_YZ_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
46 |
CTRL_SET_GLOBFLD_YZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
72 |
CTRL_SET_GLOBFLD_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
77 |
CTRL_SET_GLOBFLD_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
86 |
CTRL_SET_GLOBFLD_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
92 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
100 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
110 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
116 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
143 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
173 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
181 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
196 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
204 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
209 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
211 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
217 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
219 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
261 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
269 |
CTRL_SET_PACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
284 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
289 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
294 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
296 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
302 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
304 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
310 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
51 |
CTRL_SET_PACK_YZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
93 |
CTRL_SET_PACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
98 |
CTRL_SET_PACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
100 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
101 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
167 |
CTRL_SET_PACK_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
173 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
176 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
177 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
182 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
183 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
186 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
187 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
190 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
193 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
239 |
CTRL_SET_PACK_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
245 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
248 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
249 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
254 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
255 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
258 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
259 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
262 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
265 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
47 |
CTRL_SET_PACK_XY |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
92 |
CTRL_SET_PACK_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
98 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
99 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
102 |
CTRL_SET_UNPACK_XYZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
108 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
109 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
110 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
111 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
212 |
CTRL_SET_UNPACK_XYZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
218 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
220 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
222 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
226 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
229 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
235 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
236 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
238 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
244 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
246 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
253 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
256 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
257 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
48 |
CTRL_SET_UNPACK_XYZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
101 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
111 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
117 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
144 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
170 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
178 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
193 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
200 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
205 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
215 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
221 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
254 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
262 |
CTRL_SET_PACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
277 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
282 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
287 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
289 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
295 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
297 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
303 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
51 |
CTRL_SET_PACK_XZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
94 |
CTRL_SET_PACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
99 |
CTRL_SET_PACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
101 |
CTRL_SET_PACK_XYZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
107 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
108 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
109 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
110 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
182 |
CTRL_SET_PACK_XYZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
188 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
191 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
192 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
197 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
199 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
205 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
207 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
213 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
216 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
48 |
CTRL_SET_PACK_XYZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
101 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
111 |
CTRL_SET_UNPACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
117 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
144 |
CTRL_SET_UNPACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
195 |
CTRL_SET_UNPACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
200 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
202 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
206 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
208 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
214 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
268 |
CTRL_SET_UNPACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
273 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
275 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
277 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
278 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
280 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
286 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
50 |
CTRL_SET_UNPACK_XZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
94 |
CTRL_SET_UNPACK_XZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
99 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
41 |
CTRL_SET_GLOBFLD_XYZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
66 |
CTRL_SET_GLOBFLD_XYZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
72 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
101 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
111 |
CTRL_SET_UNPACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
117 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
144 |
CTRL_SET_UNPACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
193 |
CTRL_SET_UNPACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
201 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
203 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
207 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
209 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
215 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
267 |
CTRL_SET_UNPACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
274 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
276 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
277 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
279 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
285 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
50 |
CTRL_SET_UNPACK_YZ |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
94 |
CTRL_SET_UNPACK_YZ |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
99 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
46 |
CTRL_SET_GLOBFLD_XY |
integer ip,jp |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
71 |
CTRL_SET_GLOBFLD_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
77 |
CTRL_SET_GLOBFLD_XY |
globfld2d(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
92 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
100 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
101 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
102 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
103 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
192 |
CTRL_SET_UNPACK_XY |
do jp = 1,nPy |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
198 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
200 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
202 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
206 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
|