Symbol Description Uses
levs list of selected levels to write for output stream # n 57


File Line number Procedure Code
./pkg/fizhi/fizhi_init_chem.F 115 READ_OZ 
      subroutine READ_OZ (ku,oz,lats,levs,nlat,nlev,ntime)
./pkg/fizhi/fizhi_init_chem.F 137 READ_OZ 
      _RL levs(nlev)
./pkg/fizhi/fizhi_init_chem.F 159 READ_OZ 
      levs(lev) = plevs(lev)
./pkg/fizhi/fizhi_init_chem.F 48 READ_QZ 
      subroutine READ_QZ (ku,qz,lats,levs,nlat,nlev,ntime)
./pkg/fizhi/fizhi_init_chem.F 69 READ_QZ 
      _RL levs(nlev)
./pkg/fizhi/fizhi_init_chem.F 89 READ_QZ 
      read(ku,1000) (levs(lev),lev=1,nlev)
./pkg/fizhi/fizhi_utils.F 499 STRIP2TILE 
      subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice)
./pkg/fizhi/fizhi_utils.F 519 STRIP2TILE 
      integer ia,ib,irun,levs,npeice
./pkg/fizhi/fizhi_utils.F 520 STRIP2TILE 
      _RL a(ia,levs), b(ib,levs)
./pkg/fizhi/fizhi_utils.F 529 STRIP2TILE 
        do 100 k=1,levs
./pkg/fizhi/fizhi_utils.F 534 STRIP2TILE 
        do 200 k=1,levs
./pkg/fizhi/fizhi_utils.F 546 PASTE2GRD_OLD 
      subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice)
./pkg/fizhi/fizhi_utils.F 573 PASTE2GRD_OLD 
      integer ia,ib,levs,numpts,npeice
./pkg/fizhi/fizhi_utils.F 575 PASTE2GRD_OLD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 583 PASTE2GRD_OLD 
      do L = 1,levs
./pkg/fizhi/fizhi_utils.F 590 PASTE2GRD 
      subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice,
./pkg/fizhi/fizhi_utils.F 619 PASTE2GRD 
      integer ia,ib,levs,numpts,npeice
./pkg/fizhi/fizhi_utils.F 621 PASTE2GRD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 633 PASTE2GRD 
       do L= 1,levs
./pkg/fizhi/fizhi_utils.F 643 PASTE2GRD 
       do L= 1,levs
./pkg/diagnostics/DIAGNOSTICS.h 112 NO PROCEDURE 
      _RL levs (numLevels,numLists)
./pkg/diagnostics/DIAGNOSTICS.h 129 NO PROCEDURE 
     &     misValFlt, levs
./pkg/diagnostics/diagnostics_calc_phivel.F 94 DIAGNOSTICS_CALC_PHIVEL 
        k = NINT(levs(ks,listId))
./pkg/diagnostics/diagnostics_check.F 151 DIAGNOSTICS_CHECK 
           IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin
./pkg/diagnostics/diagnostics_check.F 152 DIAGNOSTICS_CHECK 
     &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin
./pkg/diagnostics/diagnostics_check.F 153 DIAGNOSTICS_CHECK 
     &     .OR. levs(k,ld).LE.0. ) THEN
./pkg/diagnostics/diagnostics_check.F 160 DIAGNOSTICS_CHECK 
     &       ' lev(k=', k, ') p=', levs(k,ld),
./pkg/diagnostics/diagnostics_interp_vert.F 188 DIAGNOSTICS_INTERP_VERT 
             pk = levs(k,listId)**kappa
./pkg/diagnostics/diagnostics_mnc_out.F 130 DIAGNOSTICS_MNC_SET 
     &       'diag_levels', levs(1,listId), myThid)
./pkg/diagnostics/diagnostics_mnc_out.F 166 DIAGNOSTICS_MNC_SET 
              ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_mnc_out.F 173 DIAGNOSTICS_MNC_SET 
              ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagnostics_mnc_out.F 180 DIAGNOSTICS_MNC_SET 
              ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_mnc_out.F 366 DIAGNOSTICS_MNC_OUT 
              klev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_out.F 301 DIAGNOSTICS_OUT 
                  kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_out.F 313 DIAGNOSTICS_OUT 
                  kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_readparms.F 248 DIAGNOSTICS_READPARMS 
          levs(k,n) = 0
./pkg/diagnostics/diagnostics_readparms.F 329 DIAGNOSTICS_READPARMS 
               levs(nlevels(n),n) = levels(k,l)
./pkg/diagnostics/diagnostics_readparms.F 588 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,1P10E10.3)')' interp:  ', (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_readparms.F 596 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_set_pointers.F 255 DIAGNOSTICS_SET_POINTERS 
           levs(k,ld) = k
./pkg/diagnostics/diagnostics_set_pointers.F 265 DIAGNOSTICS_SET_POINTERS 
            WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2)
./pkg/diagnostics/diagnostics_set_pointers.F 273 DIAGNOSTICS_SET_POINTERS 
            kLev = MAX(NINT(levs(k,ld)),kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 105 DIAGNOSTICS_SUM_LEVELS 
              kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 129 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 145 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 161 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 177 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 87 DIAGNOSTICS_SUM_LEVELS 
              kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_summary.F 103 DIAGNOSTICS_SUMMARY 
           WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2)
./pkg/diagnostics/diagnostics_summary.F 108 DIAGNOSTICS_SUMMARY 
           WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2)
./pkg/diagnostics/diagstats_mnc_out.F 136 DIAGSTATS_MNC_OUT 
     &       'diag_levels', levs(1,listId), myThid)
./pkg/diagnostics/diagstats_mnc_out.F 159 DIAGSTATS_MNC_OUT 
              ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagstats_mnc_out.F 166 DIAGSTATS_MNC_OUT 
              ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagstats_mnc_out.F 173 DIAGSTATS_MNC_OUT 
              ztmp(j) = rF(NINT(levs(j,listId)))