Symbol Description Uses
ld current ouput stream number 172



File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 105 SEAICE_COST_CONCENTRATION
      integer md, dd, sd, ld, wd
./pkg/seaice/seaice_cost_concentration.F 172 SEAICE_COST_CONCENTRATION
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_concentration.F 184 SEAICE_COST_CONCENTRATION
      print *,'ld,wd          ', ld,wd
./pkg/seaice/seaice_cost_sss.F 106 SEAICE_COST_SSS
      integer md, dd, sd, ld, wd
./pkg/seaice/seaice_cost_sss.F 190 SEAICE_COST_SSS
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_sss.F 202 SEAICE_COST_SSS
      print *,'ld,wd          ', ld,wd
./pkg/seaice/seaice_cost_sst.F 104 SEAICE_COST_SST
      integer md, dd, sd, ld, wd
./pkg/seaice/seaice_cost_sst.F 185 SEAICE_COST_SST
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_sst.F 197 SEAICE_COST_SST
      print *,'ld,wd          ', ld,wd
./pkg/diagnostics/diagnostics_check.F 103 DIAGNOSTICS_CHECK
     &    ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld)
./pkg/diagnostics/diagnostics_check.F 118 DIAGNOSTICS_CHECK
      DO ld = 1,nlists
./pkg/diagnostics/diagnostics_check.F 119 DIAGNOSTICS_CHECK
       IF ( fflags(ld)(2:2).EQ.'P' ) THEN
./pkg/diagnostics/diagnostics_check.F 124 DIAGNOSTICS_CHECK
          DO k=1,nlevels(ld)
./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 130 DIAGNOSTICS_CHECK
     &       'Vertical Interp. for list l=', ld,
./pkg/diagnostics/diagnostics_check.F 131 DIAGNOSTICS_CHECK
     &       ', filename: ', fnames(ld)
./pkg/diagnostics/diagnostics_check.F 134 DIAGNOSTICS_CHECK
     &       ' lev(k=', k, ') p=', levs(k,ld),
./pkg/diagnostics/diagnostics_check.F 146 DIAGNOSTICS_CHECK
     &       ' for list l=', ld, ', filename: ', fnames(ld)
./pkg/diagnostics/diagnostics_check.F 152 DIAGNOSTICS_CHECK
         DO md = 1,nfields(ld)
