Symbol Description Uses
chardiag Character expression for diag to fill 30


File Line number Procedure Code
./pkg/diagnostics/diag_vegtile_fill.F 11 DIAG_VEGTILE_FILL 
     &                check, chardiag, kLev, nLevs, bi, bj, myThid )
./pkg/diagnostics/diag_vegtile_fill.F 139 DIAG_VEGTILE_FILL 
     &      'for Diagnostics #', ndiagnum, ' : ', chardiag
./pkg/diagnostics/diag_vegtile_fill.F 191 DIAG_VEGTILE_FILL 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 47 DIAG_VEGTILE_FILL 
      CHARACTER*8 chardiag
./pkg/diagnostics/diag_vegtile_fill.F 90 DIAG_VEGTILE_FILL 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill.F 10 DIAGNOSTICS_FILL 
     I               inpFld, chardiag,
./pkg/diagnostics/diagnostics_fill.F 112 DIAGNOSTICS_FILL 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill.F 58 DIAGNOSTICS_FILL 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_fill.F 88 DIAGNOSTICS_FILL 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 10 DIAGNOSTICS_FILL_RS 
     I               inpFld, chardiag,
./pkg/diagnostics/diagnostics_fill_rs.F 112 DIAGNOSTICS_FILL_RS 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 58 DIAGNOSTICS_FILL_RS 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_fill_rs.F 88 DIAGNOSTICS_FILL_RS 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 101 DIAGNOSTICS_FRACT_FILL 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 10 DIAGNOSTICS_FRACT_FILL 
     I               inpFld, fractFld, scaleFact, power, chardiag,
./pkg/diagnostics/diagnostics_fract_fill.F 116 DIAGNOSTICS_FRACT_FILL 
     &            'for diag(#',ndId,' ) :', chardiag
./pkg/diagnostics/diagnostics_fract_fill.F 141 DIAGNOSTICS_FRACT_FILL 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 156 DIAGNOSTICS_FRACT_FILL 
     &            'for diag(#',ndId,' ) :', chardiag
./pkg/diagnostics/diagnostics_fract_fill.F 71 DIAGNOSTICS_FRACT_FILL 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_scale_fill.F 10 DIAGNOSTICS_SCALE_FILL 
     I               inpFld, scaleFact, power, chardiag,
./pkg/diagnostics/diagnostics_scale_fill.F 114 DIAGNOSTICS_SCALE_FILL 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill.F 62 DIAGNOSTICS_SCALE_FILL 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_scale_fill.F 90 DIAGNOSTICS_SCALE_FILL 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 10 DIAGNOSTICS_SCALE_FILL_RS 
     I               inpFld, scaleFact, power, chardiag,
./pkg/diagnostics/diagnostics_scale_fill_rs.F 114 DIAGNOSTICS_SCALE_FILL_RS 
        IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 62 DIAGNOSTICS_SCALE_FILL_RS 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_scale_fill_rs.F 90 DIAGNOSTICS_SCALE_FILL_RS 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN
./pkg/diagnostics/diagnostics_utils.F 120 DIAGNOSTICS_COUNT 
      SUBROUTINE DIAGNOSTICS_COUNT (chardiag,
./pkg/diagnostics/diagnostics_utils.F 145 DIAGNOSTICS_COUNT 
      CHARACTER*8 chardiag
./pkg/diagnostics/diagnostics_utils.F 169 DIAGNOSTICS_COUNT 
        IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN