Symbol Description Uses
ld 108


File Line number Procedure Code
./pkg/ecco/cost_readtopex.F 70 COST_READTOPEX 
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_readtopex.F 98 COST_READTOPEX 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readers.F 70 COST_READERS 
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_readers.F 98 COST_READERS 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/diagnostics/diagstats_set_pointers.F 100 DIAGSTATS_SET_POINTERS 
             diagSt_Flds(mm,ld) = cdiag(mate)
./pkg/diagnostics/diagstats_set_pointers.F 102 DIAGSTATS_SET_POINTERS 
            diagSt_nbActv(ld) = mm
./pkg/diagnostics/diagstats_set_pointers.F 106 DIAGSTATS_SET_POINTERS 
       nActiveMax = MAX(diagSt_nbActv(ld),nActiveMax)
./pkg/diagnostics/diagstats_set_pointers.F 36 DIAGSTATS_SET_POINTERS 
      INTEGER md,ld,nd
./pkg/diagnostics/diagstats_set_pointers.F 46 DIAGSTATS_SET_POINTERS 
      DO ld=1,numlists
./pkg/diagnostics/diagstats_set_pointers.F 48 DIAGSTATS_SET_POINTERS 
        iSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 49 DIAGSTATS_SET_POINTERS 
        jSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 50 DIAGSTATS_SET_POINTERS 
        mSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 58 DIAGSTATS_SET_POINTERS 
      DO ld=1,diagSt_nbLists
./pkg/diagnostics/diagstats_set_pointers.F 59 DIAGSTATS_SET_POINTERS 
       diagSt_nbActv(ld) = diagSt_nbFlds(ld)
./pkg/diagnostics/diagstats_set_pointers.F 60 DIAGSTATS_SET_POINTERS 
       DO md=1,diagSt_nbFlds(ld)
./pkg/diagnostics/diagstats_set_pointers.F 65 DIAGSTATS_SET_POINTERS 
          IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 66 DIAGSTATS_SET_POINTERS 
            CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid)
./pkg/diagnostics/diagstats_set_pointers.F 68 DIAGSTATS_SET_POINTERS 
            jSdiag(md,ld) = nd
./pkg/diagnostics/diagstats_set_pointers.F 73 DIAGSTATS_SET_POINTERS 
     &                     diagSt_Flds(md,ld),' is not a Diagnostic'
./pkg/diagnostics/diagstats_set_pointers.F 80 DIAGSTATS_SET_POINTERS 
           DO l=1,ld-1
./pkg/diagnostics/diagstats_set_pointers.F 88 DIAGSTATS_SET_POINTERS 
     &                 .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld))
./pkg/diagnostics/diagstats_set_pointers.F 95 DIAGSTATS_SET_POINTERS 
            mm = diagSt_nbActv(ld) + 1
./pkg/diagnostics/diagstats_set_pointers.F 97 DIAGSTATS_SET_POINTERS 
             iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate)
./pkg/diagnostics/diagstats_set_pointers.F 99 DIAGSTATS_SET_POINTERS 
             jSdiag(mm,ld) = mate
./pkg/diagnostics/diagnostics_summary.F 101 DIAGNOSTICS_SUMMARY 
         DO md=1,nActive(ld)
./pkg/diagnostics/diagnostics_summary.F 103 DIAGNOSTICS_SUMMARY 
     &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',
./pkg/diagnostics/diagnostics_summary.F 104 DIAGNOSTICS_SUMMARY 
     &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'