./pkg/diagnostics/diagnostics_check.F 153 DIAGNOSTICS_CHECK
          nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_check.F 154 DIAGNOSTICS_CHECK
          CALL DIAGNOSTICS_GET_POINTERS( 'RSURF   ', ld,
./pkg/diagnostics/diagnostics_check.F 158 DIAGNOSTICS_CHECK
           CALL DIAGNOSTICS_GET_POINTERS('FIZPRES ', ld,
./pkg/diagnostics/diagnostics_check.F 161 DIAGNOSTICS_CHECK
           CALL DIAGNOSTICS_GET_POINTERS('RCENTER ', ld,
./pkg/diagnostics/diagnostics_check.F 166 DIAGNOSTICS_CHECK
     &      'to interpolate diags from output list:', ld
./pkg/diagnostics/diagnostics_check.F 31 DIAGNOSTICS_CHECK
      INTEGER ld,md,nd
./pkg/diagnostics/diagnostics_check.F 76 DIAGNOSTICS_CHECK
      DO ld = 2,nlists
./pkg/diagnostics/diagnostics_check.F 77 DIAGNOSTICS_CHECK
       DO m = 1,ld-1
./pkg/diagnostics/diagnostics_check.F 78 DIAGNOSTICS_CHECK
        IF ( fnames(ld).EQ.fnames(m) ) THEN
./pkg/diagnostics/diagnostics_check.F 86 DIAGNOSTICS_CHECK
     &    ' 2nd (n=', ld, ' ): ', fnames(ld)
./pkg/diagnostics/diagnostics_check.F 93 DIAGNOSTICS_CHECK
      DO ld = 2,diagSt_nbLists
./pkg/diagnostics/diagnostics_check.F 94 DIAGNOSTICS_CHECK
       DO m = 1,ld-1
./pkg/diagnostics/diagnostics_check.F 95 DIAGNOSTICS_CHECK
        IF ( diagSt_Fname(ld).EQ.diagSt_Fname(m) ) THEN
./pkg/diagnostics/diagnostics_list_check.F 13 DIAGNOSTICS_LIST_CHECK
     I                       ld, md,
./pkg/diagnostics/diagnostics_list_check.F 37 DIAGNOSTICS_LIST_CHECK
      INTEGER ld, md, nbLists
./pkg/diagnostics/diagnostics_list_check.F 58 DIAGNOSTICS_LIST_CHECK
      DO n = ld,nbLists
./pkg/diagnostics/diagnostics_set_pointers.F 131 DIAGNOSTICS_SET_POINTERS
      DO ld=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F 132 DIAGNOSTICS_SET_POINTERS
       DO md=1,nActive(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 133 DIAGNOSTICS_SET_POINTERS
        IF (mdiag(md,ld).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 135 DIAGNOSTICS_SET_POINTERS
         nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 140 DIAGNOSTICS_SET_POINTERS
            IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 141 DIAGNOSTICS_SET_POINTERS
              mdiag(md,ld) = ABS(idiag(i,j))
./pkg/diagnostics/diagnostics_set_pointers.F 146 DIAGNOSTICS_SET_POINTERS
         IF ( mdiag(md,ld).NE.0 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 161 DIAGNOSTICS_SET_POINTERS
      DO ld=1,nlists
./pkg/diagnostics/diagnostics_set_pointers.F 162 DIAGNOSTICS_SET_POINTERS
        IF ( nlevels(ld).EQ.-1 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 165 DIAGNOSTICS_SET_POINTERS
          DO md=1,nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 166 DIAGNOSTICS_SET_POINTERS
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 172 DIAGNOSTICS_SET_POINTERS
     &      ' setting levs of list l=',ld,', fnames=', fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 181 DIAGNOSTICS_SET_POINTERS
     &      ' setting levs of list l=',ld,', fnames=', fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 185 DIAGNOSTICS_SET_POINTERS
          nlevels(ld) = kLev
./pkg/diagnostics/diagnostics_set_pointers.F 187 DIAGNOSTICS_SET_POINTERS
           levs(k,ld) = k
./pkg/diagnostics/diagnostics_set_pointers.F 190 DIAGNOSTICS_SET_POINTERS
     &      'Set levels for Outp.Stream: ',fnames(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 194 DIAGNOSTICS_SET_POINTERS
          IF ( fflags(ld)(2:2).EQ.'I' ) suffix = ' Sum Levels:'
./pkg/diagnostics/diagnostics_set_pointers.F 195 DIAGNOSTICS_SET_POINTERS
          DO k1=1,nlevels(ld),20
./pkg/diagnostics/diagnostics_set_pointers.F 196 DIAGNOSTICS_SET_POINTERS
            k2 = MIN(nlevels(ld),k1+19)
./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 201 DIAGNOSTICS_SET_POINTERS
        ELSEIF ( fflags(ld)(2:2).NE.'P' ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 204 DIAGNOSTICS_SET_POINTERS
          DO k=1,nlevels(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 205 DIAGNOSTICS_SET_POINTERS
            kLev = MAX(NINT(levs(k,ld)),kLev)
./pkg/diagnostics/diagnostics_set_pointers.F 207 DIAGNOSTICS_SET_POINTERS
          DO md=1,nfields(ld)
./pkg/diagnostics/diagnostics_set_pointers.F 208 DIAGNOSTICS_SET_POINTERS
            nd = jdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 216 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 46 DIAGNOSTICS_SET_POINTERS
      DO ld=1,numlists
./pkg/diagnostics/diagnostics_set_pointers.F 48 DIAGNOSTICS_SET_POINTERS
        idiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 49 DIAGNOSTICS_SET_POINTERS
        jdiag(md,ld) = 0
./pkg/diagnostics/diagnostics_set_pointers.F 50 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 75 DIAGNOSTICS_SET_POINTERS
     I                      ld, md, nlists, nfields, flds, myThid )
./pkg/diagnostics/diagnostics_set_pointers.F 78 DIAGNOSTICS_SET_POINTERS
     &                      flds(md,ld),' is not a Diagnostic'
./pkg/diagnostics/diagnostics_set_pointers.F 84 DIAGNOSTICS_SET_POINTERS
           mm = nActive(ld) + 1
./pkg/diagnostics/diagnostics_set_pointers.F 86 DIAGNOSTICS_SET_POINTERS
             jdiag(mm,ld) = mate
./pkg/diagnostics/diagnostics_set_pointers.F 87 DIAGNOSTICS_SET_POINTERS
             idiag(mm,ld) = mdiag(md,ld)
./pkg/diagnostics/diagnostics_set_pointers.F 88 DIAGNOSTICS_SET_POINTERS
             flds (mm,ld) = cdiag(mate)
./pkg/diagnostics/diagnostics_set_pointers.F 90 DIAGNOSTICS_SET_POINTERS
           nActive(ld) = mm
./pkg/diagnostics/diagnostics_set_pointers.F 94 DIAGNOSTICS_SET_POINTERS
       nActiveMax = MAX(nActive(ld),nActiveMax)
./pkg/diagnostics/diagnostics_summary.F 100 DIAGNOSTICS_SUMMARY
         IF ( fflags(ld)(2:2).EQ.'P' ) THEN
./pkg/diagnostics/diagnostics_summary.F 101 DIAGNOSTICS_SUMMARY
          DO k1=1,nlevels(ld),10
./pkg/diagnostics/diagnostics_summary.F 102 DIAGNOSTICS_SUMMARY
           k2 = MIN(nlevels(ld),k1+9)
./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 106 DIAGNOSTICS_SUMMARY
          DO k1=1,nlevels(ld),25
./pkg/diagnostics/diagnostics_summary.F 107 DIAGNOSTICS_SUMMARY
           k2 = MIN(nlevels(ld),k1+24)
./pkg/diagnostics/diagnostics_summary.F 108 DIAGNOSTICS_SUMMARY
           WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2)
./pkg/diagnostics/diagnostics_summary.F 112 DIAGNOSTICS_SUMMARY
         DO md=1,nActive(ld)
./pkg/diagnostics/diagnostics_summary.F 114 DIAGNOSTICS_SUMMARY
     &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',
./pkg/diagnostics/diagnostics_summary.F 115 DIAGNOSTICS_SUMMARY
     &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'
./pkg/diagnostics/diagnostics_summary.F 116 DIAGNOSTICS_SUMMARY
           ipt = ABS(idiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 117 DIAGNOSTICS_SUMMARY
           IF (ipt.NE.0 .AND. averageCycle(ld).GT.1) THEN
./pkg/diagnostics/diagnostics_summary.F 121 DIAGNOSTICS_SUMMARY
             DO l=1,averageCycle(ld)
./pkg/diagnostics/diagnostics_summary.F 122 DIAGNOSTICS_SUMMARY
               ii = ipt+l*kdiag(jdiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 123 DIAGNOSTICS_SUMMARY
               IF (l.EQ.averageCycle(ld)) THEN
./pkg/diagnostics/diagnostics_summary.F 148 DIAGNOSTICS_SUMMARY
            im = mdiag(md,ld)
./pkg/diagnostics/diagnostics_summary.F 177 DIAGNOSTICS_SUMMARY
        DO ld=1,diagSt_nbLists
./pkg/diagnostics/diagnostics_summary.F 178 DIAGNOSTICS_SUMMARY
         iLen = ILNBLNK(diagSt_Fname(ld))
./pkg/diagnostics/diagnostics_summary.F 179 DIAGNOSTICS_SUMMARY
         WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,
./pkg/diagnostics/diagnostics_summary.F 180 DIAGNOSTICS_SUMMARY
     &                     ' ; file name: ',diagSt_Fname(ld)(1:iLen)
./pkg/diagnostics/diagnostics_summary.F 183 DIAGNOSTICS_SUMMARY
     &    diagSt_nbFlds(ld), '  |',diagSt_nbActv(ld), '  |',
./pkg/diagnostics/diagnostics_summary.F 184 DIAGNOSTICS_SUMMARY
     &    diagSt_freq(ld), diagSt_phase(ld), ' |'
./pkg/diagnostics/diagnostics_summary.F 188 DIAGNOSTICS_SUMMARY
           IF ( diagSt_region(j,ld).GE.1
./pkg/diagnostics/diagnostics_summary.F 198 DIAGNOSTICS_SUMMARY
         DO md=1,diagSt_nbActv(ld)
./pkg/diagnostics/diagnostics_summary.F 200 DIAGNOSTICS_SUMMARY
     &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),
./pkg/diagnostics/diagnostics_summary.F 201 DIAGNOSTICS_SUMMARY
     &       ' |', mSdiag(md,ld),' |'
./pkg/diagnostics/diagnostics_summary.F 202 DIAGNOSTICS_SUMMARY
           ipt = ABS(iSdiag(md,ld))
./pkg/diagnostics/diagnostics_summary.F 209 DIAGNOSTICS_SUMMARY
           im = mSdiag(md,ld)
./pkg/diagnostics/diagnostics_summary.F 33 DIAGNOSTICS_SUMMARY
      INTEGER md, ld, ipt, im
./pkg/diagnostics/diagnostics_summary.F 92 DIAGNOSTICS_SUMMARY
        DO ld=1,nlists
./pkg/diagnostics/diagnostics_summary.F 93 DIAGNOSTICS_SUMMARY
         iLen = ILNBLNK(fnames(ld))
./pkg/diagnostics/diagnostics_summary.F 94 DIAGNOSTICS_SUMMARY
         WRITE(dUnit,'(A,I5,2A)') 'listId=', ld,
./pkg/diagnostics/diagnostics_summary.F 95 DIAGNOSTICS_SUMMARY
     &                            ' ; file name: ',fnames(ld)(1:iLen)
./pkg/diagnostics/diagnostics_summary.F 98 DIAGNOSTICS_SUMMARY
     &    nfields(ld), '  |',nActive(ld), '  |',
./pkg/diagnostics/diagnostics_summary.F 99 DIAGNOSTICS_SUMMARY
     &    freq(ld), phase(ld), ' |', nlevels(ld)
./pkg/diagnostics/diagstats_set_pointers.F 102 DIAGSTATS_SET_POINTERS
            mm = diagSt_nbActv(ld) + 1
./pkg/diagnostics/diagstats_set_pointers.F 104 DIAGSTATS_SET_POINTERS
             iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate)
./pkg/diagnostics/diagstats_set_pointers.F 106 DIAGSTATS_SET_POINTERS
             jSdiag(mm,ld) = mate
./pkg/diagnostics/diagstats_set_pointers.F 107 DIAGSTATS_SET_POINTERS
             diagSt_Flds(mm,ld) = cdiag(mate)
./pkg/diagnostics/diagstats_set_pointers.F 109 DIAGSTATS_SET_POINTERS
            diagSt_nbActv(ld) = mm
./pkg/diagnostics/diagstats_set_pointers.F 113 DIAGSTATS_SET_POINTERS
       nActiveMax = MAX(diagSt_nbActv(ld),nActiveMax)
./pkg/diagnostics/diagstats_set_pointers.F 37 DIAGSTATS_SET_POINTERS
      INTEGER md,ld,nd
./pkg/diagnostics/diagstats_set_pointers.F 47 DIAGSTATS_SET_POINTERS
      DO ld=1,numlists
./pkg/diagnostics/diagstats_set_pointers.F 49 DIAGSTATS_SET_POINTERS
        iSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 50 DIAGSTATS_SET_POINTERS
        jSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 51 DIAGSTATS_SET_POINTERS
        mSdiag(md,ld) = 0
./pkg/diagnostics/diagstats_set_pointers.F 59 DIAGSTATS_SET_POINTERS
      DO ld=1,diagSt_nbLists
./pkg/diagnostics/diagstats_set_pointers.F 60 DIAGSTATS_SET_POINTERS
       diagSt_nbActv(ld) = diagSt_nbFlds(ld)
./pkg/diagnostics/diagstats_set_pointers.F 61 DIAGSTATS_SET_POINTERS
       DO md=1,diagSt_nbFlds(ld)
./pkg/diagnostics/diagstats_set_pointers.F 66 DIAGSTATS_SET_POINTERS
          IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 67 DIAGSTATS_SET_POINTERS
            CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid)
./pkg/diagnostics/diagstats_set_pointers.F 69 DIAGSTATS_SET_POINTERS
            jSdiag(md,ld) = nd
./pkg/diagnostics/diagstats_set_pointers.F 75 DIAGSTATS_SET_POINTERS
     I                      ld,md, diagSt_nbLists,
./pkg/diagnostics/diagstats_set_pointers.F 79 DIAGSTATS_SET_POINTERS
     &                     diagSt_Flds(md,ld),' is not a Diagnostic'
./pkg/diagnostics/diagstats_set_pointers.F 87 DIAGSTATS_SET_POINTERS
           DO l=1,ld-1
./pkg/diagnostics/diagstats_set_pointers.F 95 DIAGSTATS_SET_POINTERS
     &                 .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld))
./pkg/ecco/cost_gencost_sstv4.F 172 COST_GENCOST_SSTV4
             call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_gencost_sstv4.F 310 COST_GENCOST_SSTV4
             call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_gencost_sstv4.F 93 COST_GENCOST_SSTV4
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_generic.F 109 COST_GENERIC
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_generic.F 202 COST_GENERIC
           call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readers.F 66 COST_READERS
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_readers.F 94 COST_READERS
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readgfo.F 66 COST_READGFO
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_readgfo.F 94 COST_READGFO
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readtopex.F 66 COST_READTOPEX
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_readtopex.F 94 COST_READTOPEX
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_sla_read.F 71 COST_SLA_READ
      integer md, dd, sd, ld, wd
./pkg/ecco/cost_sla_read.F 99 COST_SLA_READ
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_sla_read_yd.F 72 COST_SLA_READ_YD
      integer md, dd, sd, ld, wd