Symbol Description Uses
funit 70



File Line number Procedure Code
./optim/optim_readdata.F 106 OPTIM_READDATA
      funit = 20
./optim/optim_readdata.F 138 OPTIM_READDATA
      open( funit, file   = fname,
./optim/optim_readdata.F 145 OPTIM_READDATA
      read( funit ) nvartype
./optim/optim_readdata.F 146 OPTIM_READDATA
      read( funit ) nvarlength
./optim/optim_readdata.F 147 OPTIM_READDATA
      read( funit ) yctrlid
./optim/optim_readdata.F 148 OPTIM_READDATA
      read( funit ) filenopt
./optim/optim_readdata.F 149 OPTIM_READDATA
      read( funit ) fileff
./optim/optim_readdata.F 150 OPTIM_READDATA
      read( funit ) fileiG
./optim/optim_readdata.F 151 OPTIM_READDATA
      read( funit ) filejG
./optim/optim_readdata.F 152 OPTIM_READDATA
      read( funit ) filensx
./optim/optim_readdata.F 153 OPTIM_READDATA
      read( funit ) filensy
./optim/optim_readdata.F 155 OPTIM_READDATA
      read( funit ) (nWetcGlobal(k), k=1,nr)
./optim/optim_readdata.F 156 OPTIM_READDATA
      read( funit ) (nWetsGlobal(k), k=1,nr)
./optim/optim_readdata.F 157 OPTIM_READDATA
      read( funit ) (nWetwGlobal(k), k=1,nr)
./optim/optim_readdata.F 159 OPTIM_READDATA
      read( funit ) (nWetvGlobal(k), k=1,nr)
./optim/optim_readdata.F 162 OPTIM_READDATA
      read(funit) (nWetiGlobal(k), k=1,nr)
./optim/optim_readdata.F 168 OPTIM_READDATA
      read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 171 OPTIM_READDATA
      read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 174 OPTIM_READDATA
      read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 177 OPTIM_READDATA
      read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 180 OPTIM_READDATA
      read( funit ) (ncvarindex(i), i=1,maxcvars)
./optim/optim_readdata.F 181 OPTIM_READDATA
      read( funit ) (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_readdata.F 182 OPTIM_READDATA
      read( funit ) (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_readdata.F 183 OPTIM_READDATA
      read( funit ) (ncvarymax(i),  i=1,maxcvars)
./optim/optim_readdata.F 184 OPTIM_READDATA
      read( funit ) (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_readdata.F 185 OPTIM_READDATA
      read( funit ) (ncvargrd(i),   i=1,maxcvars)
./optim/optim_readdata.F 186 OPTIM_READDATA
      read( funit )
./optim/optim_readdata.F 295 OPTIM_READDATA
            read( funit ) ncvarindex(icvar)
./optim/optim_readdata.F 296 OPTIM_READDATA
            read( funit ) filej
./optim/optim_readdata.F 297 OPTIM_READDATA
            read( funit ) filei
./optim/optim_readdata.F 355 OPTIM_READDATA
              read( funit ) cbuffindex
./optim/optim_readdata.F 356 OPTIM_READDATA
              read( funit ) filek
./optim/optim_readdata.F 357 OPTIM_READDATA
              read( funit ) (cbuff(ii), ii=1,cbuffindex)
./optim/optim_readdata.F 381 OPTIM_READDATA
      close( funit )
./optim/optim_readdata.F 78 OPTIM_READDATA
      integer funit
./optim/optim_writedata.F 104 OPTIM_WRITEDATA
      open( funit, file   = fname,
./optim/optim_writedata.F 143 OPTIM_WRITEDATA
      write( funit ) nvartype
./optim/optim_writedata.F 144 OPTIM_WRITEDATA
      write( funit ) nvarlength
./optim/optim_writedata.F 145 OPTIM_WRITEDATA
      write( funit ) yctrlid
./optim/optim_writedata.F 146 OPTIM_WRITEDATA
      write( funit ) optimcycle
./optim/optim_writedata.F 147 OPTIM_WRITEDATA
      write( funit ) ff
./optim/optim_writedata.F 148 OPTIM_WRITEDATA
      write( funit ) big
./optim/optim_writedata.F 149 OPTIM_WRITEDATA
      write( funit ) bjg
./optim/optim_writedata.F 150 OPTIM_WRITEDATA
      write( funit ) nsx
./optim/optim_writedata.F 151 OPTIM_WRITEDATA
      write( funit ) nsy
./optim/optim_writedata.F 152 OPTIM_WRITEDATA
      write( funit ) (nWetcGlobal(k), k=1,nr)
./optim/optim_writedata.F 153 OPTIM_WRITEDATA
      write( funit ) (nWetsGlobal(k), k=1,nr)
./optim/optim_writedata.F 154 OPTIM_WRITEDATA
      write( funit ) (nWetwGlobal(k), k=1,nr)
./optim/optim_writedata.F 156 OPTIM_WRITEDATA
      write( funit ) (nWetvGlobal(k), k=1,nr)
./optim/optim_writedata.F 159 OPTIM_WRITEDATA
      write(funit) (nWetiGlobal(k),   k=1,nr)
./optim/optim_writedata.F 165 OPTIM_WRITEDATA
          write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 168 OPTIM_WRITEDATA
          write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 171 OPTIM_WRITEDATA
          write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 174 OPTIM_WRITEDATA
          write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 178 OPTIM_WRITEDATA
      write( funit ) (ncvarindex(i), i=1,maxcvars)
./optim/optim_writedata.F 179 OPTIM_WRITEDATA
      write( funit ) (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_writedata.F 180 OPTIM_WRITEDATA
      write( funit ) (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_writedata.F 181 OPTIM_WRITEDATA
      write( funit ) (ncvarymax(i),  i=1,maxcvars)
./optim/optim_writedata.F 182 OPTIM_WRITEDATA
      write( funit ) (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_writedata.F 183 OPTIM_WRITEDATA
      write( funit ) (ncvargrd(i),   i=1,maxcvars)
./optim/optim_writedata.F 184 OPTIM_WRITEDATA
      write( funit )
./optim/optim_writedata.F 193 OPTIM_WRITEDATA
                     write( funit ) ncvarindex(icvar)
./optim/optim_writedata.F 194 OPTIM_WRITEDATA
                     write( funit ) bj
./optim/optim_writedata.F 195 OPTIM_WRITEDATA
                     write( funit ) bi
./optim/optim_writedata.F 246 OPTIM_WRITEDATA
                           write( funit ) cbuffindex
./optim/optim_writedata.F 247 OPTIM_WRITEDATA
                           write( funit ) k
./optim/optim_writedata.F 248 OPTIM_WRITEDATA
                           write( funit ) (cbuff(ii), ii=1,cbuffindex)
./optim/optim_writedata.F 258 OPTIM_WRITEDATA
      close( funit )
./optim/optim_writedata.F 65 OPTIM_WRITEDATA
      integer funit
./optim/optim_writedata.F 80 OPTIM_WRITEDATA
      funit = 20