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


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 109 NO PROCEDURE 
     &     misvalFlt, levs
./pkg/diagnostics/DIAGNOSTICS.h 88 NO PROCEDURE 
      _RL levs (numLevels,numlists)
./pkg/diagnostics/diagnostics_check.F 125 DIAGNOSTICS_CHECK 
           IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin
./pkg/diagnostics/diagnostics_check.F 126 DIAGNOSTICS_CHECK 
     &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin
./pkg/diagnostics/diagnostics_check.F 127 DIAGNOSTICS_CHECK 
     &     .OR. levs(k,ld).LE.0. ) THEN
./pkg/diagnostics/diagnostics_check.F 134 DIAGNOSTICS_CHECK 
     &       ' lev(k=', k, ') p=', levs(k,ld),
./pkg/diagnostics/diagnostics_interp_vert.F 190 DIAGNOSTICS_INTERP_VERT 
             pk = levs(k,listId)**kappa
./pkg/diagnostics/diagnostics_out.F 239 DIAGNOSTICS_OUT 
     &        'diag_levels', levs(1,listId), myThid)
./pkg/diagnostics/diagnostics_out.F 275 DIAGNOSTICS_OUT 
               ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_out.F 282 DIAGNOSTICS_OUT 
               ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagnostics_out.F 289 DIAGNOSTICS_OUT 
               ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_out.F 423 DIAGNOSTICS_OUT 
     I                         levs(k,listId),undef,
./pkg/diagnostics/diagnostics_out.F 569 DIAGNOSTICS_OUT 
                klev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_readparms.F 196 DIAGNOSTICS_READPARMS 
          levs(k,n) = 0
./pkg/diagnostics/diagnostics_readparms.F 266 DIAGNOSTICS_READPARMS 
               levs(nlevels(n),n) = levels(k,l)
./pkg/diagnostics/diagnostics_readparms.F 497 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,1P10E10.3)')' interp:  ', (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_readparms.F 505 DIAGNOSTICS_READPARMS 
          WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m)
./pkg/diagnostics/diagnostics_set_pointers.F 187 DIAGNOSTICS_SET_POINTERS 
           levs(k,ld) = k
./pkg/diagnostics/diagnostics_set_pointers.F 197 DIAGNOSTICS_SET_POINTERS 
            WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2)
./pkg/diagnostics/diagnostics_set_pointers.F 205 DIAGNOSTICS_SET_POINTERS 
            kLev = MAX(NINT(levs(k,ld)),kLev)
./pkg/diagnostics/diagnostics_sum_levels.F 102 DIAGNOSTICS_SUM_LEVELS 
              kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 126 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 142 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 158 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 174 DIAGNOSTICS_SUM_LEVELS 
               kLev = NINT(levs(k,listId))
./pkg/diagnostics/diagnostics_sum_levels.F 85 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)))