File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_position.F |
126 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
./pkg/grdchk/grdchk_init.F |
179 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) |
./pkg/grdchk/grdchk_init.F |
180 |
GRDCHK_INIT |
maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) |
./pkg/grdchk/grdchk_loc.F |
153 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
./optim/optim_readdata.F |
181 |
OPTIM_READDATA |
read( funit ) (ncvarrecs(i), i=1,maxcvars) |
./optim/optim_readdata.F |
239 |
OPTIM_READDATA |
& (ncvarrecs(i), i=1,maxcvars) |
./optim/optim_readdata.F |
292 |
OPTIM_READDATA |
do icvrec = 1,ncvarrecs(icvar) |
./optim/optim_writedata.F |
131 |
OPTIM_WRITEDATA |
& (ncvarrecs(i), i=1,maxcvars) |
./optim/optim_writedata.F |
179 |
OPTIM_WRITEDATA |
write( funit ) (ncvarrecs(i), i=1,maxcvars) |
./optim/optim_writedata.F |
190 |
OPTIM_WRITEDATA |
do icvrec = 1,ncvarrecs(icvar) |
./pkg/admtlm/admtlm_model2dsvd.F |
236 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarrecs(i), i=1,maxcvars) |
./pkg/ctrl/ctrl.h |
113 |
NO PROCEDURE |
integer ncvarrecs ( maxcvars ) |
./pkg/ctrl/ctrl.h |
95 |
NO PROCEDURE |
& ncvarrecs, |
./pkg/ctrl/ctrl_init.F |
100 |
CTRL_INIT |
ncvarrecs(ivar) = 0 |
./pkg/ctrl/ctrl_init_ctrlvar.F |
63 |
CTRL_INIT_CTRLVAR |
ncvarrecs (ivarindex) = ncvarrecs_loc |
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
200 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
205 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetitile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
215 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
./pkg/ctrl/ctrl_init_wet.F |
221 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
./pkg/ctrl/ctrl_init_wet.F |
227 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
./pkg/ctrl/ctrl_init_wet.F |
233 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
./pkg/ctrl/ctrl_init_wet.F |
284 |
CTRL_INIT_WET |
& 'ctrl-wet 6: no recs for i = ', i, ncvarrecs(i) |
./pkg/ctrl/ctrl_init_wet.F |
291 |
CTRL_INIT_WET |
& ncvarrecs(3)*nwetctile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
292 |
CTRL_INIT_WET |
& ncvarrecs(4)*nwetctile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
293 |
CTRL_INIT_WET |
& ncvarrecs(5)*nwetwtile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
294 |
CTRL_INIT_WET |
& ncvarrecs(6)*nwetstile(1,1,1) |
./pkg/ctrl/ctrl_init_wet.F |
302 |
CTRL_INIT_WET |
& ncvarrecs(7)*nwetctile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
303 |
CTRL_INIT_WET |
& ncvarrecs(8)*nwetctile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
304 |
CTRL_INIT_WET |
& ncvarrecs(9)*nwetwtile(1,1,1) + |
./pkg/ctrl/ctrl_init_wet.F |
305 |
CTRL_INIT_WET |
& ncvarrecs(10)*nwetstile(1,1,1) |
./pkg/ctrl/ctrl_pack.F |
265 |
CTRL_PACK |
write(cunit) (ncvarrecs(i), i=1,maxcvars) |
./pkg/ctrl/ctrl_set_globfld_xy.F |
103 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_xy.F |
96 |
CTRL_SET_GLOBFLD_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_globfld_xyz.F |
80 |
CTRL_SET_GLOBFLD_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_xz.F |
101 |
CTRL_SET_GLOBFLD_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_globfld_xz.F |
110 |
CTRL_SET_GLOBFLD_XZ |
do irec = nrec_nl*Ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_globfld_yz.F |
102 |
CTRL_SET_GLOBFLD_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_globfld_yz.F |
112 |
CTRL_SET_GLOBFLD_YZ |
do irec = nrec_nl*Nx+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
176 |
CTRL_SET_PACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_pack_xy.F |
270 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
449 |
CTRL_SET_PACK_XY |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
188 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
364 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_xz.F |
183 |
CTRL_SET_PACK_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_pack_yz.F |
183 |
CTRL_SET_PACK_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_pack_yz.F |
263 |
CTRL_SET_PACK_YZ |
do irec = nrec_nl*nx+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
177 |
CTRL_SET_UNPACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
288 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
483 |
CTRL_SET_UNPACK_XY |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
197 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
393 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
188 |
CTRL_SET_UNPACK_XZ |
nrec_nl = int(ncvarrecs(ivartype)/Ny) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
278 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
188 |
CTRL_SET_UNPACK_YZ |
nrec_nl = int(ncvarrecs(ivartype)/Nx) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
278 |
CTRL_SET_UNPACK_YZ |
do irec = nrec_nl*nx+1,ncvarrecs(ivartype) |