Symbol Description Uses
diagnostics_is_on 180


File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 205 GWDRAG 
      if(diagnostics_is_on('GWDU    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 214 GWDRAG 
      if(diagnostics_is_on('GWDV    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 223 GWDRAG 
      if(diagnostics_is_on('GWDT    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 236 GWDRAG 
      if(diagnostics_is_on('GWDUS   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 242 GWDRAG 
      if(diagnostics_is_on('GWDVS   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 248 GWDRAG 
      if(diagnostics_is_on('GWDUT   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 271 GWDRAG 
      if(diagnostics_is_on('GWDVT   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 82 GWDRAG 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_lwrad.F 281 LWRIO 
      if(diagnostics_is_on('TGRLW   ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 287 LWRIO 
       if(diagnostics_is_on('TLW     ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 296 LWRIO 
       if(diagnostics_is_on('SHRAD   ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 305 LWRIO 
       if(diagnostics_is_on('OZLW    ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 316 LWRIO 
      if(diagnostics_is_on('OLR     ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 320 LWRIO 
      if(diagnostics_is_on('OLRCLR  ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 75 LWRIO 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_moist.F 1129 MOISTIO 
      if(diagnostics_is_on('CLDTMP  ',myid) .and.
./pkg/fizhi/fizhi_moist.F 1130 MOISTIO 
     .                 diagnostics_is_on('CTTCNT  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 1146 MOISTIO 
      if(diagnostics_is_on('CLDPRS  ',myid) .and.
./pkg/fizhi/fizhi_moist.F 1147 MOISTIO 
     .                 diagnostics_is_on('CTPCNTC ',myid) ) then
./pkg/fizhi/fizhi_moist.F 146 MOISTIO 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_moist.F 848 MOISTIO 
      if(diagnostics_is_on('PSUBCLD ',myid) .and.
./pkg/fizhi/fizhi_moist.F 849 MOISTIO 
     .                 diagnostics_is_on('PSUBCLDC',myid) ) then
./pkg/fizhi/fizhi_moist.F 856 MOISTIO 
      if(diagnostics_is_on('CLDNP   ',myid) ) then
./pkg/fizhi/fizhi_moist.F 869 MOISTIO 
      if(diagnostics_is_on('MOISTT  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 883 MOISTIO 
      if(diagnostics_is_on('MOISTQ  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 896 MOISTIO 
      if(diagnostics_is_on('MOISTU  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 909 MOISTIO 
      if(diagnostics_is_on('MOISTV  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 922 MOISTIO 
      if(diagnostics_is_on('CLDMAS  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 936 MOISTIO 
      if(diagnostics_is_on('DTRAIN  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 950 MOISTIO 
      if(diagnostics_is_on('DTLS    ',myid) ) then
./pkg/fizhi/fizhi_moist.F 964 MOISTIO 
      if(diagnostics_is_on('DQLS    ',myid) ) then
./pkg/fizhi/fizhi_moist.F 978 MOISTIO 
      if(diagnostics_is_on('PREACC  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 990 MOISTIO 
      if(diagnostics_is_on('PRECON  ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 102 RAYLEIGH 
      if(diagnostics_is_on('RFU     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 111 RAYLEIGH 
      if(diagnostics_is_on('RFV     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 120 RAYLEIGH 
      if(diagnostics_is_on('RFT     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 50 RAYLEIGH 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_step_diag.F 102 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSRCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 113 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('PLALBEDO',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 128 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGUP   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 140 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 152 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 167 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABU   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 178 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABV   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 189 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABT   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 205 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABQ   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 218 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 232 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 246 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 259 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 272 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('UWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 283 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 294 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TMPU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 305 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TKE     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 316 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SPHU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 331 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTMOIST',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 355 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTTURB ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 379 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADLW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 404 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADSW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 429 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TPW     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 45 FIZHI_STEP_DIAG 
      LOGICAL  diagnostics_is_on
./pkg/fizhi/fizhi_step_diag.F 69 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 80 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 91 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSR     ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 234 SWRIO 
      if(diagnostics_is_on('CLDFRC  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 238 SWRIO 
      if(diagnostics_is_on('CLDRAS  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 249 SWRIO 
      if(diagnostics_is_on('CLDTOT  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 260 SWRIO 
      if(diagnostics_is_on('CLDLOW  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 264 SWRIO 
      if(diagnostics_is_on('CLDMID  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 268 SWRIO 
      if(diagnostics_is_on('CLDHI   ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 272 SWRIO 
      if(diagnostics_is_on('LZRAD   ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 285 SWRIO 
      if(diagnostics_is_on('ALBVISDR',myid) ) then
./pkg/fizhi/fizhi_swrad.F 289 SWRIO 
      if(diagnostics_is_on('ALBVISDF',myid) ) then
./pkg/fizhi/fizhi_swrad.F 293 SWRIO 
      if(diagnostics_is_on('ALBNIRDR',myid) ) then
./pkg/fizhi/fizhi_swrad.F 297 SWRIO 
      if(diagnostics_is_on('ALBNIRDF',myid) ) then
./pkg/fizhi/fizhi_swrad.F 317 SWRIO 
      if(diagnostics_is_on('TAUAVE  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 328 SWRIO 
      if(diagnostics_is_on('TAUCLD  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 329 SWRIO 
     .                 diagnostics_is_on('TAUCLDC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 349 SWRIO 
      if(diagnostics_is_on('TAULOW  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 350 SWRIO 
     .                 diagnostics_is_on('TAULOWC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 368 SWRIO 
      if(diagnostics_is_on('TAUMID  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 369 SWRIO 
     .                 diagnostics_is_on('TAUMIDC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 387 SWRIO 
      if(diagnostics_is_on('TAUHI   ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 388 SWRIO 
     .                 diagnostics_is_on('TAUHIC  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 510 SWRIO 
      if(diagnostics_is_on('ALBEDO  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 511 SWRIO 
     .                 diagnostics_is_on('ALBEDOC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 93 SWRIO 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_turb.F 1003 TURBIO 
      if(diagnostics_is_on('VFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1007 TURBIO 
      if(diagnostics_is_on('USTAR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1011 TURBIO 
      if(diagnostics_is_on('Z0      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1015 TURBIO 
      if(diagnostics_is_on('FRQTRB  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1019 TURBIO 
      if(diagnostics_is_on('PBL     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1023 TURBIO 
      if(diagnostics_is_on('U2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1027 TURBIO 
      if(diagnostics_is_on('V2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1031 TURBIO 
      if(diagnostics_is_on('T2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1035 TURBIO 
      if(diagnostics_is_on('Q2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1046 TURBIO 
      if(diagnostics_is_on('U10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1050 TURBIO 
      if(diagnostics_is_on('V10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1054 TURBIO 
      if(diagnostics_is_on('T10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1058 TURBIO 
      if(diagnostics_is_on('Q10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1074 TURBIO 
      if(diagnostics_is_on('TDEEP   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1078 TURBIO 
      if(diagnostics_is_on('QCANOPY ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1082 TURBIO 
      if(diagnostics_is_on('SMSHAL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1086 TURBIO 
      if(diagnostics_is_on('SMROOT  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1090 TURBIO 
      if(diagnostics_is_on('SMDEEP  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1094 TURBIO 
      if(diagnostics_is_on('CAPACITY',myid) ) then
./pkg/fizhi/fizhi_turb.F 1098 TURBIO 
      if(diagnostics_is_on('SNOW    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1202 TURBIO 
      if(diagnostics_is_on('TS      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1223 TURBIO 
      if(diagnostics_is_on('TURBT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 164 TURBIO 
      logical  diagnostics_is_on
./pkg/fizhi/fizhi_turb.F 427 TURBIO 
      if(diagnostics_is_on('QICE    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 534 TURBIO 
      if(diagnostics_is_on('QG      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 584 TURBIO 
      if(diagnostics_is_on('DTSRF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 674 TURBIO 
      if(diagnostics_is_on('SNOWFALL',myid) ) then
./pkg/fizhi/fizhi_turb.F 681 TURBIO 
      if(diagnostics_is_on('RAINCON ',myid) ) then
./pkg/fizhi/fizhi_turb.F 688 TURBIO 
      if(diagnostics_is_on('RAINLSP ',myid) ) then
./pkg/fizhi/fizhi_turb.F 695 TURBIO 
      if(diagnostics_is_on('GREEN   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 699 TURBIO 
      if(diagnostics_is_on('LAI     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 703 TURBIO 
      if(diagnostics_is_on('PARDR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 707 TURBIO 
      if(diagnostics_is_on('PARDF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 711 TURBIO 
      if(diagnostics_is_on('DLWDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 715 TURBIO 
      if(diagnostics_is_on('DHDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 719 TURBIO 
      if(diagnostics_is_on('DEDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 723 TURBIO 
      if(diagnostics_is_on('DHDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 727 TURBIO 
      if(diagnostics_is_on('DEDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 731 TURBIO 
      if(diagnostics_is_on('LWGDOWN ',myid) ) then
./pkg/fizhi/fizhi_turb.F 768 TURBIO 
      if(diagnostics_is_on('RUNOFF  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 772 TURBIO 
      if(diagnostics_is_on('FWSOIL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 776 TURBIO 
      if(diagnostics_is_on('GDRAIN  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 780 TURBIO 
      if(diagnostics_is_on('SNOWMELT',myid) ) then
./pkg/fizhi/fizhi_turb.F 784 TURBIO 
      if(diagnostics_is_on('EVEG    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 788 TURBIO 
      if(diagnostics_is_on('ESNOW   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 792 TURBIO 
      if(diagnostics_is_on('ESOIL   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 796 TURBIO 
      if(diagnostics_is_on('ERESV   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 800 TURBIO 
      if(diagnostics_is_on('EVPOT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 804 TURBIO 
      if(diagnostics_is_on('DTC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 808 TURBIO 
      if(diagnostics_is_on('DQC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 812 TURBIO 
      if(diagnostics_is_on('TCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 816 TURBIO 
      if(diagnostics_is_on('RADDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 820 TURBIO 
      if(diagnostics_is_on('SENSDTC ',myid) ) then
./pkg/fizhi/fizhi_turb.F 824 TURBIO 
      if(diagnostics_is_on('LATDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 828 TURBIO 
      if(diagnostics_is_on('TDDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 832 TURBIO 
      if(diagnostics_is_on('QCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 928 TURBIO 
      if(diagnostics_is_on('EVAP    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 935 TURBIO 
      if(diagnostics_is_on('EFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 942 TURBIO 
      if(diagnostics_is_on('HFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 949 TURBIO 
      if(diagnostics_is_on('TUFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 953 TURBIO 
      if(diagnostics_is_on('TVFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 957 TURBIO 
      if(diagnostics_is_on('TTFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 966 TURBIO 
      if(diagnostics_is_on('TQFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 975 TURBIO 
      if(diagnostics_is_on('RI      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 979 TURBIO 
      if(diagnostics_is_on('KH      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 983 TURBIO 
      if(diagnostics_is_on('KM      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 987 TURBIO 
      if(diagnostics_is_on('CT      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 991 TURBIO 
      if(diagnostics_is_on('CU      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 995 TURBIO 
      if(diagnostics_is_on('WINDS   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 999 TURBIO 
      if(diagnostics_is_on('UFLUX   ',myid) ) then
./pkg/fizhi/fizhi_wrapper.F 111 FIZHI_WRAPPER 
       if(diagnostics_is_on('TENDTFIZ',myThid) .or.
./pkg/fizhi/fizhi_wrapper.F 112 FIZHI_WRAPPER 
     &       diagnostics_is_on('CORRDT  ',myThid) ) then
./pkg/fizhi/fizhi_wrapper.F 132 FIZHI_WRAPPER 
       if(diagnostics_is_on('TENDQFIZ',myThid) .or.
./pkg/fizhi/fizhi_wrapper.F 133 FIZHI_WRAPPER 
     &       diagnostics_is_on('CORRDQ  ',myThid) ) then
./pkg/fizhi/fizhi_wrapper.F 208 FIZHI_WRAPPER 
       if(diagnostics_is_on('FIZPRES ',myThid) ) then
./pkg/fizhi/fizhi_wrapper.F 234 FIZHI_WRAPPER 
       if(diagnostics_is_on('SLP     ',myThid) ) then
./pkg/fizhi/fizhi_wrapper.F 39 FIZHI_WRAPPER 
       LOGICAL  diagnostics_is_on
./pkg/fizhi/fizhi_wrapper.F 69 FIZHI_WRAPPER 
       if(diagnostics_is_on('TENDUFIZ',myThid) .or.
./pkg/fizhi/fizhi_wrapper.F 70 FIZHI_WRAPPER 
     &       diagnostics_is_on('CORRDU  ',myThid) ) then
./pkg/fizhi/fizhi_wrapper.F 90 FIZHI_WRAPPER 
       if(diagnostics_is_on('TENDVFIZ',myThid) .or.
./pkg/fizhi/fizhi_wrapper.F 91 FIZHI_WRAPPER 
     &       diagnostics_is_on('CORRDV  ',myThid) ) then
./pkg/fizhi/step_fizhi_corr.F 284 STEP_FIZHI_CORR 
       if(diagnostics_is_on('TENDUFIZ',myThid) ) then
./pkg/fizhi/step_fizhi_corr.F 296 STEP_FIZHI_CORR 
       if(diagnostics_is_on('TENDVFIZ',myThid) ) then
./pkg/fizhi/step_fizhi_corr.F 308 STEP_FIZHI_CORR 
       if(diagnostics_is_on('TENDTFIZ',myThid) ) then
./pkg/fizhi/step_fizhi_corr.F 320 STEP_FIZHI_CORR 
       if(diagnostics_is_on('TENDQFIZ',myThid) ) then
./pkg/fizhi/step_fizhi_corr.F 336 STEP_FIZHI_CORR 
      if(diagnostics_is_on('CORRDU  ',myThid) .or.
./pkg/fizhi/step_fizhi_corr.F 337 STEP_FIZHI_CORR 
     .    diagnostics_is_on('CORRDV  ',myThid)   ) then
./pkg/fizhi/step_fizhi_corr.F 38 STEP_FIZHI_CORR 
      logical  diagnostics_is_on
./pkg/fizhi/step_fizhi_corr.F 408 STEP_FIZHI_CORR 
      if(diagnostics_is_on('CORRDU  ',myThid)) then
./pkg/fizhi/step_fizhi_corr.F 411 STEP_FIZHI_CORR 
      if(diagnostics_is_on('CORRDV  ',myThid)) then
./pkg/fizhi/step_fizhi_corr.F 419 STEP_FIZHI_CORR 
      if(diagnostics_is_on('CORRDT  ',myThid))  then
./pkg/fizhi/step_fizhi_corr.F 466 STEP_FIZHI_CORR 
      if(diagnostics_is_on('CORRDQ  ',myThid))  then
./pkg/gridalt/gridalt_update.F 32 GRIDALT_UPDATE 
       logical  diagnostics_is_on