Symbol Description Uses
mate counter mate Id number if any ; 0 otherwise 87


File Line number Procedure Code
./pkg/diagnostics/diagstats_global.F 121 DIAGSTATS_GLOBAL 
        IF ( mate.GT.0 ) THEN
./pkg/diagnostics/diagstats_global.F 147 DIAGSTATS_GLOBAL 
        IF ( mate.GT.0 ) THEN
./pkg/diagnostics/diagstats_global.F 14 DIAGSTATS_GLOBAL 
     I                    ndId, mate, iSp, iSm, myThid )
./pkg/diagnostics/diagstats_global.F 165 DIAGSTATS_GLOBAL 
        IF ( mate.EQ.0 ) THEN
./pkg/diagnostics/diagstats_global.F 36 DIAGSTATS_GLOBAL 
      INTEGER nLev, jReg, ndId, mate, iSp, iSm
./pkg/diagnostics/diagstats_global.F 63 DIAGSTATS_GLOBAL 
      IF ( mate.GT.0 ) kMlev = kdiag(mate)
./pkg/diagnostics/diagstats_global.F 88 DIAGSTATS_GLOBAL 
          IF ( mate.GT.0 ) THEN
./pkg/diagnostics/diagnostics_out.F 262 DIAGNOSTICS_OUT 
              READ (mate_index,'(I3)') mate
./pkg/diagnostics/diagnostics_out.F 265 DIAGNOSTICS_OUT 
     &         '     Diagnostic # ',mate, '  ', cdiag(mate)
./pkg/diagnostics/diagnostics_out.F 268 DIAGNOSTICS_OUT 
              mate = 0
./pkg/diagnostics/diagnostics_out.F 295 DIAGNOSTICS_OUT 
     I                       ndId,mate,ip,im,bi,bj,myThid)
./pkg/diagnostics/diagnostics_out.F 56 DIAGNOSTICS_OUT 
      INTEGER mate, mVec
./pkg/diagnostics/diagstats_set_pointers.F 100 DIAGSTATS_SET_POINTERS 
             diagSt_Flds(mm,ld) = cdiag(mate)
./pkg/diagnostics/diagstats_set_pointers.F 37 DIAGSTATS_SET_POINTERS 
      INTEGER mm, mate, nActiveMax
./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 77 DIAGSTATS_SET_POINTERS 
         IF ( found .AND. mate.LE.-1 ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 83 DIAGSTATS_SET_POINTERS 
              IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE.
./pkg/diagnostics/diagstats_set_pointers.F 92 DIAGSTATS_SET_POINTERS 
           IF ( .NOT.addMate2List ) mate = 0
./pkg/diagnostics/diagstats_set_pointers.F 94 DIAGSTATS_SET_POINTERS 
         IF ( found .AND. mate.NE.0 ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 97 DIAGSTATS_SET_POINTERS 
             iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate)
./pkg/diagnostics/diagstats_set_pointers.F 98 DIAGSTATS_SET_POINTERS 
             mate = ABS(mate)
./pkg/diagnostics/diagstats_set_pointers.F 99 DIAGSTATS_SET_POINTERS 
             jSdiag(mm,ld) = mate
./pkg/diagnostics/diagstats_setdiag.F 102 DIAGSTATS_SETDIAG 
        mate = 0
./pkg/diagnostics/diagstats_setdiag.F 108 DIAGSTATS_SETDIAG 
      mate = 0
./pkg/diagnostics/diagstats_setdiag.F 10 DIAGSTATS_SETDIAG 
     O                      mate,
./pkg/diagnostics/diagstats_setdiag.F 111 DIAGSTATS_SETDIAG 
        READ (mate_index,'(I3)') mate
./pkg/diagnostics/diagstats_setdiag.F 120 DIAGSTATS_SETDIAG 
            IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN
./pkg/diagnostics/diagstats_setdiag.F 131 DIAGSTATS_SETDIAG 
          IF (ndiagmx+kdiag(mate).GT.diagSt_size) THEN
./pkg/diagnostics/diagstats_setdiag.F 134 DIAGSTATS_SETDIAG 
     &      mate, cdiag(mate)
./pkg/diagnostics/diagstats_setdiag.F 138 DIAGSTATS_SETDIAG 
     &     kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate)
./pkg/diagnostics/diagstats_setdiag.F 142 DIAGSTATS_SETDIAG 
          ndiagmx = ndiagmx + kdiag(mate)
./pkg/diagnostics/diagstats_setdiag.F 145 DIAGSTATS_SETDIAG 
     &    '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate),
./pkg/diagnostics/diagstats_setdiag.F 148 DIAGSTATS_SETDIAG 
          mate = -mate
./pkg/diagnostics/diagstats_setdiag.F 40 DIAGSTATS_SETDIAG 
      INTEGER mate
./pkg/diagnostics/diagnostics_fract_fill.F 103 DIAGNOSTICS_FRACT_FILL 
           mate = 0
./pkg/diagnostics/diagnostics_fract_fill.F 105 DIAGNOSTICS_FRACT_FILL 
           IF ( parms1(5:5).EQ.'C' ) READ(parms1,'(5X,I3)') mate
./pkg/diagnostics/diagnostics_fract_fill.F 106 DIAGNOSTICS_FRACT_FILL 
           IF ( mdiag(m,n).EQ.0 ) mate = 0
./pkg/diagnostics/diagnostics_fract_fill.F 107 DIAGNOSTICS_FRACT_FILL 
           IF ( mate.LE.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 117 DIAGNOSTICS_FRACT_FILL 
           nLevFract = MIN(nLevs,kdiag(mate))
./pkg/diagnostics/diagnostics_fract_fill.F 141 DIAGNOSTICS_FRACT_FILL 
           mate = 0
./pkg/diagnostics/diagnostics_fract_fill.F 143 DIAGNOSTICS_FRACT_FILL 
           IF ( parms1(5:5).EQ.'C' ) READ(parms1,'(5X,I3)') mate
./pkg/diagnostics/diagnostics_fract_fill.F 144 DIAGNOSTICS_FRACT_FILL 
           IF ( mSdiag(m,n).EQ.0 ) mate = 0
./pkg/diagnostics/diagnostics_fract_fill.F 145 DIAGNOSTICS_FRACT_FILL 
           IF ( mate.LE.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 155 DIAGNOSTICS_FRACT_FILL 
           nLevFract = MIN(nLevs,kdiag(mate))
./pkg/diagnostics/diagnostics_fract_fill.F 82 DIAGNOSTICS_FRACT_FILL 
      INTEGER mate, nLevFract
./pkg/diagnostics/diagnostics_utils.F 14 GETDIAG 
     I                    ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_utils.F 38 GETDIAG 
      INTEGER ndId, mate, ip, im
./pkg/diagnostics/diagnostics_utils.F 56 GETDIAG 
        IF ( mate.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_utils.F 77 GETDIAG 
          levCt= MIN(lev,kdiag(mate))
./pkg/diagnostics/diagnostics_setdiag.F 102 DIAGNOSTICS_SETDIAG 
        mate = 0
./pkg/diagnostics/diagnostics_setdiag.F 108 DIAGNOSTICS_SETDIAG 
      mate = 0
./pkg/diagnostics/diagnostics_setdiag.F 10 DIAGNOSTICS_SETDIAG 
     O                      mate,
./pkg/diagnostics/diagnostics_setdiag.F 111 DIAGNOSTICS_SETDIAG 
        READ (mate_index,'(I3)') mate
./pkg/diagnostics/diagnostics_setdiag.F 120 DIAGNOSTICS_SETDIAG 
            IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 131 DIAGNOSTICS_SETDIAG 
          IF (ndiagmx+kdiag(mate).GT.numdiags) THEN
./pkg/diagnostics/diagnostics_setdiag.F 134 DIAGNOSTICS_SETDIAG 
     &      mate, cdiag(mate)
./pkg/diagnostics/diagnostics_setdiag.F 138 DIAGNOSTICS_SETDIAG 
     &     kdiag(mate), ' Levels for Count.Diag #', mate, cdiag(mate)
./pkg/diagnostics/diagnostics_setdiag.F 142 DIAGNOSTICS_SETDIAG 
          ndiagmx = ndiagmx + kdiag(mate)
./pkg/diagnostics/diagnostics_setdiag.F 145 DIAGNOSTICS_SETDIAG 
     &    '- NOTE - SETDIAG: Counter Diagnostic #', mate, cdiag(mate),
./pkg/diagnostics/diagnostics_setdiag.F 148 DIAGNOSTICS_SETDIAG 
          mate = 0
./pkg/diagnostics/diagnostics_setdiag.F 40 DIAGNOSTICS_SETDIAG 
      INTEGER mate
./pkg/diagnostics/diagstats_output.F 117 DIAGSTATS_OUTPUT 
             IF ( mate.GT.0 ) THEN
./pkg/diagnostics/diagstats_output.F 119 DIAGSTATS_OUTPUT 
     &         '    use Counter Mate  # ', mate,'  ',cdiag(mate),
./pkg/diagnostics/diagstats_output.F 48 DIAGSTATS_OUTPUT 
      INTEGER mate
./pkg/diagnostics/diagstats_output.F 74 DIAGSTATS_OUTPUT 
           READ (mate_index,'(I3)') mate
./pkg/diagnostics/diagstats_output.F 76 DIAGSTATS_OUTPUT 
           mate = 0
./pkg/diagnostics/diagstats_output.F 86 DIAGSTATS_OUTPUT 
     I                       ndId, mate, iSp, iSm, myThid )
./pkg/diagnostics/diagnostics_set_pointers.F 133 DIAGNOSTICS_SET_POINTERS 
          READ(mate_index,'(I3)') mate
./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 37 DIAGNOSTICS_SET_POINTERS 
      INTEGER mate, nActiveMax
./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 78 DIAGNOSTICS_SET_POINTERS 
         IF ( found .AND. mate.GE.1 ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 81 DIAGNOSTICS_SET_POINTERS 
             jdiag(mm,ld) = mate
./pkg/diagnostics/diagnostics_set_pointers.F 83 DIAGNOSTICS_SET_POINTERS 
             flds (mm,ld) = cdiag(mate)