Symbol Description Uses
useDiagnostics 226


File Line number Procedure Code
./pkg/exf/exf_diagnostics_fill.F 32 EXF_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./pkg/exf/exf_init_fixed.F 616 EXF_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/inc/PARAMS.h 1052 NO PROCEDURE 
      LOGICAL useDiagnostics
./model/inc/PARAMS.h 1070 NO PROCEDURE 
     &        useDiagnostics, useREGRID, useLayers, useMNC,
./pkg/fizhi/fizhi_init_fixed.F 78 FIZHI_INIT_FIXED 
       if ( useDiagnostics ) then
./pkg/fizhi/fizhi_wrapper.F 207 FIZHI_WRAPPER 
      if ( useDiagnostics ) then
./pkg/fizhi/fizhi_wrapper.F 233 FIZHI_WRAPPER 
      if ( useDiagnostics ) then
./pkg/fizhi/fizhi_wrapper.F 68 FIZHI_WRAPPER 
      if ( useDiagnostics ) then
./pkg/frazil/frazil_calc_rhs.F 109 FRAZIL_CALC_RHS 
      IF ( useDiagnostics ) THEN
./pkg/frazil/frazil_init_fixed.F 28 FRAZIL_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/gchem/gchem_forcing_sep.F 78 GCHEM_FORCING_SEP 
      IF ( useDiagnostics ) THEN
./pkg/gchem/gchem_init_fixed.F 65 GCHEM_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_advection.F 202 GAD_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 163 GAD_CALC_RHS 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 285 GAD_CALC_RHS 
        IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 334 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 425 GAD_CALC_RHS 
        IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 474 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 591 GAD_CALC_RHS 
       IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 643 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 695 GAD_CALC_RHS 
       IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_implicit_r.F 289 GAD_IMPLICIT_R 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_init_fixed.F 194 GAD_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_som_advect.F 159 GAD_SOM_ADVECT 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/salt_fill.F 112 SALT_FILL 
        IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/salt_fill.F 74 SALT_FILL 
        IF (useDiagnostics)THEN
./pkg/ggl90/ggl90_calc.F 776 GGL90_CALC 
      IF ( useDiagnostics ) THEN
./pkg/ggl90/ggl90_idemix.F 433 GGL90_IDEMIX 
      IF ( useDiagnostics ) THEN
