Symbol Description Uses
ncvargrd 47



File Line number Procedure Code
./pkg/grdchk/grdchk_get_position.F 119 GRDCHK_GET_POSITION
      if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then
./pkg/grdchk/grdchk_get_position.F 144 GRDCHK_GET_POSITION
                  if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then
./pkg/grdchk/grdchk_get_position.F 149 GRDCHK_GET_POSITION
                  else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then
./pkg/grdchk/grdchk_get_position.F 154 GRDCHK_GET_POSITION
                  else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then
./pkg/grdchk/grdchk_get_position.F 161 GRDCHK_GET_POSITION
                  else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then
./pkg/grdchk/grdchk_get_position.F 167 GRDCHK_GET_POSITION
                  else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then
./pkg/grdchk/grdchk_init.F 104 GRDCHK_INIT
      else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then
./pkg/grdchk/grdchk_init.F 113 GRDCHK_INIT
      else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then
./pkg/grdchk/grdchk_init.F 122 GRDCHK_INIT
      else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then
./pkg/grdchk/grdchk_init.F 80 GRDCHK_INIT
      if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then
./pkg/grdchk/grdchk_init.F 88 GRDCHK_INIT
      else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then
./pkg/grdchk/grdchk_init.F 96 GRDCHK_INIT
      else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then
./pkg/grdchk/grdchk_loc.F 142 GRDCHK_LOC
        if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then
./pkg/grdchk/grdchk_loc.F 192 GRDCHK_LOC
                  if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then
./pkg/grdchk/grdchk_loc.F 198 GRDCHK_LOC
                  else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then
./pkg/grdchk/grdchk_loc.F 204 GRDCHK_LOC
                  else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then
./pkg/grdchk/grdchk_loc.F 211 GRDCHK_LOC
                  else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then
./pkg/grdchk/grdchk_loc.F 218 GRDCHK_LOC
                  else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then
./optim/optim_readdata.F 185 OPTIM_READDATA
      read( funit ) (ncvargrd(i),   i=1,maxcvars)
./optim/optim_readdata.F 247 OPTIM_READDATA
     &        (ncvargrd(i),   i=1,maxcvars)
./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_writedata.F 139 OPTIM_WRITEDATA
     &        (ncvargrd(i),   i=1,maxcvars)
./optim/optim_writedata.F 183 OPTIM_WRITEDATA
      write( funit ) (ncvargrd(i),   i=1,maxcvars)
./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
./pkg/admtlm/admtlm_model2dsvd.F 240 ADMTLM_MODEL2DSVD
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl.h 138 NO PROCEDURE
     &                       ncvargrd
./pkg/ctrl/ctrl.h 140 NO PROCEDURE
      character*(1) ncvargrd(maxcvars)
./pkg/ctrl/ctrl_init.F 104 CTRL_INIT
       ncvargrd(ivar)   = '?'
./pkg/ctrl/ctrl_init_ctrlvar.F 69 CTRL_INIT_CTRLVAR
      ncvargrd  (ivarindex)    = ncvargrd_loc
./pkg/ctrl/ctrl_init_wet.F 189 CTRL_INIT_WET
                     if ( ncvargrd(i) .eq. 'c' ) then
./pkg/ctrl/ctrl_init_wet.F 192 CTRL_INIT_WET
                     else if ( ncvargrd(i) .eq. 's' ) then
./pkg/ctrl/ctrl_init_wet.F 195 CTRL_INIT_WET
                     else if ( ncvargrd(i) .eq. 'w' ) then
./pkg/ctrl/ctrl_init_wet.F 198 CTRL_INIT_WET
                     else if ( ncvargrd(i) .eq. 'v' ) then
./pkg/ctrl/ctrl_init_wet.F 203 CTRL_INIT_WET
                     else if ( ncvargrd(i) .eq. 'i') then
./pkg/ctrl/ctrl_init_wet.F 207 CTRL_INIT_WET
                     else if ( ncvargrd(i) .eq. 'm' ) then
./pkg/ctrl/ctrl_init_wet.F 242 CTRL_INIT_WET
                        print*,'     grid location    = ',ncvargrd(i)
./pkg/ctrl/ctrl_pack.F 269 CTRL_PACK
          write(cunit) (ncvargrd(i),   i=1,maxcvars)