./pkg/diagnostics/diagnostics_summary.F 105 DIAGNOSTICS_SUMMARY 
           ipt = ABS(idiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 111 DIAGNOSTICS_SUMMARY 
           im = mdiag(md,ld)
./pkg/diagnostics/diagnostics_summary.F 138 DIAGNOSTICS_SUMMARY 
        DO ld=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_summary.F 139 DIAGNOSTICS_SUMMARY 
         iLen = ILNBLNK(diagSt_Fname(ld))
./pkg/diagnostics/diagnostics_summary.F 140 DIAGNOSTICS_SUMMARY 
         WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,
./pkg/diagnostics/diagnostics_summary.F 141 DIAGNOSTICS_SUMMARY 
     &                     ' ; file name: ',diagSt_Fname(ld)(1:iLen)
./pkg/diagnostics/diagnostics_summary.F 144 DIAGNOSTICS_SUMMARY 
     &    diagSt_nbFlds(ld), '  |',diagSt_nbActv(ld), '  |',
./pkg/diagnostics/diagnostics_summary.F 145 DIAGNOSTICS_SUMMARY 
     &    diagSt_freq(ld), diagSt_phase(ld), ' |'
./pkg/diagnostics/diagnostics_summary.F 149 DIAGNOSTICS_SUMMARY 
           IF ( diagSt_region(j,ld).GE.1
./pkg/diagnostics/diagnostics_summary.F 159 DIAGNOSTICS_SUMMARY 
         DO md=1,diagSt_nbActv(ld)
./pkg/diagnostics/diagnostics_summary.F 161 DIAGNOSTICS_SUMMARY 
     &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),
./pkg/diagnostics/diagnostics_summary.F 162 DIAGNOSTICS_SUMMARY 
     &       ' |', mSdiag(md,ld),' |'
./pkg/diagnostics/diagnostics_summary.F 163 DIAGNOSTICS_SUMMARY 
           ipt = ABS(iSdiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 170 DIAGNOSTICS_SUMMARY 
           im = mSdiag(md,ld)
./pkg/diagnostics/diagnostics_summary.F 33 DIAGNOSTICS_SUMMARY 
      INTEGER md, ld, ipt, im
./pkg/diagnostics/diagnostics_summary.F 88 DIAGNOSTICS_SUMMARY 
        DO ld=1,nlists
./pkg/diagnostics/diagnostics_summary.F 89 DIAGNOSTICS_SUMMARY 
         iLen = ILNBLNK(fnames(ld))
./pkg/diagnostics/diagnostics_summary.F 90 DIAGNOSTICS_SUMMARY 
         WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,
./pkg/diagnostics/diagnostics_summary.F 91 DIAGNOSTICS_SUMMARY 
     &                            ' ; file name: ',fnames(ld)(1:iLen)
./pkg/diagnostics/diagnostics_summary.F 94 DIAGNOSTICS_SUMMARY 
     &    nfields(ld), '  |',nActive(ld), '  |',
./pkg/diagnostics/diagnostics_summary.F 95 DIAGNOSTICS_SUMMARY 
     &    freq(ld), phase(ld), ' |', nlevels(ld)
./pkg/diagnostics/diagnostics_summary.F 96 DIAGNOSTICS_SUMMARY 
         DO k1=1,nlevels(ld),50
./pkg/diagnostics/diagnostics_summary.F 97 DIAGNOSTICS_SUMMARY 
          k2 = MIN(nlevels(ld),k1+49)
./pkg/diagnostics/diagnostics_summary.F 98 DIAGNOSTICS_SUMMARY 
          WRITE(dUnit,'(A,50I4)')' levels:',(nint(levs(k,ld)),k=k1,k2)
./pkg/diagnostics/diagnostics_set_pointers.F 126 DIAGNOSTICS_SET_POINTERS 
      DO ld=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F 127 DIAGNOSTICS_SET_POINTERS 
       DO md=1,nActive(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 128 DIAGNOSTICS_SET_POINTERS 
        IF (mdiag(md,ld).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 130 DIAGNOSTICS_SET_POINTERS 
         nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 136 DIAGNOSTICS_SET_POINTERS 
            IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 137 DIAGNOSTICS_SET_POINTERS 
              mdiag(md,ld) = ABS(idiag(i,j))
./pkg/diagnostics/diagnostics_set_pointers.F 142 DIAGNOSTICS_SET_POINTERS 
         IF ( mdiag(md,ld).NE.0 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 156 DIAGNOSTICS_SET_POINTERS 
      DO ld=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F 157 DIAGNOSTICS_SET_POINTERS 
        IF ( nlevels(ld).EQ.-1 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 160 DIAGNOSTICS_SET_POINTERS 
          DO md=1,nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 161 DIAGNOSTICS_SET_POINTERS 
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 167 DIAGNOSTICS_SET_POINTERS 
     &      ' setting levs of list l=',ld,', fnames: ', fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 171 DIAGNOSTICS_SET_POINTERS 
          nlevels(ld) = kLev
./pkg/diagnostics/diagnostics_set_pointers.F 173 DIAGNOSTICS_SET_POINTERS 
           levs(k,ld) = k
./pkg/diagnostics/diagnostics_set_pointers.F 176 DIAGNOSTICS_SET_POINTERS 
     &      'Set levels for Outp.Stream: ',fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 179 DIAGNOSTICS_SET_POINTERS 
          DO k1=1,nlevels(ld),20
./pkg/diagnostics/diagnostics_set_pointers.F 180 DIAGNOSTICS_SET_POINTERS 
            k2 = MIN(nlevels(ld),k1+19)
./pkg/diagnostics/diagnostics_set_pointers.F 182 DIAGNOSTICS_SET_POINTERS 
     &         ' Levels:    ', (levs(k,ld),k=k1,k2)
./pkg/diagnostics/diagnostics_set_pointers.F 189 DIAGNOSTICS_SET_POINTERS 
          DO k=1,nlevels(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 190 DIAGNOSTICS_SET_POINTERS 
            kLev = MAX(NINT(levs(k,ld)),kLev)
./pkg/diagnostics/diagnostics_set_pointers.F 192 DIAGNOSTICS_SET_POINTERS 
          DO md=1,nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 193 DIAGNOSTICS_SET_POINTERS 
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 201 DIAGNOSTICS_SET_POINTERS 
     &         ' in list l=', ld, ', filename: ', fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 36 DIAGNOSTICS_SET_POINTERS 
      INTEGER md,ld,nd
./pkg/diagnostics/diagnostics_set_pointers.F 47 DIAGNOSTICS_SET_POINTERS 
      DO ld=1,numlists
./pkg/diagnostics/diagnostics_set_pointers.F 49 DIAGNOSTICS_SET_POINTERS 
        idiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 50 DIAGNOSTICS_SET_POINTERS 
        jdiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 51 DIAGNOSTICS_SET_POINTERS 
        mdiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 59 DIAGNOSTICS_SET_POINTERS 
      DO ld=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F 60 DIAGNOSTICS_SET_POINTERS 
       nActive(ld) = nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 61 DIAGNOSTICS_SET_POINTERS 
       DO md=1,nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 66 DIAGNOSTICS_SET_POINTERS 
          IF ( flds(md,ld).EQ.cdiag(nd) ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 67 DIAGNOSTICS_SET_POINTERS 
            CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid)
./pkg/diagnostics/diagnostics_set_pointers.F 69 DIAGNOSTICS_SET_POINTERS 
            jdiag(md,ld) = nd
./pkg/diagnostics/diagnostics_set_pointers.F 74 DIAGNOSTICS_SET_POINTERS 
     &                      flds(md,ld),' is not a Diagnostic'
./pkg/diagnostics/diagnostics_set_pointers.F 79 DIAGNOSTICS_SET_POINTERS 
           mm = nActive(ld) + 1
./pkg/diagnostics/diagnostics_set_pointers.F 81 DIAGNOSTICS_SET_POINTERS 
             jdiag(mm,ld) = mate
./pkg/diagnostics/diagnostics_set_pointers.F 82 DIAGNOSTICS_SET_POINTERS 
             idiag(mm,ld) = mdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 83 DIAGNOSTICS_SET_POINTERS 
             flds (mm,ld) = cdiag(mate)
./pkg/diagnostics/diagnostics_set_pointers.F 85 DIAGNOSTICS_SET_POINTERS 
           nActive(ld) = mm
./pkg/diagnostics/diagnostics_set_pointers.F 89 DIAGNOSTICS_SET_POINTERS 
       nActiveMax = MAX(nActive(ld),nActiveMax)