File |
Line number |
Procedure |
Code |
./optim/optim_readdata.F |
162 |
OPTIM_READDATA |
read(funit) (nWetiGlobal(k), k=1,nr) |
./optim/optim_readdata.F |
210 |
OPTIM_READDATA |
& (nWetiGlobal(k), k=1,nr) |
./optim/optim_readdata.F |
310 |
OPTIM_READDATA |
cbuffindex = nWetiGlobal(k) |
./optim/optim_writedata.F |
159 |
OPTIM_WRITEDATA |
write(funit) (nWetiGlobal(k), k=1,nr) |
./optim/optim_writedata.F |
208 |
OPTIM_WRITEDATA |
cbuffindex = nWetiGlobal(k) |
./pkg/ctrl/ctrl_init_wet.F |
558 |
CTRL_INIT_WET |
nWetiGlobal(k)=ntmpshi |
./pkg/ctrl/ctrl_init_wet.F |
560 |
CTRL_INIT_WET |
nWetiGlobal(k)=0 |
./pkg/ctrl/ctrl_init_wet.F |
570 |
CTRL_INIT_WET |
ntmpshi=ntmpshi+nWetiGlobal(k) |
./pkg/ctrl/ctrl_pack.F |
245 |
CTRL_PACK |
write(cunit) (nWetiGlobal(k), k=1,nr) |
./pkg/ctrl/ctrl_unpack.F |
300 |
CTRL_UNPACK |
if ( filenWetiGlobal(k) .NE. nWetiGlobal(k) ) then |