./pkg/ggl90/ggl90_init_fixed.F 44 GGL90_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_eigs.F 393 GMREDI_CALC_EIGS 
      IF ( useDiagnostics.AND.writediag ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F 246 GMREDI_CALC_PSI_BVP 
       IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 1099 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 140 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 585 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics .AND. GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_diagnostics_fill.F 47 GMREDI_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_diagnostics_impl.F 50 GMREDI_DIAGNOSTICS_IMPL 
      IF ( useDiagnostics .AND. implicitDiffusion .AND.
./pkg/gmredi/gmredi_init_fixed.F 98 GMREDI_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_k3d.F 1098 GMREDI_K3D 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_k3d.F 1150 GMREDI_K3D 
      IF ( useDiagnostics )
./pkg/gmredi/gmredi_residual_flow.F 124 GMREDI_RESIDUAL_FLOW 
       IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_xtransport.F 213 GMREDI_XTRANSPORT 
      IF ( useDiagnostics
./pkg/gmredi/gmredi_ytransport.F 211 GMREDI_YTRANSPORT 
      IF ( useDiagnostics
./pkg/gmredi/submeso_calc_psi.F 181 SUBMESO_CALC_PSI 
       IF ( useDiagnostics ) THEN
./pkg/gmredi/submeso_calc_psi.F 224 SUBMESO_CALC_PSI 
       IF ( useDiagnostics ) THEN
./pkg/gridalt/gridalt_initialise.F 62 GRIDALT_INITIALISE 
      if ( useDiagnostics ) then
./pkg/gridalt/gridalt_update.F 69 GRIDALT_UPDATE 
       if(useDiagnostics) then
./pkg/icefront/icefront_init_fixed.F 125 ICEFRONT_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/icefront/icefront_thermodynamics.F 190 ICEFRONT_THERMODYNAMICS 
         IF ( useDiagnostics ) THEN
./model/src/apply_forcing.F 617 APPLY_FORCING_T 
        IF ( useDiagnostics ) THEN
./pkg/kl10/kl10_init_fixed.F 60 KL10_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/kl10/kl10_output.F 175 KL10_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./pkg/kpp/kpp_forcing_surf.F 261 KPP_FORCING_SURF 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_init_fixed.F 190 KPP_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_output.F 376 KPP_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./pkg/kpp/kpp_routines.F 1823 STATEKPP 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_routines.F 1985 KPP_DOUBLEDIFF 
       IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_routines.F 580 BLDEPTH 
      IF ( useDiagnostics ) THEN
./pkg/land/land_diagnostics_state.F 51 LAND_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/land/land_do_diags.F 87 LAND_DO_DIAGS 
      IF ( useDiagnostics ) THEN
./pkg/land/land_init_fixed.F 47 LAND_INIT_FIXED 
      IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid )
./model/src/calc_eddy_stress.F 97 CALC_EDDY_STRESS 
        IF ( useDiagnostics ) THEN
./pkg/layers/layers_calc.F 303 LAYERS_CALC 
       IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_init_fixed.F 172 LAYERS_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/longstep/longstep_average.F 183 LONGSTEP_AVERAGE 
       IF ( useDiagnostics ) THEN
./pkg/longstep/longstep_init_fixed.F 56 LONGSTEP_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/calc_gw.F 136 CALC_GW 
      IF ( useDiagnostics ) THEN
./model/src/calc_gw.F 694 CALC_GW 
      IF (useDiagnostics) THEN
./model/src/calc_oce_mxlayer.F 217 CALC_OCE_MXLAYER 
       IF ( useDiagnostics ) THEN
./model/src/calc_oce_mxlayer.F 74 CALC_OCE_MXLAYER 
      IF ( useDiagnostics.AND. .NOT.calcMixLayerDepth ) THEN
./pkg/mom_common/mom_calc_visc.F 592 MOM_CALC_VISC 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_init_fixed.F 163 MOM_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/mom_common/mom_u_bottomdrag.F 194 MOM_U_BOTTOMDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_u_implicit_r.F 283 MOM_U_IMPLICIT_R 
      IF ( useDiagnostics .AND. implicitViscosity ) THEN
./pkg/mom_common/mom_u_sidedrag.F 151 MOM_U_SIDEDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_v_bottomdrag.F 194 MOM_V_BOTTOMDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_v_implicit_r.F 283 MOM_V_IMPLICIT_R 
      IF ( useDiagnostics .AND. implicitViscosity ) THEN
./pkg/mom_common/mom_v_sidedrag.F 138 MOM_V_SIDEDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_w_sidedrag.F 135 MOM_W_SIDEDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_fluxform/mom_fluxform.F 323 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 455 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 553 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 688 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 785 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 884 MOM_FLUXFORM 
        IF ( useDiagnostics )
./pkg/mom_fluxform/mom_fluxform.F 894 MOM_FLUXFORM 
        IF ( useDiagnostics )
./pkg/mom_fluxform/mom_fluxform.F 929 MOM_FLUXFORM 
      IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 644 MOM_VECINV 
       IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 749 MOM_VECINV 
       IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 770 MOM_VECINV 
        IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 906 MOM_VECINV 
      IF ( useDiagnostics ) THEN
./pkg/my82/my82_init_fixed.F 69 MY82_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/my82/my82_output.F 236 MY82_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./model/src/convective_adjustment.F 218 CONVECTIVE_ADJUSTMENT 
          IF ( myIter.NE.nIter0 .AND. useDiagnostics ) THEN
./pkg/mypackage/mypackage_diagnostics_state.F 40 MYPACKAGE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/mypackage/mypackage_init_fixed.F 38 MYPACKAGE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F 48 CPL_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./pkg/ocn_compon_interf/cpl_init_fixed.F 116 CPL_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/diags_phi_hyd.F 124 DIAGS_PHI_HYD 
       IF ( useDiagnostics .AND. myIter.GE.0 ) THEN
./model/src/do_oceanic_phys.F 1168 DO_OCEANIC_PHYS 
      IF ( fluidIsWater .AND. useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1173 DO_OCEANIC_PHYS 
      IF ( useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1176 DO_OCEANIC_PHYS 
      IF ( calcConvect .AND. useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1181 DO_OCEANIC_PHYS 
      IF ( useDiagnostics )
./model/src/do_oceanic_phys.F 239 DO_OCEANIC_PHYS 
      IF ( useDiagnostics .AND. fluidIsWater ) THEN
./pkg/pp81/pp81_init_fixed.F 59 PP81_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/pp81/pp81_output.F 174 PP81_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./model/src/do_the_model_io.F 270 DO_THE_MODEL_IO 
      IF ( useDiagnostics )
./pkg/ptracers/ptracers_forcing_surf.F 104 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./pkg/ptracers/ptracers_init_fixed.F 164 PTRACERS_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/ptracers/ptracers_integrate.F 165 PTRACERS_INTEGRATE 
        IF ( useDiagnostics ) THEN
./model/src/dynamics.F 249 DYNAMICS 
      IF ( useDiagnostics )
./model/src/dynamics.F 687 DYNAMICS 
      IF ( useDiagnostics ) THEN
./model/src/external_forcing.F 489 EXTERNAL_FORCING_T 
        IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_apply.F 123 SALT_PLUME_APPLY 
         IF ( useDiagnostics ) diagSufx = '_TH '
./pkg/salt_plume/salt_plume_apply.F 131 SALT_PLUME_APPLY 
         IF ( useDiagnostics ) diagSufx = '_SLT'
./pkg/salt_plume/salt_plume_apply.F 138 SALT_PLUME_APPLY 
        IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_diagnostics_fill.F 31 SALT_PLUME_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./model/src/forcing_surf_relax.F 245 FORCING_SURF_RELAX 
      IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_init_fixed.F 34 SALT_PLUME_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F 160 SALT_PLUME_TENDENCY_APPLY_S 
      IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_t.F 70 SALT_PLUME_TENDENCY_APPLY_T 
      IF ( useDiagnostics ) THEN
./pkg/salt_plume/salt_plume_volfrac.F 179 SALT_PLUME_VOLFRAC 
      IF ( useDiagnostics ) THEN
./model/src/forward_step.F 1023 FORWARD_STEP 
        IF ( useDiagnostics ) THEN
./model/src/forward_step.F 1124 FORWARD_STEP 
      IF ( useDiagnostics ) THEN
./model/src/forward_step.F 469 FORWARD_STEP 
      IF ( useDiagnostics ) THEN
./pkg/seaice/dynsolver.F 296 DYNSOLVER 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_advection.F 179 SEAICE_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_advection.F 747 SEAICE_ADVECTION 
        IF ( useDiagnostics ) THEN
./model/src/impldiff.F 303 IMPLDIFF 
      IF ( useDiagnostics .AND.tracerId.NE.0 ) THEN
./pkg/seaice/seaice_diagnostics_state.F 64 SEAICE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_diffusion.F 103 SEAICE_DIFFUSION 
        IF ( useDiagnostics .AND. diffKh.NE.0. ) THEN
./pkg/seaice/seaice_diffusion.F 75 SEAICE_DIFFUSION 
       IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_evp.F 496 SEAICE_EVP 
          IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_get_dynforcing.F 281 SEAICE_GET_DYNFORCING 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2295 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2511 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2695 SEAICE_GROWTH 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 568 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 911 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_init_fixed.F 221 SEAICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_model.F 273 SEAICE_MODEL 
       IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_mom_advection.F 226 SEAICE_MOM_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_mom_advection.F 246 SEAICE_MOM_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_mom_advection.F 262 SEAICE_MOM_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_reg_ridge.F 392 SEAICE_REG_RIDGE 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_tracer_phys.F 194 SEAICE_TRACER_PHYS 
      IF ( useDiagnostics .AND. SItrMate(iTr).EQ.'HEFF') THEN
./pkg/shap_filt/shap_filt_apply_ts.F 125 SHAP_FILT_APPLY_TS 
     &                         .AND. useDiagnostics ) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 174 SHAP_FILT_APPLY_TS 
     &                         .AND. useDiagnostics ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 133 SHAP_FILT_APPLY_UV 
     &       ( addFrictionHeating .OR. useDiagnostics ) ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 136 SHAP_FILT_APPLY_UV 
         IF ( useDiagnostics ) THEN
./pkg/shap_filt/shap_filt_init_fixed.F 36 SHAP_FILT_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/shelfice/shelfice_init_fixed.F 201 SHELFICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/shelfice/shelfice_step_icemass.F 95 SHELFICE_STEP_ICEMASS 
      IF (useDiagnostics) THEN
./pkg/shelfice/shelfice_thermodynamics.F 592 SHELFICE_THERMODYNAMICS 
      IF ( useDiagnostics ) THEN
./pkg/shelfice/shelfice_u_drag.F 186 SHELFICE_U_DRAG 
      IF ( useDiagnostics .AND.
./pkg/shelfice/shelfice_v_drag.F 186 SHELFICE_V_DRAG 
      IF ( useDiagnostics .AND.
./pkg/streamice/streamice_diagnostics_state.F 85 STREAMICE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/streamice/streamice_init_fixed.F 62 STREAMICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_advdiff.F 156 THSICE_ADVDIFF 
      IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_advdiff.F 327 THSICE_ADVDIFF 
        IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_advdiff.F 376 THSICE_ADVDIFF 
        IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_advdiff.F 433 THSICE_ADVDIFF 
        IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_advdiff.F 545 THSICE_ADVDIFF 
      IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_ave.F 126 THSICE_AVE 
      IF ( useDiagnostics ) THEN
./model/src/ini_model_io.F 232 INI_MODEL_IO 
      IF ( useDiagnostics ) CALL DIAGNOSTICS_INI_IO( myThid )
./pkg/thsice/thsice_diagnostics_state.F 52 THSICE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_init_fixed.F 43 THSICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/thsice/thsice_step_fwd.F 183 THSICE_STEP_FWD 
      IF ( useDiagnostics ) THEN
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 402 AIM_SURF_BC 
      IF ( useDiagnostics ) THEN
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 65 FIZHI_INIT_FIXED 
       if ( useDiagnostics ) then
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 65 FIZHI_INIT_FIXED 
       if ( useDiagnostics ) then
./model/src/packages_boot.F 157 PACKAGES_BOOT 
      useDiagnostics  =.FALSE.
./model/src/packages_boot.F 390 PACKAGES_BOOT 
      CALL PACKAGES_PRINT_MSG( useDiagnostics,'Diagnostics', ' ' )
./model/src/packages_boot.F 93 PACKAGES_BOOT 
     &          useDiagnostics,
./model/src/packages_check.F 429 PACKAGES_CHECK 
      IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
./model/src/packages_check.F 431 PACKAGES_CHECK 
      IF (useDiagnostics)
./model/src/packages_init_fixed.F 163 PACKAGES_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/packages_init_fixed.F 644 PACKAGES_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/packages_init_variables.F 136 PACKAGES_INIT_VARIABLES 
      IF ( useDiagnostics ) THEN
./model/src/packages_write_pickup.F 215 PACKAGES_WRITE_PICKUP 
      IF (useDiagnostics) THEN
./verification/rotating_tank/code/apply_forcing.F 620 APPLY_FORCING_T 
        IF ( useDiagnostics ) THEN
./model/src/salt_integrate.F 165 SALT_INTEGRATE 
      IF ( useDiagnostics .AND. saltForcing )
./model/src/salt_integrate.F 167 SALT_INTEGRATE 
      IF ( useDiagnostics .AND. AdamsBashforthGs )
./model/src/solve_for_pressure.F 345 SOLVE_FOR_PRESSURE 
      IF ( useDiagnostics .AND. implicSurfPress.NE.oneRL ) THEN
./model/src/solve_for_pressure.F 361 SOLVE_FOR_PRESSURE 
      ELSEIF ( useDiagnostics ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 107 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 102 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 102 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./model/src/temp_integrate.F 173 TEMP_INTEGRATE 
      IF ( useDiagnostics .AND. tempForcing )
./model/src/temp_integrate.F 175 TEMP_INTEGRATE 
      IF ( useDiagnostics .AND. AdamsBashforthGt )
./model/src/thermodynamics.F 363 THERMODYNAMICS 
        IF ( addFrictionHeating .AND. useDiagnostics ) THEN
./model/src/timestep.F 190 TIMESTEP 
      IF ( useDiagnostics ) THEN
./model/src/timestep.F 382 TIMESTEP 
      IF ( momViscosity .AND. useDiagnostics ) THEN
./model/src/timestep.F 386 TIMESTEP 
      IF ( momForcing .AND. useDiagnostics ) THEN
./model/src/timestep.F 391 TIMESTEP 
      IF ( useCDscheme .AND. useDiagnostics ) THEN
./model/src/turnoff_model_io.F 95 TURNOFF_MODEL_IO 
      useDiagnostics = .FALSE.
./pkg/aim_v23/aim_aim2dyn.F 79 AIM_AIM2DYN 
      IF (useDiagnostics) THEN
./pkg/aim_v23/aim_diagnostics.F 385 AIM_DIAGNOSTICS 
       IF ( useDiagnostics ) THEN
./pkg/aim_v23/aim_do_physics.F 151 AIM_DO_PHYSICS 
        CALL PHY_DRIVER( tYear, useDiagnostics,
./pkg/aim_v23/aim_initialise.F 130 AIM_INITIALISE 
      IF ( useDiagnostics ) THEN
./pkg/aim_v23/aim_surf_bc.F 370 AIM_SURF_BC 
      IF ( useDiagnostics ) THEN
./pkg/aim_v23/phy_radiat.F 142 SOL_OZ 
      IF ( useDiagnostics ) THEN
./pkg/aim_v23/phy_radiat.F 492 RADSW 
      IF ( useDiagnostics ) THEN
./pkg/atm_compon_interf/cpl_diagnostics_fill.F 48 CPL_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./pkg/atm_compon_interf/cpl_init_fixed.F 32 CPL_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 168 ATM_PHYS_DRIVER 
        IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 230 ATM_PHYS_DRIVER 
          IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 278 ATM_PHYS_DRIVER 
        IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 443 ATM_PHYS_DRIVER 
        IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_init_fixed.F 162 ATM_PHYS_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/bbl/bbl_diagnostics_state.F 36 BBL_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/bbl/bbl_init_fixed.F 31 BBL_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_airseaflux.F 319 BLING_AIRSEAFLUX 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_light.F 225 BLING_LIGHT 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_main.F 265 BLING_MAIN 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_production.F 848 BLING_PROD 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_remineralization.F 379 BLING_REMIN 
      IF ( useDiagnostics ) THEN
./pkg/bling/bling_sgs.F 76 BLING_SGS 
      IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml.F 108 CHEAPAML 
      IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml.F 559 CHEAPAML 
        IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml.F 723 CHEAPAML 
      IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml_init_fixed.F 286 CHEAPAML_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/diagnostics/diagnostics_readparms.F 111 DIAGNOSTICS_READPARMS 
      IF ( .NOT.useDiagnostics ) THEN
./pkg/dic/dic_biotic_forcing.F 428 DIC_BIOTIC_FORCING 
      IF ( useDiagnostics ) THEN
./pkg/down_slope/dwnslp_apply.F 106 DWNSLP_APPLY 
       IF ( useDiagnostics ) THEN
./pkg/down_slope/dwnslp_calc_flow.F 80 DWNSLP_CALC_FLOW 
      IF ( useDiagnostics ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 339 DWNSLP_INIT_FIXED 
      IF ( useDiagnostics ) THEN