Symbol Description Uses
diag_pkgStatus internal parameter to track status of this pkg settings pkg is not used ; = 1 :: user params are loaded early initialisation is done (enable to add diags to list) diagnostics setting is done (no more diags to add to list) storage is initialised (init_varia) ready for active section (filling diagnostics & output) active section is over (end of the run) 21


File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 44 NO PROCEDURE 
      INTEGER  diag_pkgStatus
./pkg/diagnostics/DIAGNOSTICS.h 46 NO PROCEDURE 
     &  diag_pkgStatus
./pkg/diagnostics/diagnostics_addtolist.F 63 DIAGNOSTICS_ADDTOLIST 
      IF ( diag_pkgStatus.NE.ready2setDiags ) THEN
./pkg/diagnostics/diagnostics_fill.F 76 DIAGNOSTICS_FILL 
      IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 76 DIAGNOSTICS_FILL_RS 
      IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 91 DIAGNOSTICS_FRACT_FILL 
      IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
./pkg/diagnostics/diagnostics_init_early.F 87 DIAGNOSTICS_INIT_EARLY 
      diag_pkgStatus = ready2setDiags
./pkg/diagnostics/diagnostics_init_varia.F 36 DIAGNOSTICS_INIT_VARIA 
       diag_pkgStatus = 10
./pkg/diagnostics/diagnostics_readparms.F 115 DIAGNOSTICS_READPARMS 
         diag_pkgStatus = -1
./pkg/diagnostics/diagnostics_readparms.F 191 DIAGNOSTICS_READPARMS 
      diag_pkgStatus = 1
./pkg/diagnostics/diagnostics_scale_fill.F 79 DIAGNOSTICS_SCALE_FILL 
      IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 79 DIAGNOSTICS_SCALE_FILL_RS 
      IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 80 DIAGNOSTICS_SET_LEVELS 
      diag_pkgStatus = 3
./pkg/diagnostics/diagnostics_status_error.F 59 DIAGNOSTICS_STATUS_ERROR 
     &     ', pkgStatus=',  diag_pkgStatus, ' : ', errMsg
./pkg/diagnostics/diagnostics_status_error.F 64 DIAGNOSTICS_STATUS_ERROR 
     &     expectStatus, ', pkgStatus=', diag_pkgStatus
./pkg/diagnostics/diagnostics_status_error.F 68 DIAGNOSTICS_STATUS_ERROR 
      IF ( diag_pkgStatus.EQ.-1 ) THEN
./pkg/diagnostics/diagnostics_status_error.F 74 DIAGNOSTICS_STATUS_ERROR 
      ELSEIF ( diag_pkgStatus.GT.expectStatus ) THEN
./pkg/diagnostics/diagnostics_status_error.F 97 DIAGNOSTICS_STATUS_ERROR 
      ELSEIF ( diag_pkgStatus.GE.1 ) THEN
./pkg/diagnostics/diagnostics_switch_onoff.F 73 DIAGNOSTICS_SWITCH_ONOFF 
        diag_pkgStatus = ready2fillDiags
./pkg/diagnostics/diagnostics_utils.F 348 DIAGNOSTICS_SETKLEV 
      IF ( diag_pkgStatus.NE.ready2setDiags ) THEN
./pkg/diagnostics/diagnostics_write.F 155 DIAGNOSTICS_WRITE 
          diag_pkgStatus = 99