Symbol Description Uses
parms1 37


File Line number Procedure Code
./pkg/diagnostics/diagnostics_fill_field.F 108 DIAGNOSTICS_FILL_FIELD 
        parms1 = gdiag(ndiagnum)(1:8)
./pkg/diagnostics/diagnostics_fill_field.F 109 DIAGNOSTICS_FILL_FIELD 
        IF ( parms1(2:2).EQ.'M' ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 112 DIAGNOSTICS_FILL_FIELD 
        ELSEIF ( parms1(2:2).EQ.'U' ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 115 DIAGNOSTICS_FILL_FIELD 
        ELSEIF ( parms1(2:2).EQ.'V' ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 118 DIAGNOSTICS_FILL_FIELD 
        ELSEIF ( parms1(2:2).EQ.'Z' ) THEN
./pkg/diagnostics/diagnostics_fill_field.F 85 DIAGNOSTICS_FILL_FIELD 
      CHARACTER*8 parms1
./pkg/diagnostics/diagnostics_out.F 210 DIAGNOSTICS_OUT 
        parms1 = gdiag(ndId)(1:8)
./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 258 DIAGNOSTICS_OUT 
            IF ( parms1(5:5).EQ.'C' ) THEN
./pkg/diagnostics/diagnostics_out.F 261 DIAGNOSTICS_OUT 
              mate_index = parms1(6:8)
./pkg/diagnostics/diagnostics_out.F 272 DIAGNOSTICS_OUT 
              IF ( parms1(1:1).EQ.'U' .OR. parms1(1:1).EQ.'V' ) THEN
./pkg/diagnostics/diagnostics_out.F 273 DIAGNOSTICS_OUT 
                mate_index = parms1(6:8)
./pkg/diagnostics/diagnostics_out.F 57 DIAGNOSTICS_OUT 
      CHARACTER*8 parms1
./pkg/diagnostics/diagstats_fill.F 89 DIAGSTATS_FILL 
      CHARACTER*8 parms1
./pkg/diagnostics/diagstats_fill.F 98 DIAGSTATS_FILL 
        parms1 = gdiag(ndId)(1:8)
./pkg/diagnostics/diagstats_fill.F 99 DIAGSTATS_FILL 
        IF ( parms1(2:2).EQ.'Z' ) THEN
./pkg/diagnostics/diagstats_setdiag.F 109 DIAGSTATS_SETDIAG 
      IF ( parms1(5:5).EQ.'C') THEN
./pkg/diagnostics/diagstats_setdiag.F 110 DIAGSTATS_SETDIAG 
        mate_index = parms1(6:8)
./pkg/diagnostics/diagstats_setdiag.F 52 DIAGSTATS_SETDIAG 
      CHARACTER*8 parms1
./pkg/diagnostics/diagstats_setdiag.F 61 DIAGSTATS_SETDIAG 
      parms1 = gdiag(ndId)(1:8)
./pkg/diagnostics/diagnostics_fract_fill.F 104 DIAGNOSTICS_FRACT_FILL 
           parms1 = gdiag(ndId)(1:8)
./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 142 DIAGNOSTICS_FRACT_FILL 
           parms1 = gdiag(ndId)(1:8)
./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 83 DIAGNOSTICS_FRACT_FILL 
      CHARACTER*8 parms1
./pkg/diagnostics/diagnostics_setdiag.F 109 DIAGNOSTICS_SETDIAG 
      IF ( parms1(5:5).EQ.'C') THEN
./pkg/diagnostics/diagnostics_setdiag.F 110 DIAGNOSTICS_SETDIAG 
        mate_index = parms1(6:8)
./pkg/diagnostics/diagnostics_setdiag.F 52 DIAGNOSTICS_SETDIAG 
      CHARACTER*8 parms1
./pkg/diagnostics/diagnostics_setdiag.F 61 DIAGNOSTICS_SETDIAG 
      parms1  = gdiag(ndId)(1:8)
./pkg/diagnostics/diagstats_output.F 46 DIAGSTATS_OUTPUT 
      CHARACTER*8 parms1
./pkg/diagnostics/diagstats_output.F 66 DIAGSTATS_OUTPUT 
       parms1 = gdiag(ndId)(1:8)
./pkg/diagnostics/diagstats_output.F 67 DIAGSTATS_OUTPUT 
       IF ( iSdiag(m,listId).NE.0 .AND. parms1(5:5).NE.'D' ) THEN
./pkg/diagnostics/diagstats_output.F 70 DIAGSTATS_OUTPUT 
         IF ( parms1(5:5).EQ.'C' ) THEN
./pkg/diagnostics/diagstats_output.F 73 DIAGSTATS_OUTPUT 
           mate_index = parms1(6:8)