Symbol Description Uses
icvar 32


File Line number Procedure Code
./optim/optim_readdata.F 290 OPTIM_READDATA 
       do icvar = 1,maxcvars
./optim/optim_readdata.F 291 OPTIM_READDATA 
        if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_readdata.F 292 OPTIM_READDATA 
         do icvrec = 1,ncvarrecs(icvar)
./optim/optim_readdata.F 295 OPTIM_READDATA 
            read( funit ) ncvarindex(icvar)
./optim/optim_readdata.F 298 OPTIM_READDATA 
            do k = 1,ncvarnrmax(icvar)
./optim/optim_readdata.F 300 OPTIM_READDATA 
             if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_readdata.F 302 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_readdata.F 304 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_readdata.F 306 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_readdata.F 309 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'i') then
./optim/optim_readdata.F 313 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_readdata.F 319 OPTIM_READDATA 
              if (icvar .eq. 11) then
./optim/optim_readdata.F 324 OPTIM_READDATA 
              if (icvar .eq. 12) then
./optim/optim_readdata.F 329 OPTIM_READDATA 
              if (icvar .eq. 13) then
./optim/optim_readdata.F 334 OPTIM_READDATA 
              if (icvar .eq. 14) then
./optim/optim_readdata.F 73 OPTIM_READDATA 
      integer icvar
./optim/optim_writedata.F 188 OPTIM_WRITEDATA 
      do icvar = 1,maxcvars
./optim/optim_writedata.F 189 OPTIM_WRITEDATA 
         if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_writedata.F 190 OPTIM_WRITEDATA 
            do icvrec = 1,ncvarrecs(icvar)
./optim/optim_writedata.F 193 OPTIM_WRITEDATA 
                     write( funit ) ncvarindex(icvar)
./optim/optim_writedata.F 196 OPTIM_WRITEDATA 
                     do k = 1,ncvarnrmax(icvar)
./optim/optim_writedata.F 198 OPTIM_WRITEDATA 
                        if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_writedata.F 200 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_writedata.F 202 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_writedata.F 204 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_writedata.F 207 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'i') then
./optim/optim_writedata.F 211 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_writedata.F 217 OPTIM_WRITEDATA 
                          if (icvar .eq. 11) then
./optim/optim_writedata.F 222 OPTIM_WRITEDATA 
                          if (icvar .eq. 12) then
./optim/optim_writedata.F 227 OPTIM_WRITEDATA 
                          if (icvar .eq. 13) then
./optim/optim_writedata.F 232 OPTIM_WRITEDATA 
                          if (icvar .eq. 14) then
./optim/optim_writedata.F 64 OPTIM_WRITEDATA 
      integer icvar