Symbol Description Uses
ind 60


File Line number Procedure Code
./pkg/mnc/mnc_file.F 258 MNC_FILE_ADD_ATTR_ANY 
      integer n, nf, err, fid, ind, n1, lens
./pkg/mnc/mnc_file.F 266 MNC_FILE_ADD_ATTR_ANY 
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 267 MNC_FILE_ADD_ATTR_ANY 
      IF (ind .LT. 0) THEN
./pkg/mnc/mnc_file.F 274 MNC_FILE_ADD_ATTR_ANY 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 512 MNC_FILE_REDEF 
      integer ind, fid, def, err, n
./pkg/mnc/mnc_file.F 519 MNC_FILE_REDEF 
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 520 MNC_FILE_REDEF 
      IF (ind .LT. 0) THEN
./pkg/mnc/mnc_file.F 527 MNC_FILE_REDEF 
      def = mnc_f_info(ind,1)
./pkg/mnc/mnc_file.F 528 MNC_FILE_REDEF 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 535 MNC_FILE_REDEF 
        mnc_f_info(ind,1) = 1
./pkg/mnc/mnc_file.F 565 MNC_FILE_ENDDEF 
      integer ind, fid, def, err, n
./pkg/mnc/mnc_file.F 572 MNC_FILE_ENDDEF 
      CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid)
./pkg/mnc/mnc_file.F 573 MNC_FILE_ENDDEF 
      IF (ind .LT. 0) THEN
./pkg/mnc/mnc_file.F 580 MNC_FILE_ENDDEF 
      def = mnc_f_info(ind,1)
./pkg/mnc/mnc_file.F 581 MNC_FILE_ENDDEF 
      fid = mnc_f_info(ind,2)
./pkg/mnc/mnc_file.F 588 MNC_FILE_ENDDEF 
        mnc_f_info(ind,1) = 2
./pkg/mnc/mnc_grid.F 212 MNC_GRID_INIT_ALL 
      ind = indg
./pkg/mnc/mnc_grid.F 31 MNC_GRID_INIT 
      integer ind
./pkg/mnc/mnc_grid.F 33 MNC_GRID_INIT 
      CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid)
./pkg/mnc/mnc_grid.F 48 MNC_GRID_INIT_ALL 
     O     ind,
./pkg/mnc/mnc_grid.F 66 MNC_GRID_INIT_ALL 
      integer myThid, ndim, ind
./pkg/mnc/mnc_utils.F 116 MNC_GET_IND 
            ind = i
./pkg/mnc/mnc_utils.F 121 MNC_GET_IND 
      ind = -1
./pkg/mnc/mnc_utils.F 135 MNC_GET_NEXT_EMPTY_IND 
     O     ind,
./pkg/mnc/mnc_utils.F 152 MNC_GET_NEXT_EMPTY_IND 
      integer n, i, ind
./pkg/mnc/mnc_utils.F 163 MNC_GET_NEXT_EMPTY_IND 
          ind = i
./pkg/mnc/mnc_utils.F 78 MNC_GET_IND 
     O     ind,
./pkg/mnc/mnc_utils.F 95 MNC_GET_IND 
      integer n, i, nf, ind, lenm
./pkg/atm2d/calc_1dto2d.F 103 CALC_WGHT2D 
      SUBROUTINE CALC_WGHT2D( i, j, ind, wgt)
./pkg/atm2d/calc_1dto2d.F 129 CALC_WGHT2D 
      INTEGER    ind
./pkg/atm2d/calc_1dto2d.F 132 CALC_WGHT2D 
      precipo_2D(i,j)= precipo_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 133 CALC_WGHT2D 
      solarnet_ocn_2D(i,j)=solarnet_ocn_2D(i,j) + atm_solar_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 134 CALC_WGHT2D 
      slp_2D(i,j)= slp_2D(i,j) + atm_slp(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 135 CALC_WGHT2D 
      pCO2_2D(i,j)= pCO2_2D(i,j) + atm_pco2(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 136 CALC_WGHT2D 
      wspeed_2D(i,j)= wspeed_2D(i,j) + atm_windspeed(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 137 CALC_WGHT2D 
      fu_2D(i,j)= fu_2D(i,j) + atm_tauu(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 139 CALC_WGHT2D 
      qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 140 CALC_WGHT2D 
      evapo_2D(i,j)= evapo_2D(i,j) + atm_evap_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 147 CALC_WGHT2D 
        qneti_2D(i,j)= qneti_2D(i,j) + atm_qnet_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 148 CALC_WGHT2D 
        precipi_2D(i,j)= precipi_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 149 CALC_WGHT2D 
        evapi_2D(i,j)= evapi_2D(i,j) + atm_evap_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 154 CALC_WGHT2D 
        dFdT_ice_2D(i,j)= dFdT_ice_2D(i,j) + atm_dFdT_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 155 CALC_WGHT2D 
        Tair_2D(i,j)= Tair_2D(i,j) + atm_Tair(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 156 CALC_WGHT2D 
        solarinc_2D(i,j)= solarinc_2D(i,j) + atm_solarinc(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 160 CALC_WGHT2D 
        qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F 161 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 162 CALC_WGHT2D 
        evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F 163 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 165 CALC_WGHT2D 
          qneti_2D(i,j)=qneti_2D(i,j)+atm_dFdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F 166 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 167 CALC_WGHT2D 
          evapi_2D(i,j)=evapi_2D(i,j)+atm_dLdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F 168 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 171 CALC_WGHT2D 
        qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F 172 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 173 CALC_WGHT2D 
        evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F 174 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 176 CALC_WGHT2D 
          qneti_2D(i,j)= qneti_2D(i,j) + atm_dFdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F 177 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 178 CALC_WGHT2D 
          evapi_2D(i,j)= evapi_2D(i,j)+atm_dLdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F 179 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt