Symbol Description Uses
md field number in the list listId . 77


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/kpp/kpp_routines.F 119 KPPMIX 
      integer i, k, md
./pkg/kpp/kpp_routines.F 1348 ENHANCE 
      integer ki, i, md
./pkg/kpp/kpp_routines.F 1355 ENHANCE 
            do md = 1, mdiff
./pkg/kpp/kpp_routines.F 1356 ENHANCE 
               dkmp5         =      casea(i)  * diffus(i,ki,md) +
./pkg/kpp/kpp_routines.F 1357 ENHANCE 
     1                         (1.- casea(i)) * blmc  (i,ki,md)
./pkg/kpp/kpp_routines.F 1358 ENHANCE 
               dstar         = (1.- delta)**2 * dkm1(i,md)
./pkg/kpp/kpp_routines.F 1360 ENHANCE 
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 152 KPPMIX 
      do md = 1, mdiff
./pkg/kpp/kpp_routines.F 155 KPPMIX 
               diffus(i,k,md) = 0.0
./pkg/diagnostics/diagnostics_out.F 208 DIAGNOSTICS_OUT 
      DO md = 1,nfields(listId)
./pkg/diagnostics/diagnostics_out.F 209 DIAGNOSTICS_OUT 
        ndId = jdiag(md,listId)
./pkg/diagnostics/diagnostics_out.F 211 DIAGNOSTICS_OUT 
        IF ( idiag(md,listId).NE.0 .AND. parms1(5:5).NE.'D' ) THEN
./pkg/diagnostics/diagnostics_out.F 214 DIAGNOSTICS_OUT 
          ip = ABS(idiag(md,listId))
./pkg/diagnostics/diagnostics_out.F 215 DIAGNOSTICS_OUT 
          im = mdiag(md,listId)
./pkg/diagnostics/diagnostics_out.F 225 DIAGNOSTICS_OUT 
     &       '- WARNING -   diag.#',ndId, ' : ',flds(md,listId),
./pkg/diagnostics/diagnostics_out.F 226 DIAGNOSTICS_OUT 
     &       ' (#',md,' ) in outp.Stream: ',fnames(listId)
./pkg/diagnostics/diagnostics_out.F 425 DIAGNOSTICS_OUT 
     &             Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid)
./pkg/diagnostics/diagnostics_out.F 429 DIAGNOSTICS_OUT 
     &             Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid)
./pkg/diagnostics/diagnostics_out.F 433 DIAGNOSTICS_OUT 
     &             Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid)
./pkg/diagnostics/diagnostics_out.F 55 DIAGNOSTICS_OUT 
      INTEGER md, ndId, ip, im
./pkg/diagnostics/diagstats_set_pointers.F 36 DIAGSTATS_SET_POINTERS 
      INTEGER md,ld,nd
./pkg/diagnostics/diagstats_set_pointers.F 47 DIAGSTATS_SET_POINTERS 
       DO md=1,numperlist
./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 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 97 DIAGSTATS_SET_POINTERS 
             iSdiag(mm,ld) = SIGN(mSdiag(md,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 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_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 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 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 36 DIAGNOSTICS_SET_POINTERS 
      INTEGER md,ld,nd
./pkg/diagnostics/diagnostics_set_pointers.F 48 DIAGNOSTICS_SET_POINTERS 
       DO md=1,numperlist
./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 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 82 DIAGNOSTICS_SET_POINTERS 
             idiag(mm,ld) = mdiag(md,ld)