Symbol Description Uses
icvar 32


File Line number Procedure Code
./optim/optim_readdata.F 286 OPTIM_READDATA 
       do icvar = 1,maxcvars
./optim/optim_readdata.F 287 OPTIM_READDATA 
        if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_readdata.F 288 OPTIM_READDATA 
         do icvrec = 1,ncvarrecs(icvar)
./optim/optim_readdata.F 291 OPTIM_READDATA 
            read( funit ) ncvarindex(icvar)
./optim/optim_readdata.F 294 OPTIM_READDATA 
            do k = 1,ncvarnrmax(icvar)
./optim/optim_readdata.F 296 OPTIM_READDATA 
             if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_readdata.F 298 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_readdata.F 300 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_readdata.F 302 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_readdata.F 305 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'i') then
./optim/optim_readdata.F 309 OPTIM_READDATA 
             else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_readdata.F 315 OPTIM_READDATA 
              if (icvar .eq. 11) then
./optim/optim_readdata.F 320 OPTIM_READDATA 
              if (icvar .eq. 12) then
./optim/optim_readdata.F 325 OPTIM_READDATA 
              if (icvar .eq. 13) then
./optim/optim_readdata.F 330 OPTIM_READDATA 
              if (icvar .eq. 14) then
./optim/optim_readdata.F 69 OPTIM_READDATA 
      integer icvar
./optim/optim_writedata.F 184 OPTIM_WRITEDATA 
      do icvar = 1,maxcvars
./optim/optim_writedata.F 185 OPTIM_WRITEDATA 
         if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_writedata.F 186 OPTIM_WRITEDATA 
            do icvrec = 1,ncvarrecs(icvar)
./optim/optim_writedata.F 189 OPTIM_WRITEDATA 
                     write( funit ) ncvarindex(icvar)
./optim/optim_writedata.F 192 OPTIM_WRITEDATA 
                     do k = 1,ncvarnrmax(icvar)
./optim/optim_writedata.F 194 OPTIM_WRITEDATA 
                        if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_writedata.F 196 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_writedata.F 198 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_writedata.F 200 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_writedata.F 203 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'i') then
./optim/optim_writedata.F 207 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_writedata.F 213 OPTIM_WRITEDATA 
                          if (icvar .eq. 11) then
./optim/optim_writedata.F 218 OPTIM_WRITEDATA 
                          if (icvar .eq. 12) then
./optim/optim_writedata.F 223 OPTIM_WRITEDATA 
                          if (icvar .eq. 13) then
./optim/optim_writedata.F 228 OPTIM_WRITEDATA 
                          if (icvar .eq. 14) then
./optim/optim_writedata.F 60 OPTIM_WRITEDATA 
      integer icvar