Symbol Description Uses
icvar 30


File Line number Procedure Code
./optim/optim_readdata.F 255 OPTIM_READDATA 
         do icvar = 1,maxcvars
./optim/optim_readdata.F 256 OPTIM_READDATA 
            if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_readdata.F 257 OPTIM_READDATA 
               do icvrec = 1,ncvarrecs(icvar)
./optim/optim_readdata.F 260 OPTIM_READDATA 
                        read( funit ) ncvarindex(icvar)
./optim/optim_readdata.F 263 OPTIM_READDATA 
                        do k = 1,ncvarnrmax(icvar)
./optim/optim_readdata.F 265 OPTIM_READDATA 
                           if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_readdata.F 267 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_readdata.F 269 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_readdata.F 271 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_readdata.F 274 OPTIM_READDATA 
                           else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_readdata.F 280 OPTIM_READDATA 
                             if (icvar .eq. 11) then
./optim/optim_readdata.F 285 OPTIM_READDATA 
                             if (icvar .eq. 12) then
./optim/optim_readdata.F 290 OPTIM_READDATA 
                             if (icvar .eq. 13) then
./optim/optim_readdata.F 295 OPTIM_READDATA 
                             if (icvar .eq. 14) then
./optim/optim_readdata.F 70 OPTIM_READDATA 
      integer icvar
./optim/optim_writedata.F 181 OPTIM_WRITEDATA 
      do icvar = 1,maxcvars
./optim/optim_writedata.F 182 OPTIM_WRITEDATA 
         if ( ncvarindex(icvar) .ne. -1 ) then
./optim/optim_writedata.F 183 OPTIM_WRITEDATA 
            do icvrec = 1,ncvarrecs(icvar)
./optim/optim_writedata.F 186 OPTIM_WRITEDATA 
                     write( funit ) ncvarindex(icvar)
./optim/optim_writedata.F 189 OPTIM_WRITEDATA 
                     do k = 1,ncvarnrmax(icvar)
./optim/optim_writedata.F 191 OPTIM_WRITEDATA 
                        if (ncvargrd(icvar) .eq. 'c') then
./optim/optim_writedata.F 193 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 's') then
./optim/optim_writedata.F 195 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'w') then
./optim/optim_writedata.F 197 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'v') then
./optim/optim_writedata.F 201 OPTIM_WRITEDATA 
                        else if (ncvargrd(icvar) .eq. 'm') then
./optim/optim_writedata.F 207 OPTIM_WRITEDATA 
                          if (icvar .eq. 11) then
./optim/optim_writedata.F 212 OPTIM_WRITEDATA 
                          if (icvar .eq. 12) then
./optim/optim_writedata.F 217 OPTIM_WRITEDATA 
                          if (icvar .eq. 13) then
./optim/optim_writedata.F 222 OPTIM_WRITEDATA 
                          if (icvar .eq. 14) then
./optim/optim_writedata.F 61 OPTIM_WRITEDATA 
      integer icvar