Symbol Description Uses
DIAGNOSTICS_IS_ON 146


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 201 GAD_ADVECTION 
        doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_advection.F 203 GAD_ADVECTION 
        doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/generic_advdiff/gad_advection.F 205 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 280 GAD_IMPLICIT_R 
        IF ( diagDif ) diagDif = DIAGNOSTICS_IS_ON(diagName,myThid)
./pkg/generic_advdiff/gad_implicit_r.F 283 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 112 GMREDI_CALC_TENSOR 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_calc_tensor.F 138 GMREDI_CALC_TENSOR 
        doDiagRediFlx = DIAGNOSTICS_IS_ON('GM_KuzTz', myThid )
./pkg/gmredi/gmredi_calc_tensor.F 140 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 199 GMREDI_XTRANSPORT 
     &     .AND. DIAGNOSTICS_IS_ON('GM_ubT  ', myThid )
./pkg/gmredi/gmredi_xtransport.F 69 GMREDI_XTRANSPORT 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/gmredi/gmredi_ytransport.F 198 GMREDI_YTRANSPORT 
     &     .AND. DIAGNOSTICS_IS_ON('GM_vbT  ', myThid )
./pkg/gmredi/gmredi_ytransport.F 69 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 363 KPP_OUTPUT 
       IF ( DIAGNOSTICS_IS_ON( 'KPPghatK', myThid ) ) THEN
./pkg/kpp/kpp_output.F 74 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 202 MOM_U_IMPLICIT_R 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/mom_common/mom_u_implicit_r.F 51 MOM_U_IMPLICIT_R 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/mom_common/mom_v_implicit_r.F 202 MOM_V_IMPLICIT_R 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./pkg/mom_common/mom_v_implicit_r.F 51 MOM_V_IMPLICIT_R 
      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
./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 157 PTRACERS_INTEGRATE 
          diagForcing = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/ptracers/ptracers_integrate.F 160 PTRACERS_INTEGRATE 
     &    diagAB_tend = DIAGNOSTICS_IS_ON( diagName, myThid )
./pkg/ptracers/ptracers_integrate.F 65 PTRACERS_INTEGRATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/do_oceanic_phys.F 135 DO_OCEANIC_PHYS 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/do_oceanic_phys.F 155 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) )
./model/src/do_oceanic_phys.F 157 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('DRHODR  ',myThid) )
./model/src/do_oceanic_phys.F 159 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('WdRHO_P ',myThid) )
./model/src/do_oceanic_phys.F 161 DO_OCEANIC_PHYS 
        IF ( DIAGNOSTICS_IS_ON('WdRHOdP ',myThid) )
./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
./pkg/seaice/seaice_diagnostics_state.F 129 SEAICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SIsigI  ',myThid) .OR.
./pkg/seaice/seaice_diagnostics_state.F 130 SEAICE_DIAGNOSTICS_STATE 
     &      DIAGNOSTICS_IS_ON('SIsigII ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 200 SEAICE_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON('SIuheff ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 219 SEAICE_DIAGNOSTICS_STATE 
        IF ( DIAGNOSTICS_IS_ON('SIvheff ',myThid) ) THEN
./pkg/seaice/seaice_diagnostics_state.F 58 SEAICE_DIAGNOSTICS_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/seaice/seaice_diagnostics_state.F 68 SEAICE_DIAGNOSTICS_STATE 
       IF ( DIAGNOSTICS_IS_ON('SItices ',myThid) ) THEN
./pkg/seaice/seaice_growth.F 59 SEAICE_GROWTH 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/impldiff.F 317 IMPLDIFF 
        IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN
./model/src/impldiff.F 79 IMPLDIFF 
      LOGICAL     DIAGNOSTICS_IS_ON
./pkg/shap_filt/shap_filt_apply_uv.F 137 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 158 SALT_INTEGRATE 
     &     diagForcing = DIAGNOSTICS_IS_ON( 'gS_Forc ', myThid )
./model/src/salt_integrate.F 160 SALT_INTEGRATE 
     &     diagAB_tend = DIAGNOSTICS_IS_ON( 'AB_gS   ', myThid )
./model/src/salt_integrate.F 94 SALT_INTEGRATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./model/src/temp_integrate.F 166 TEMP_INTEGRATE 
     &     diagForcing = DIAGNOSTICS_IS_ON( 'gT_Forc ', myThid )
./model/src/temp_integrate.F 168 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 427 AIM_DIAGNOSTICS 
        IF ( DIAGNOSTICS_IS_ON('ENPREC  ',myThid) ) THEN
./pkg/aim_v23/aim_diagnostics.F 51 AIM_DIAGNOSTICS 
      LOGICAL  DIAGNOSTICS_IS_ON
./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 375 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 403 DIAGNOSTICS_FILL_STATE 
      IF ( useFIZHI .AND. DIAGNOSTICS_IS_ON('RELHUM  ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 479 DIAGNOSTICS_FILL_STATE 
     &       ( DIAGNOSTICS_IS_ON('SALTanom',myThid)
./pkg/diagnostics/diagnostics_fill_state.F 480 DIAGNOSTICS_FILL_STATE 
     &     .OR.DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 48 DIAGNOSTICS_FILL_STATE 
      LOGICAL  DIAGNOSTICS_IS_ON
./pkg/diagnostics/diagnostics_fill_state.F 499 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 515 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VVELMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 533 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('UTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 550 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 567 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WTHMASS ',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 584 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('USLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 601 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('VSLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 618 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('WSLTMASS',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 653 DIAGNOSTICS_FILL_STATE 
        IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN
./pkg/diagnostics/diagnostics_fill_state.F 669 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 )