| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
159 |
CTRL_SET_PACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
164 |
CTRL_SET_PACK_YZ |
& nr, globfld3D, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
167 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
249 |
CTRL_SET_PACK_YZ |
do irec = nrec_nl*snx+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
252 |
CTRL_SET_PACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
255 |
CTRL_SET_PACK_YZ |
& nr, globfldyz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
55 |
CTRL_SET_PACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
157 |
CTRL_SET_UNPACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
159 |
CTRL_SET_UNPACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
232 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
236 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
249 |
CTRL_SET_UNPACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
324 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
52 |
CTRL_SET_UNPACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_obcsvol.F |
57 |
CTRL_OBCSVOL |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
155 |
CTRL_SET_PACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
158 |
CTRL_SET_PACK_XY |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
160 |
CTRL_SET_PACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
217 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
220 |
CTRL_SET_PACK_XY |
& 1, globfld3d(1,1,1,1,1,1,1), irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
226 |
CTRL_SET_PACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
51 |
CTRL_SET_PACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
47 |
CTRL_SET_GLOBFLD_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
84 |
CTRL_SET_GLOBFLD_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
87 |
CTRL_SET_GLOBFLD_XYZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
160 |
CTRL_SET_UNPACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
164 |
CTRL_SET_UNPACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
228 |
CTRL_SET_UNPACK_XZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
236 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*sny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
239 |
CTRL_SET_UNPACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
298 |
CTRL_SET_UNPACK_XZ |
& Nr, globfldxz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
54 |
CTRL_SET_UNPACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_pack.F |
69 |
CTRL_PACK |
integer irec |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
105 |
CTRL_SET_GLOBFLD_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
108 |
CTRL_SET_GLOBFLD_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
111 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
114 |
CTRL_SET_GLOBFLD_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
52 |
CTRL_SET_GLOBFLD_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
105 |
CTRL_SET_GLOBFLD_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
108 |
CTRL_SET_GLOBFLD_YZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
111 |
CTRL_SET_GLOBFLD_YZ |
do irec = nrec_nl*snx+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
114 |
CTRL_SET_GLOBFLD_YZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
52 |
CTRL_SET_GLOBFLD_YZ |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
160 |
CTRL_SET_UNPACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
164 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
229 |
CTRL_SET_UNPACK_YZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
237 |
CTRL_SET_UNPACK_YZ |
do irec = nrec_nl*snx+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
238 |
CTRL_SET_UNPACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
297 |
CTRL_SET_UNPACK_YZ |
& Nr, globfldyz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
54 |
CTRL_SET_UNPACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
172 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
183 |
CTRL_SET_UNPACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
261 |
CTRL_SET_UNPACK_XYZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
52 |
CTRL_SET_UNPACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
105 |
CTRL_SET_GLOBFLD_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
108 |
CTRL_SET_GLOBFLD_XZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
111 |
CTRL_SET_GLOBFLD_XZ |
do irec = nrec_nl*sny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
114 |
CTRL_SET_GLOBFLD_XZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
52 |
CTRL_SET_GLOBFLD_XZ |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_volflux.F |
63 |
CTRL_VOLFLUX |
integer irec |
|
./pkg/ctrl/ctrl_obcsbal.F |
60 |
CTRL_OBCSBAL |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
164 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
167 |
CTRL_SET_PACK_XYZ |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
52 |
CTRL_SET_PACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
160 |
CTRL_SET_PACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
162 |
CTRL_SET_PACK_XZ |
& nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
164 |
CTRL_SET_PACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
242 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*sny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
245 |
CTRL_SET_PACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
248 |
CTRL_SET_PACK_XZ |
& nr, globfldxz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
55 |
CTRL_SET_PACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_unpack.F |
72 |
CTRL_UNPACK |
integer irec |