Symbol Description Uses
icvar 30


File Line number Procedure Code
./optim/optim_readdata.F 254 OPTIM_READDATA 
         do icvar = 1,maxcvars
./optim/optim_readdata.F 255 OPTIM_READDATA 
            if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_readdata.F 256 OPTIM_READDATA 
               do icvrec = 1,ncvarrecs(icvar)
./optim/optim_readdata.F 259 OPTIM_READDATA 
                        read( funit ) ncvarindex(icvar)
./optim/optim_readdata.F 262 OPTIM_READDATA 
                        do k = 1,ncvarnrmax(icvar)
./optim/optim_readdata.F 264 OPTIM_READDATA 
                           if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_readdata.F 266 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_readdata.F 268 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_readdata.F 270 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_readdata.F 273 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_readdata.F 279 OPTIM_READDATA 
                             if (icvar .eq. 11) then
./optim/optim_readdata.F 284 OPTIM_READDATA 
                             if (icvar .eq. 12) then
./optim/optim_readdata.F 289 OPTIM_READDATA 
                             if (icvar .eq. 13) then
./optim/optim_readdata.F 294 OPTIM_READDATA 
                             if (icvar .eq. 14) then
./optim/optim_readdata.F 69 OPTIM_READDATA 
      integer icvar
./optim/optim_writedata.F 180 OPTIM_WRITEDATA 
      do icvar = 1,maxcvars
./optim/optim_writedata.F 181 OPTIM_WRITEDATA 
         if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_writedata.F 182 OPTIM_WRITEDATA 
            do icvrec = 1,ncvarrecs(icvar)
./optim/optim_writedata.F 185 OPTIM_WRITEDATA 
                     write( funit ) ncvarindex(icvar)
./optim/optim_writedata.F 188 OPTIM_WRITEDATA 
                     do k = 1,ncvarnrmax(icvar)
./optim/optim_writedata.F 190 OPTIM_WRITEDATA 
                        if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_writedata.F 192 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_writedata.F 194 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_writedata.F 196 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_writedata.F 200 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_writedata.F 206 OPTIM_WRITEDATA 
                          if (icvar .eq. 11) then
./optim/optim_writedata.F 211 OPTIM_WRITEDATA 
                          if (icvar .eq. 12) then
./optim/optim_writedata.F 216 OPTIM_WRITEDATA 
                          if (icvar .eq. 13) then
./optim/optim_writedata.F 221 OPTIM_WRITEDATA 
                          if (icvar .eq. 14) then
./optim/optim_writedata.F 60 OPTIM_WRITEDATA 
      integer icvar