Symbol Description Uses
DIAGNOSTICS_IS_ON 159


File Line number Procedure Code
./pkg/fizhi/fizhi_tendency_apply.F 128 FIZHI_TENDENCY_APPLY_V 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/fizhi/fizhi_tendency_apply.F 147 FIZHI_TENDENCY_APPLY_V 
      IF ( DIAGNOSTICS_IS_ON('DIABVDYN',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 159 FIZHI_TENDENCY_APPLY_V 
      IF ( DIAGNOSTICS_IS_ON('RFV     ',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 210 FIZHI_TENDENCY_APPLY_T 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/fizhi/fizhi_tendency_apply.F 240 FIZHI_TENDENCY_APPLY_T 
      IF ( DIAGNOSTICS_IS_ON('DIABTDYN',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 260 FIZHI_TENDENCY_APPLY_T 
      IF ( DIAGNOSTICS_IS_ON('RFT     ',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 318 FIZHI_TENDENCY_APPLY_S 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/fizhi/fizhi_tendency_apply.F 329 FIZHI_TENDENCY_APPLY_S 
      IF ( DIAGNOSTICS_IS_ON('DIABQDYN',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 45 FIZHI_TENDENCY_APPLY_U 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/fizhi/fizhi_tendency_apply.F 64 FIZHI_TENDENCY_APPLY_U 
      IF ( DIAGNOSTICS_IS_ON('DIABUDYN',myThid) ) THEN
./pkg/fizhi/fizhi_tendency_apply.F 76 FIZHI_TENDENCY_APPLY_U 
      IF ( DIAGNOSTICS_IS_ON('RFU     ',myThid) ) THEN
./pkg/generic_advdiff/gad_advection.F 205 GAD_ADVECTION 
        doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_advection.F 207 GAD_ADVECTION 
        doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_advection.F 209 GAD_ADVECTION 
        doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_advection.F 93 GAD_ADVECTION 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/generic_advdiff/gad_diagnostics_state.F 111 GAD_DIAGNOSTICS_STATE 
      IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN
./pkg/generic_advdiff/gad_diagnostics_state.F 39 GAD_DIAGNOSTICS_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/generic_advdiff/gad_diagnostics_state.F 66 GAD_DIAGNOSTICS_STATE 
      IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN
./pkg/generic_advdiff/gad_implicit_r.F 293 GAD_IMPLICIT_R 
        IF ( diagDif ) diagDif = DIAGNOSTICS_IS_ON(diagName,myThid)
./pkg/generic_advdiff/gad_implicit_r.F 296 GAD_IMPLICIT_R 
        IF ( diagAdv ) diagAdv = DIAGNOSTICS_IS_ON(diagName,myThid)
./pkg/generic_advdiff/gad_implicit_r.F 59 GAD_IMPLICIT_R 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/generic_advdiff/gad_som_advect.F 149 GAD_SOM_ADVECT 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/generic_advdiff/gad_som_advect.F 162 GAD_SOM_ADVECT 
        doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_som_advect.F 164 GAD_SOM_ADVECT 
        doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_som_advect.F 166 GAD_SOM_ADVECT 
        doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 115 GMREDI_CALC_TENSOR 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_calc_tensor.F 141 GMREDI_CALC_TENSOR 
        doDiagRediFlx = DIAGNOSTICS_IS_ON('GM_KuzTz', myThid )
./pkg/gmredi/gmredi_calc_tensor.F 143 GMREDI_CALC_TENSOR 
     &                  DIAGNOSTICS_IS_ON('GM_KvzTz', myThid )
./pkg/gmredi/gmredi_diagnostics_fill.F 30 GMREDI_DIAGNOSTICS_FILL 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_diagnostics_fill.F 75 GMREDI_DIAGNOSTICS_FILL 
       IF ( DIAGNOSTICS_IS_ON('GMEdTauX',myThid) ) THEN
./pkg/gmredi/gmredi_diagnostics_fill.F 89 GMREDI_DIAGNOSTICS_FILL 
       IF ( DIAGNOSTICS_IS_ON('GMEdTauY',myThid) ) THEN
./pkg/gmredi/gmredi_diagnostics_impl.F 35 GMREDI_DIAGNOSTICS_IMPL 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_diagnostics_impl.F 53 GMREDI_DIAGNOSTICS_IMPL 
       IF ( DIAGNOSTICS_IS_ON('GM_KwzTz', myThid ) ) THEN
./pkg/gmredi/gmredi_xtransport.F 214 GMREDI_XTRANSPORT 
     &     .AND. DIAGNOSTICS_IS_ON('GM_ubT  ', myThid )
./pkg/gmredi/gmredi_xtransport.F 84 GMREDI_XTRANSPORT 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_ytransport.F 212 GMREDI_YTRANSPORT 
     &     .AND. DIAGNOSTICS_IS_ON('GM_vbT  ', myThid )
./pkg/gmredi/gmredi_ytransport.F 83 GMREDI_YTRANSPORT 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/gridalt/gridalt_update.F 70 GRIDALT_UPDATE 
       IF ( DIAGNOSTICS_IS_ON('DPPHYS  ',myThid) ) THEN
./pkg/kpp/kpp_output.F 380 KPP_OUTPUT 
       IF ( DIAGNOSTICS_IS_ON( 'KPPghatK', myThid ) ) THEN
./pkg/kpp/kpp_output.F 77 KPP_OUTPUT 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/calc_gw.F 129 CALC_GW 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/calc_gw.F 137 CALC_GW 
        diagDiss  = DIAGNOSTICS_IS_ON( 'Wm_Diss ', myThid )
./model/src/calc_gw.F 138 CALC_GW 
        diagAdvec = DIAGNOSTICS_IS_ON( 'Wm_Advec', myThid )
./model/src/calc_gw.F 139 CALC_GW 
        diag_AB   = DIAGNOSTICS_IS_ON( 'AB_gW   ', myThid )
./model/src/calc_oce_mxlayer.F 49 CALC_OCE_MXLAYER 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/calc_oce_mxlayer.F 75 CALC_OCE_MXLAYER 
        calcMixLayerDepth = DIAGNOSTICS_IS_ON('MXLDEPTH',myThid)
./pkg/mom_common/mom_u_implicit_r.F 285 MOM_U_IMPLICIT_R 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/mom_common/mom_u_implicit_r.F 63 MOM_U_IMPLICIT_R 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/mom_common/mom_v_implicit_r.F 285 MOM_V_IMPLICIT_R 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/mom_common/mom_v_implicit_r.F 63 MOM_V_IMPLICIT_R 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F 105 CPL_DIAGNOSTICS_FILL 
         IF ( DIAGNOSTICS_IS_ON('CPL_Qic1',myThid) .OR.
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F 106 CPL_DIAGNOSTICS_FILL 
     &        DIAGNOSTICS_IS_ON('CPL_Qic2',myThid) ) THEN
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F 36 CPL_DIAGNOSTICS_FILL 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/diags_oceanic_surf_flux.F 116 DIAGS_OCEANIC_SURF_FLUX 
     &     DIAGNOSTICS_IS_ON('TFLUX   ',myThid) ) THEN
./model/src/diags_oceanic_surf_flux.F 152 DIAGS_OCEANIC_SURF_FLUX 
     &     DIAGNOSTICS_IS_ON('SFLUX   ',myThid) ) THEN
./model/src/diags_oceanic_surf_flux.F 43 DIAGS_OCEANIC_SURF_FLUX 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/diags_rho.F 142 DIAGS_RHO_G 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/diags_rho.F 163 DIAGS_RHO_G 
      IF ( DIAGNOSTICS_IS_ON('URHOMASS',myThid) ) THEN
./model/src/diags_rho.F 180 DIAGS_RHO_G 
      IF ( DIAGNOSTICS_IS_ON('VRHOMASS',myThid) ) THEN
./model/src/diags_rho.F 197 DIAGS_RHO_G 
      IF ( DIAGNOSTICS_IS_ON('WRHOMASS',myThid) ) THEN
./model/src/do_oceanic_phys.F 220 DO_OCEANIC_PHYS 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/do_oceanic_phys.F 240 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) )
./model/src/do_oceanic_phys.F 242 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('DRHODR  ',myThid) )
./model/src/do_oceanic_phys.F 244 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('WdRHO_P ',myThid) )
./model/src/do_oceanic_phys.F 246 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('WdRHOdP ',myThid) )
./pkg/ptracers/ptracers_diagnostics_state.F 108 PTRACERS_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/ptracers/ptracers_diagnostics_state.F 141 PTRACERS_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/ptracers/ptracers_diagnostics_state.F 38 PTRACERS_DIAGNOSTICS_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/ptracers/ptracers_diagnostics_state.F 75 PTRACERS_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/ptracers/ptracers_integrate.F 168 PTRACERS_INTEGRATE 
          diagForcing = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/ptracers/ptracers_integrate.F 171 PTRACERS_INTEGRATE 
     &    diagAB_tend = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/ptracers/ptracers_integrate.F 68 PTRACERS_INTEGRATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/dynamics.F 114 DYNAMICS 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/dynamics.F 250 DYNAMICS 
     &  dPhiHydDiagIsOn = DIAGNOSTICS_IS_ON( 'Um_dPHdx', myThid )
./model/src/dynamics.F 251 DYNAMICS 
     &               .OR. DIAGNOSTICS_IS_ON( 'Vm_dPHdy', myThid )
./pkg/salt_plume/salt_plume_apply.F 144 SALT_PLUME_APPLY 
         doDiagSPtend = DIAGNOSTICS_IS_ON(diagName,myThid)
./pkg/salt_plume/salt_plume_apply.F 85 SALT_PLUME_APPLY 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/impldiff.F 319 IMPLDIFF 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./model/src/impldiff.F 79 IMPLDIFF 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/seaice/seaice_diagnostics_state.F 133 SEAICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SItensil',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 157 SEAICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SIsig1  ',myThid) .OR.
./pkg/seaice/seaice_diagnostics_state.F 158 SEAICE_DIAGNOSTICS_STATE 
     &      DIAGNOSTICS_IS_ON('SIsig2  ',myThid) .OR.
./pkg/seaice/seaice_diagnostics_state.F 159 SEAICE_DIAGNOSTICS_STATE 
     &      DIAGNOSTICS_IS_ON('SIshear ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 258 SEAICE_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON('SIuheff ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 277 SEAICE_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON('SIvheff ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 61 SEAICE_DIAGNOSTICS_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/seaice/seaice_diagnostics_state.F 71 SEAICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SItices ',myThid) ) THEN
./pkg/seaice/seaice_get_dynforcing.F 284 SEAICE_GET_DYNFORCING 
       IF ( DIAGNOSTICS_IS_ON( 'SIatmTx ', myThid ) ) THEN
./pkg/seaice/seaice_get_dynforcing.F 299 SEAICE_GET_DYNFORCING 
       IF ( DIAGNOSTICS_IS_ON( 'SIatmTy ', myThid ) ) THEN
./pkg/seaice/seaice_get_dynforcing.F 43 SEAICE_GET_DYNFORCING 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/seaice/seaice_growth.F 62 SEAICE_GROWTH 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/shap_filt/shap_filt_apply_uv.F 141 SHAP_FILT_APPLY_UV 
           diag_dKE = DIAGNOSTICS_IS_ON('SHAP_dKE',myThid)
./pkg/shap_filt/shap_filt_apply_uv.F 54 SHAP_FILT_APPLY_UV 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/thsice/thsice_advdiff.F 167 THSICE_ADVDIFF 
        IF ( DIAGNOSTICS_IS_ON('SI_AdvQ1',myThid) .OR.
./pkg/thsice/thsice_advdiff.F 168 THSICE_ADVDIFF 
     &       DIAGNOSTICS_IS_ON('SI_AdvQ2',myThid) ) THEN
./pkg/thsice/thsice_advdiff.F 556 THSICE_ADVDIFF 
        IF ( DIAGNOSTICS_IS_ON('SI_AdvQ1',myThid) .OR.
./pkg/thsice/thsice_advdiff.F 557 THSICE_ADVDIFF 
     &       DIAGNOSTICS_IS_ON('SI_AdvQ2',myThid) ) THEN
./pkg/thsice/thsice_advdiff.F 99 THSICE_ADVDIFF 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/thsice/thsice_diagnostics_state.F 41 THSICE_DIAGNOSTICS_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/thsice/thsice_diagnostics_state.F 76 THSICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SI_Qice1',myThid) .OR.
./pkg/thsice/thsice_diagnostics_state.F 77 THSICE_DIAGNOSTICS_STATE 
     &      DIAGNOSTICS_IS_ON('SI_Qice2',myThid) ) THEN
./model/src/salt_integrate.F 166 SALT_INTEGRATE 
     &     diagForcing = DIAGNOSTICS_IS_ON( 'gS_Forc ', myThid )
./model/src/salt_integrate.F 168 SALT_INTEGRATE 
     &     diagAB_tend = DIAGNOSTICS_IS_ON( 'AB_gS   ', myThid )
./model/src/salt_integrate.F 94 SALT_INTEGRATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/solve_for_pressure.F 347 SOLVE_FOR_PRESSURE 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./model/src/solve_for_pressure.F 43 SOLVE_FOR_PRESSURE 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/temp_integrate.F 174 TEMP_INTEGRATE 
     &     diagForcing = DIAGNOSTICS_IS_ON( 'gT_Forc ', myThid )
./model/src/temp_integrate.F 176 TEMP_INTEGRATE 
     &     diagAB_tend = DIAGNOSTICS_IS_ON( 'AB_gT   ', myThid )
./model/src/temp_integrate.F 97 TEMP_INTEGRATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/aim_v23/aim_aim2dyn.F 69 AIM_AIM2DYN 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/aim_v23/aim_aim2dyn.F 80 AIM_AIM2DYN 
        physTendDiag = DIAGNOSTICS_IS_ON( 'DIABT   ', myThid )
./pkg/aim_v23/aim_aim2dyn.F 81 AIM_AIM2DYN 
     &            .OR. DIAGNOSTICS_IS_ON( 'DIABQ   ', myThid )
./pkg/aim_v23/aim_diagnostics.F 436 AIM_DIAGNOSTICS 
        IF ( DIAGNOSTICS_IS_ON('ENPREC  ',myThid) ) THEN
./pkg/aim_v23/aim_diagnostics.F 51 AIM_DIAGNOSTICS 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/atm_compon_interf/cpl_diagnostics_fill.F 36 CPL_DIAGNOSTICS_FILL 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/atm_compon_interf/cpl_diagnostics_fill.F 80 CPL_DIAGNOSTICS_FILL 
         IF ( DIAGNOSTICS_IS_ON('CPL_Qic1',myThid) .OR.
./pkg/atm_compon_interf/cpl_diagnostics_fill.F 81 CPL_DIAGNOSTICS_FILL 
     &        DIAGNOSTICS_IS_ON('CPL_Qic2',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 108 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UE_VEL_C',myThid) .OR.
./pkg/diagnostics/diagnostics_fill_state.F 109 DIAGNOSTICS_FILL_STATE 
     &       DIAGNOSTICS_IS_ON('VN_VEL_C',myThid) .OR.
./pkg/diagnostics/diagnostics_fill_state.F 110 DIAGNOSTICS_FILL_STATE 
     &       DIAGNOSTICS_IS_ON('UV_VEL_C',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 135 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UV_VEL_Z',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 152 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WU_VEL  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 172 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WV_VEL  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 194 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UVELTH  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 210 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VVELTH  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 226 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WVELTH  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 243 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UVELSLT ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 259 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VVELSLT ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 275 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WVELSLT ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 292 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UVELPHI ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 308 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VVELPHI ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 324 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('RCENTER ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 359 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 380 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 413 DIAGNOSTICS_FILL_STATE 
      IF ( useFIZHI .AND. DIAGNOSTICS_IS_ON('RELHUM  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 489 DIAGNOSTICS_FILL_STATE 
     &       ( DIAGNOSTICS_IS_ON('SALTanom',myThid)
./pkg/diagnostics/diagnostics_fill_state.F 48 DIAGNOSTICS_FILL_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/diagnostics/diagnostics_fill_state.F 490 DIAGNOSTICS_FILL_STATE 
     &     .OR.DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 509 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 525 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VVELMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 543 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 560 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 577 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 594 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('USLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 611 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VSLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 628 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WSLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 663 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 684 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 69 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('RSURF   ',myThid) ) THEN
./pkg/diagnostics/diagnostics_is_on.F 12 NO PROCEDURE 
      LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/diagnostics/diagnostics_is_on.F 39 NO PROCEDURE 
      DIAGNOSTICS_IS_ON = .FALSE.
./pkg/diagnostics/diagnostics_is_on.F 48 NO PROCEDURE 
          IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/diagnostics/diagnostics_is_on.F 53 NO PROCEDURE 
      IF ( .NOT.DIAGNOSTICS_IS_ON ) THEN
./pkg/diagnostics/diagnostics_is_on.F 60 NO PROCEDURE 
           IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/down_slope/dwnslp_apply.F 118 DWNSLP_APPLY 
        doDiagDwnSlpTend = DIAGNOSTICS_IS_ON(diagName,myThid)
./pkg/down_slope/dwnslp_apply.F 66 DWNSLP_APPLY 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/down_slope/dwnslp_calc_flow.F 67 DWNSLP_CALC_FLOW 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/down_slope/dwnslp_calc_flow.F 81 DWNSLP_CALC_FLOW 
        doDiagDwnSlpFlow = DIAGNOSTICS_IS_ON( 'DSLPuFlw', myThid )
./pkg/down_slope/dwnslp_calc_flow.F 82 DWNSLP_CALC_FLOW 
     &                .OR. DIAGNOSTICS_IS_ON( 'DSLPvFlw', myThid )