Symbol Description Uses
ntot 58


File Line number Procedure Code
./pkg/mnc/mnc_cwrapper.F 138 MNC_CW_DUMP 
      integer i,j, ntot
./pkg/mnc/mnc_cwrapper.F 154 MNC_CW_DUMP 
      ntot = 0
./pkg/mnc/mnc_cwrapper.F 159 MNC_CW_DUMP 
          ntot = ntot + 1
./pkg/mnc/mnc_cwrapper.F 163 MNC_CW_DUMP 
     &         j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j),
./pkg/mnc/mnc_cwrapper.F 179 MNC_CW_DUMP 
      ntot = 0
./pkg/mnc/mnc_cwrapper.F 184 MNC_CW_DUMP 
          ntot = ntot + 1
./pkg/mnc/mnc_cwrapper.F 187 MNC_CW_DUMP 
     &         j, ntot, ' | ',
./pkg/mnc/mnc_cwrapper.F 222 MNC_CW_DUMP 
      IF (ntot .EQ. 0) THEN
./pkg/mnc/mnc_readparms.F 237 MNC_SET_OUTDIR 
      integer i,j,k, ntot, npathd, idate
./pkg/mnc/mnc_readparms.F 262 MNC_SET_OUTDIR 
      ntot = 0
./pkg/mnc/mnc_readparms.F 266 MNC_SET_OUTDIR 
            ntot = ntot + 1
./pkg/mnc/mnc_readparms.F 267 MNC_SET_OUTDIR 
            ienc(ntot) = j
./pkg/mnc/mnc_readparms.F 280 MNC_SET_OUTDIR 
      CALL MNCCDIR(ntot, ienc, idate)
./pkg/mnc/mnc_readparms.F 288 MNC_SET_OUTDIR 
      IF (ntot .GT. 0) THEN
./pkg/mnc/mnc_readparms.F 289 MNC_SET_OUTDIR 
        IF (ntot .GT. (MNC_MAX_CHAR-40)) THEN
./pkg/mnc/mnc_readparms.F 290 MNC_SET_OUTDIR 
          ntot = MNC_MAX_CHAR - 40
./pkg/mnc/mnc_readparms.F 292 MNC_SET_OUTDIR 
        DO i = 1,ntot
./pkg/mnc/mnc_readparms.F 296 MNC_SET_OUTDIR 
        mnc_out_path((ntot+1):(ntot+1)) = '/'
./pkg/mnc/mnc_cw_init.F 103 MNC_CW_INIT 
                ntot = n + 1
./pkg/mnc/mnc_cw_init.F 104 MNC_CW_INIT 
                name(ntot:ntot) = '_'
./pkg/mnc/mnc_cw_init.F 106 MNC_CW_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/mnc/mnc_cw_init.F 107 MNC_CW_INIT 
                ntot = ntot + n
./pkg/mnc/mnc_cw_init.F 110 MNC_CW_INIT 
                write(name((ntot+1):(ntot+5)), '(a1,2a2)')
./pkg/mnc/mnc_cw_init.F 113 MNC_CW_INIT 
                n = ntot+6+nvch-1
./pkg/mnc/mnc_cw_init.F 114 MNC_CW_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/mnc/mnc_cw_init.F 53 MNC_CW_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/fizhi/fizhi_mnc_init.F 100 FIZHI_MNC_INIT 
                n = ntot+6+nvch-1
./pkg/fizhi/fizhi_mnc_init.F 101 FIZHI_MNC_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/fizhi/fizhi_mnc_init.F 38 FIZHI_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/fizhi/fizhi_mnc_init.F 90 FIZHI_MNC_INIT 
                ntot = n + 1
./pkg/fizhi/fizhi_mnc_init.F 91 FIZHI_MNC_INIT 
                name(ntot:ntot) = '_'
./pkg/fizhi/fizhi_mnc_init.F 93 FIZHI_MNC_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/fizhi/fizhi_mnc_init.F 94 FIZHI_MNC_INIT 
                ntot = ntot + n
./pkg/fizhi/fizhi_mnc_init.F 97 FIZHI_MNC_INIT 
                write(name((ntot+1):(ntot+5)), '(a1,2a2)')
./pkg/land/land_mnc_init.F 107 LAND_MNC_INIT 
                ntot = n + 1
./pkg/land/land_mnc_init.F 108 LAND_MNC_INIT 
                name(ntot:ntot) = '_'
./pkg/land/land_mnc_init.F 110 LAND_MNC_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/land/land_mnc_init.F 111 LAND_MNC_INIT 
                ntot = ntot + n
./pkg/land/land_mnc_init.F 114 LAND_MNC_INIT 
                write(name((ntot+1):(ntot+5)), '(a1,2a2)')
./pkg/land/land_mnc_init.F 117 LAND_MNC_INIT 
                n = ntot+6+nvch-1
./pkg/land/land_mnc_init.F 118 LAND_MNC_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/land/land_mnc_init.F 57 LAND_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot