| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
295 |
OPTIM_READDATA |
cbuffindex = 0 |
|
./optim/optim_readdata.F |
297 |
OPTIM_READDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_readdata.F |
299 |
OPTIM_READDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_readdata.F |
301 |
OPTIM_READDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_readdata.F |
303 |
OPTIM_READDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_readdata.F |
306 |
OPTIM_READDATA |
cbuffindex = nWetiGlobal(k) |
|
./optim/optim_readdata.F |
316 |
OPTIM_READDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_readdata.F |
321 |
OPTIM_READDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_readdata.F |
326 |
OPTIM_READDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_readdata.F |
331 |
OPTIM_READDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_readdata.F |
336 |
OPTIM_READDATA |
if ( icvoffset + cbuffindex .gt. nvarlength ) then |
|
./optim/optim_readdata.F |
339 |
OPTIM_READDATA |
print *, ' There are at least ', icvoffset+cbuffindex, |
|
./optim/optim_readdata.F |
350 |
OPTIM_READDATA |
if (cbuffindex .gt. 0) then |
|
./optim/optim_readdata.F |
351 |
OPTIM_READDATA |
read( funit ) cbuffindex |
|
./optim/optim_readdata.F |
353 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
354 |
OPTIM_READDATA |
do icvcomp = 1,cbuffindex |
|
./optim/optim_readdata.F |
361 |
OPTIM_READDATA |
icvoffset = icvoffset + cbuffindex |
|
./optim/optim_readdata.F |
76 |
OPTIM_READDATA |
integer cbuffindex |
|
./optim/optim_writedata.F |
193 |
OPTIM_WRITEDATA |
cbuffindex = 0 |
|
./optim/optim_writedata.F |
195 |
OPTIM_WRITEDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_writedata.F |
197 |
OPTIM_WRITEDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_writedata.F |
199 |
OPTIM_WRITEDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_writedata.F |
201 |
OPTIM_WRITEDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_writedata.F |
204 |
OPTIM_WRITEDATA |
cbuffindex = nWetiGlobal(k) |
|
./optim/optim_writedata.F |
214 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_writedata.F |
219 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_writedata.F |
224 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_writedata.F |
229 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_writedata.F |
234 |
OPTIM_WRITEDATA |
if (cbuffindex .gt. 0) then |
|
./optim/optim_writedata.F |
235 |
OPTIM_WRITEDATA |
do icvcomp = 1,cbuffindex |
|
./optim/optim_writedata.F |
242 |
OPTIM_WRITEDATA |
write( funit ) cbuffindex |
|
./optim/optim_writedata.F |
244 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
245 |
OPTIM_WRITEDATA |
icvoffset = icvoffset + cbuffindex |
|
./optim/optim_writedata.F |
62 |
OPTIM_WRITEDATA |
integer cbuffindex |
|
./pkg/admtlm/admtlm_dsvd2model.F |
79 |
ADMTLM_DSVD2MODEL |
integer cbuffindex |
|
./pkg/admtlm/admtlm_model2dsvd.F |
80 |
ADMTLM_MODEL2DSVD |
integer cbuffindex |
|
./pkg/ctrl/ctrl_pack.F |
96 |
CTRL_PACK |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
185 |
CTRL_SET_PACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
193 |
CTRL_SET_PACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
201 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
206 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
213 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
217 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
224 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
228 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
234 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
238 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
248 |
CTRL_SET_PACK_XY |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
250 |
CTRL_SET_PACK_XY |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
253 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
279 |
CTRL_SET_PACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
287 |
CTRL_SET_PACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
295 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
300 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
307 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
311 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
318 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
322 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
328 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
332 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
342 |
CTRL_SET_PACK_XY |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
344 |
CTRL_SET_PACK_XY |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
347 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
380 |
CTRL_SET_PACK_XY |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
522 |
CTRL_SET_PACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
528 |
CTRL_SET_PACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
529 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
532 |
CTRL_SET_PACK_XY |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
539 |
CTRL_SET_PACK_XY |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
540 |
CTRL_SET_PACK_XY |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
542 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
58 |
CTRL_SET_PACK_XY |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
201 |
CTRL_SET_PACK_XYZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
209 |
CTRL_SET_PACK_XYZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
217 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
225 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
234 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
237 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
240 |
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 |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
254 |
CTRL_SET_PACK_XYZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
256 |
CTRL_SET_PACK_XYZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
259 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
292 |
CTRL_SET_PACK_XYZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
440 |
CTRL_SET_PACK_XYZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
446 |
CTRL_SET_PACK_XYZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
447 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = fld2d_buf_glo(i,j) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
450 |
CTRL_SET_PACK_XYZ |
phtmpadmtlm(nveccount) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
457 |
CTRL_SET_PACK_XYZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
458 |
CTRL_SET_PACK_XYZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
460 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
61 |
CTRL_SET_PACK_XYZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
195 |
CTRL_SET_PACK_XZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
204 |
CTRL_SET_PACK_XZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
211 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
219 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
228 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
231 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
240 |
CTRL_SET_PACK_XZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
241 |
CTRL_SET_PACK_XZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
243 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
270 |
CTRL_SET_PACK_XZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
277 |
CTRL_SET_PACK_XZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
284 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
292 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
301 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
304 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
313 |
CTRL_SET_PACK_XZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
314 |
CTRL_SET_PACK_XZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
316 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
63 |
CTRL_SET_PACK_XZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
198 |
CTRL_SET_PACK_YZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
208 |
CTRL_SET_PACK_YZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
215 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
223 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
232 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
235 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
244 |
CTRL_SET_PACK_YZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
245 |
CTRL_SET_PACK_YZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
247 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
274 |
CTRL_SET_PACK_YZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
281 |
CTRL_SET_PACK_YZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
288 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
296 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
305 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
308 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
317 |
CTRL_SET_PACK_YZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
318 |
CTRL_SET_PACK_YZ |
write(cunit) cbuffindex |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
320 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
63 |
CTRL_SET_PACK_YZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
189 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(1) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
190 |
CTRL_SET_UNPACK_XY |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
193 |
CTRL_SET_UNPACK_XY |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
195 |
CTRL_SET_UNPACK_XY |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
205 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
209 |
CTRL_SET_UNPACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
217 |
CTRL_SET_UNPACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
218 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
220 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
299 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
300 |
CTRL_SET_UNPACK_XY |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
303 |
CTRL_SET_UNPACK_XY |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
305 |
CTRL_SET_UNPACK_XY |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
315 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
319 |
CTRL_SET_UNPACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
327 |
CTRL_SET_UNPACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
328 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
330 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
414 |
CTRL_SET_UNPACK_XY |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
499 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
503 |
CTRL_SET_UNPACK_XY |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
506 |
CTRL_SET_UNPACK_XY |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
508 |
CTRL_SET_UNPACK_XY |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
516 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
520 |
CTRL_SET_UNPACK_XY |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
524 |
CTRL_SET_UNPACK_XY |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
525 |
CTRL_SET_UNPACK_XY |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
59 |
CTRL_SET_UNPACK_XY |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
212 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
213 |
CTRL_SET_UNPACK_XYZ |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
216 |
CTRL_SET_UNPACK_XYZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
218 |
CTRL_SET_UNPACK_XYZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
228 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
232 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
240 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
241 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
321 |
CTRL_SET_UNPACK_XYZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
408 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
412 |
CTRL_SET_UNPACK_XYZ |
if ( cbuffindex .gt. 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
415 |
CTRL_SET_UNPACK_XYZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
417 |
CTRL_SET_UNPACK_XYZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
425 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
429 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
433 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
434 |
CTRL_SET_UNPACK_XYZ |
fld2d_buf_glo(i,j) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
61 |
CTRL_SET_UNPACK_XYZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
206 |
CTRL_SET_UNPACK_XZ |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
208 |
CTRL_SET_UNPACK_XZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
210 |
CTRL_SET_UNPACK_XZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
219 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
222 |
CTRL_SET_UNPACK_XZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
231 |
CTRL_SET_UNPACK_XZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
233 |
CTRL_SET_UNPACK_XZ |
& cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
236 |
CTRL_SET_UNPACK_XZ |
& cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
292 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
293 |
CTRL_SET_UNPACK_XZ |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
295 |
CTRL_SET_UNPACK_XZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
297 |
CTRL_SET_UNPACK_XZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
306 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
309 |
CTRL_SET_UNPACK_XZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
316 |
CTRL_SET_UNPACK_XZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
317 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
319 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
64 |
CTRL_SET_UNPACK_XZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
205 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
208 |
CTRL_SET_UNPACK_YZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
210 |
CTRL_SET_UNPACK_YZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
219 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
221 |
CTRL_SET_UNPACK_YZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
231 |
CTRL_SET_UNPACK_YZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
233 |
CTRL_SET_UNPACK_YZ |
& cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
236 |
CTRL_SET_UNPACK_YZ |
& cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
292 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
293 |
CTRL_SET_UNPACK_YZ |
if ( cbuffindex .gt. 0 ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
295 |
CTRL_SET_UNPACK_YZ |
if (filencbuffindex .NE. cbuffindex) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
297 |
CTRL_SET_UNPACK_YZ |
& filencbuffindex, cbuffindex |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
306 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
308 |
CTRL_SET_UNPACK_YZ |
cbuffindex = 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
315 |
CTRL_SET_UNPACK_YZ |
cbuffindex = cbuffindex + 1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
316 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
318 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
64 |
CTRL_SET_UNPACK_YZ |
integer cbuffindex |
|
./pkg/ctrl/ctrl_unpack.F |
96 |
CTRL_UNPACK |
integer cbuffindex |