File |
Line number |
Procedure |
Code |
./optim/optim_readdata.F |
357 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
./optim/optim_readdata.F |
359 |
OPTIM_READDATA |
vv(icvoffset+icvcomp) = cbuff(icvcomp) |
./optim/optim_readdata.F |
81 |
OPTIM_READDATA |
real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
./optim/optim_writedata.F |
240 |
OPTIM_WRITEDATA |
cbuff(icvcomp) = vv(icvoffset + icvcomp) |
./optim/optim_writedata.F |
248 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
./optim/optim_writedata.F |
68 |
OPTIM_WRITEDATA |
real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
204 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
209 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
216 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
220 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
227 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
231 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
237 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
241 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
256 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
298 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
303 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
310 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
314 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
321 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
325 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xy.F |
331 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
335 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
350 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
398 |
CTRL_SET_PACK_XY |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
544 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
./pkg/ctrl/ctrl_set_pack_xy.F |
547 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
557 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xy.F |
65 |
CTRL_SET_PACK_XY |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
221 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = 1/delZnorm |
./pkg/ctrl/ctrl_set_pack_xyz.F |
229 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = delZnorm |
./pkg/ctrl/ctrl_set_pack_xyz.F |
238 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
241 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
244 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
248 |
CTRL_SET_PACK_XYZ |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
263 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
313 |
CTRL_SET_PACK_XYZ |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
463 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
466 |
CTRL_SET_PACK_XYZ |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
476 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
70 |
CTRL_SET_PACK_XYZ |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_pack_xz.F |
212 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xz.F |
220 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xz.F |
229 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xz.F |
232 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
./pkg/ctrl/ctrl_set_pack_xz.F |
244 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xz.F |
285 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xz.F |
293 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_xz.F |
302 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xz.F |
305 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
./pkg/ctrl/ctrl_set_pack_xz.F |
317 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_xz.F |
69 |
CTRL_SET_PACK_XZ |
real*4 cbuff ( snx*nsx*npx*nsy*npy ) |
./pkg/ctrl/ctrl_set_pack_yz.F |
216 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_yz.F |
224 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_yz.F |
233 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_yz.F |
236 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
./pkg/ctrl/ctrl_set_pack_yz.F |
248 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_yz.F |
289 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_yz.F |
297 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
./pkg/ctrl/ctrl_set_pack_yz.F |
306 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_pack_yz.F |
309 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
./pkg/ctrl/ctrl_set_pack_yz.F |
321 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_pack_yz.F |
69 |
CTRL_SET_PACK_YZ |
real*4 cbuff ( nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
208 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
223 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
318 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
331 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
333 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
432 |
CTRL_SET_UNPACK_XY |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
531 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
540 |
CTRL_SET_UNPACK_XY |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
66 |
CTRL_SET_UNPACK_XY |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
232 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
247 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
342 |
CTRL_SET_UNPACK_XYZ |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
441 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
450 |
CTRL_SET_UNPACK_XYZ |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
70 |
CTRL_SET_UNPACK_XYZ |
real*4 cbuff ( snx*nsx*npx*sny*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
220 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
234 |
CTRL_SET_UNPACK_XZ |
& cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
237 |
CTRL_SET_UNPACK_XZ |
& cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
307 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
318 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
320 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
67 |
CTRL_SET_UNPACK_XZ |
real*4 cbuff ( snx*nsx*npx*nsy*npy ) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
220 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
234 |
CTRL_SET_UNPACK_YZ |
& cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
237 |
CTRL_SET_UNPACK_YZ |
& cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
307 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
317 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
319 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
67 |
CTRL_SET_UNPACK_YZ |
real*4 cbuff ( nsx*npx*sny*nsy*npy ) |