| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
173 |
OPTIM_READDATA |
read( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
202 |
OPTIM_READDATA |
& (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
256 |
OPTIM_READDATA |
if ( ncvarindex(icvar) .ne. -1 ) then |
|
./optim/optim_readdata.F |
260 |
OPTIM_READDATA |
read( funit ) ncvarindex(icvar) |
|
./optim/optim_writedata.F |
126 |
OPTIM_WRITEDATA |
& (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
171 |
OPTIM_WRITEDATA |
write( funit ) (ncvarindex(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
182 |
OPTIM_WRITEDATA |
if ( ncvarindex(icvar) .ne. -1 ) then |
|
./optim/optim_writedata.F |
186 |
OPTIM_WRITEDATA |
write( funit ) ncvarindex(icvar) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
191 |
CTRL_SET_PACK_YZ |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
279 |
CTRL_SET_PACK_YZ |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
161 |
CTRL_SET_UNPACK_XY |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
164 |
CTRL_SET_UNPACK_XY |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
239 |
CTRL_SET_UNPACK_XY |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
242 |
CTRL_SET_UNPACK_XY |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
161 |
CTRL_SET_PACK_XY |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
222 |
CTRL_SET_PACK_XY |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_summary.F |
134 |
CTRL_SUMMARY |
&' Control variable index: ',ncvarindex(1) |
|
./pkg/ctrl/ctrl_summary.F |
148 |
CTRL_SUMMARY |
&' Control variable index: ',ncvarindex(2) |
|
./pkg/ctrl/ctrl_summary.F |
162 |
CTRL_SUMMARY |
&' Control variable index: ',ncvarindex(3) |
|
./pkg/ctrl/ctrl_summary.F |
203 |
CTRL_SUMMARY |
&' Control varibale index: ',ncvarindex(4) |
|
./pkg/ctrl/ctrl_summary.F |
244 |
CTRL_SUMMARY |
&' Control variable index: ',ncvarindex(5) |
|
./pkg/ctrl/ctrl_summary.F |
285 |
CTRL_SUMMARY |
&' Control variable index: ',ncvarindex(6) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
167 |
CTRL_SET_UNPACK_XZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
170 |
CTRL_SET_UNPACK_XZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
242 |
CTRL_SET_UNPACK_XZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
245 |
CTRL_SET_UNPACK_XZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_pack.F |
198 |
CTRL_PACK |
write(cunit) (ncvarindex(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
167 |
CTRL_SET_UNPACK_YZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
170 |
CTRL_SET_UNPACK_YZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
241 |
CTRL_SET_UNPACK_YZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
244 |
CTRL_SET_UNPACK_YZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
174 |
CTRL_SET_UNPACK_XYZ |
if (filencvarindex(ivartype) .NE. ncvarindex(ivartype)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
177 |
CTRL_SET_UNPACK_XYZ |
& filencvarindex(ivartype), ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_init_wet.F |
162 |
CTRL_INIT_WET |
if ( ncvarindex(i) .ne. -1 ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
213 |
CTRL_INIT_WET |
print*,' control variable = ',ncvarindex(i) |
|
./pkg/ctrl/ctrl.h |
65 |
NO PROCEDURE |
& ncvarindex, |
|
./pkg/ctrl/ctrl.h |
83 |
NO PROCEDURE |
integer ncvarindex ( maxcvars ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
169 |
CTRL_SET_PACK_XYZ |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_init.F |
110 |
CTRL_INIT |
ncvarindex(ivar) = -1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
188 |
CTRL_SET_PACK_XZ |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
272 |
CTRL_SET_PACK_XZ |
write(cunit) ncvarindex(ivartype) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
62 |
CTRL_INIT_CTRLVAR |
ncvarindex(ivarindex) = ncvarindex_loc |