Symbol Description Uses
useDiagnostics 203


File Line number Procedure Code
./pkg/exf/exf_diagnostics_fill.F 32 EXF_DIAGNOSTICS_FILL 
      IF ( useDiagnostics ) THEN
./pkg/exf/exf_init_fixed.F 543 EXF_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/inc/PARAMS.h 1009 NO PROCEDURE 
     &        useDiagnostics, useREGRID, useLayers, useMNC,
./model/inc/PARAMS.h 992 NO PROCEDURE 
      LOGICAL useDiagnostics
./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 66 GCHEM_FORCING_SEP 
      IF ( useDiagnostics ) THEN
./pkg/gchem/gchem_init_fixed.F 60 GCHEM_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_advection.F 198 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 328 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 418 GAD_CALC_RHS 
        IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 461 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 577 GAD_CALC_RHS 
       IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 624 GAD_CALC_RHS 
      IF ( useDiagnostics .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 675 GAD_CALC_RHS 
       IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_implicit_r.F 276 GAD_IMPLICIT_R 
      IF ( useDiagnostics ) THEN
./pkg/generic_advdiff/gad_init_fixed.F 188 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 657 GGL90_CALC 
      IF ( useDiagnostics ) THEN
./pkg/ggl90/ggl90_init_fixed.F 41 GGL90_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_eigs.F 395 GMREDI_CALC_EIGS 
      IF ( useDiagnostics.AND.writediag ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F 244 GMREDI_CALC_PSI_BVP 
       IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 1049 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 137 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 569 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 1090 GMREDI_K3D 
      IF ( useDiagnostics ) THEN
./pkg/gmredi/gmredi_k3d.F 1141 GMREDI_K3D 
      IF ( useDiagnostics )
./pkg/gmredi/gmredi_xtransport.F 198 GMREDI_XTRANSPORT 
      IF ( useDiagnostics
./pkg/gmredi/gmredi_ytransport.F 197 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 91 ICEFRONT_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/icefront/icefront_thermodynamics.F 190 ICEFRONT_THERMODYNAMICS 
         IF ( useDiagnostics ) THEN
./pkg/kl10/kl10_init_fixed.F 60 KL10_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/kl10/kl10_output.F 167 KL10_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./pkg/kpp/kpp_forcing_surf.F 258 KPP_FORCING_SURF 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_init_fixed.F 190 KPP_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_output.F 359 KPP_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./pkg/kpp/kpp_routines.F 1740 STATEKPP 
      IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_routines.F 1902 KPP_DOUBLEDIFF 
       IF ( useDiagnostics ) THEN
./pkg/kpp/kpp_routines.F 556 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/apply_forcing.F 603 APPLY_FORCING_T 
        IF ( useDiagnostics ) THEN
./pkg/layers/layers_calc.F 242 LAYERS_CALC 
       IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_init_fixed.F 154 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 587 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 124 MOM_U_BOTTOMDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_u_implicit_r.F 200 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 124 MOM_V_BOTTOMDRAG 
      IF (useDiagnostics) THEN
./pkg/mom_common/mom_v_implicit_r.F 200 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 322 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 454 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 552 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 681 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 778 MOM_FLUXFORM 
        IF ( useDiagnostics ) THEN
./pkg/mom_fluxform/mom_fluxform.F 871 MOM_FLUXFORM 
        IF ( useDiagnostics )
./pkg/mom_fluxform/mom_fluxform.F 881 MOM_FLUXFORM 
        IF ( useDiagnostics )
./pkg/mom_fluxform/mom_fluxform.F 916 MOM_FLUXFORM 
      IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 524 MOM_VECINV 
       IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 603 MOM_VECINV 
       IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 624 MOM_VECINV 
        IF ( useDiagnostics ) THEN
./pkg/mom_vecinv/mom_vecinv.F 760 MOM_VECINV 
      IF ( useDiagnostics ) THEN
./pkg/my82/my82_init_fixed.F 69 MY82_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/my82/my82_output.F 228 MY82_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) 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
./model/src/convective_adjustment.F 218 CONVECTIVE_ADJUSTMENT 
          IF ( myIter.NE.nIter0 .AND. useDiagnostics ) THEN
./pkg/pp81/pp81_init_fixed.F 59 PP81_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/diags_phi_hyd.F 124 DIAGS_PHI_HYD 
       IF ( useDiagnostics .AND. myIter.GE.0 ) THEN
./pkg/pp81/pp81_output.F 166 PP81_OUTPUT 
      IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN
./pkg/ptracers/ptracers_forcing_surf.F 104 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./pkg/ptracers/ptracers_init_fixed.F 159 PTRACERS_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/ptracers/ptracers_integrate.F 154 PTRACERS_INTEGRATE 
        IF ( useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1053 DO_OCEANIC_PHYS 
      IF ( fluidIsWater .AND. useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1058 DO_OCEANIC_PHYS 
      IF ( useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1061 DO_OCEANIC_PHYS 
      IF ( calcConvect .AND. useDiagnostics ) THEN
./model/src/do_oceanic_phys.F 1066 DO_OCEANIC_PHYS 
      IF ( useDiagnostics )
./model/src/do_oceanic_phys.F 154 DO_OCEANIC_PHYS 
      IF ( useDiagnostics .AND. fluidIsWater ) THEN
./model/src/do_the_model_io.F 215 DO_THE_MODEL_IO 
      IF ( useDiagnostics )
./model/src/dynamics.F 249 DYNAMICS 
      IF ( useDiagnostics )
./model/src/dynamics.F 684 DYNAMICS 
      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/external_forcing.F 490 EXTERNAL_FORCING_T 
        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
./pkg/seaice/dynsolver.F 293 DYNSOLVER 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_advection.F 176 SEAICE_ADVECTION 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_advection.F 744 SEAICE_ADVECTION 
        IF ( useDiagnostics ) THEN
./model/src/forcing_surf_relax.F 245 FORCING_SURF_RELAX 
      IF ( useDiagnostics ) THEN
./model/src/forward_step.F 341 FORWARD_STEP 
      IF ( useDiagnostics ) THEN
./model/src/forward_step.F 875 FORWARD_STEP 
        IF ( useDiagnostics ) THEN
./model/src/forward_step.F 976 FORWARD_STEP 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_diagnostics_state.F 61 SEAICE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_diffusion.F 100 SEAICE_DIFFUSION 
        IF ( useDiagnostics .AND. diffKh.NE.0. ) THEN
./pkg/seaice/seaice_diffusion.F 72 SEAICE_DIFFUSION 
       IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_evp.F 306 SEAICE_EVP 
          IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2257 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2471 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 2655 SEAICE_GROWTH 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 550 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_growth.F 893 SEAICE_GROWTH 
        IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_init_fixed.F 221 SEAICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_model.F 266 SEAICE_MODEL 
       IF ( useDiagnostics ) THEN
./pkg/seaice/seaice_reg_ridge.F 389 SEAICE_REG_RIDGE 
        IF ( useDiagnostics ) THEN
./model/src/impldiff.F 301 IMPLDIFF 
      IF ( useDiagnostics .AND.tracerId.NE.0 ) 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 122 SHAP_FILT_APPLY_TS 
     &                         .AND. useDiagnostics ) THEN
./pkg/shap_filt/shap_filt_apply_ts.F 167 SHAP_FILT_APPLY_TS 
     &                         .AND. useDiagnostics ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 129 SHAP_FILT_APPLY_UV 
     &       ( addFrictionHeating .OR. useDiagnostics ) ) THEN
./pkg/shap_filt/shap_filt_apply_uv.F 132 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 152 SHELFICE_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 530 SHELFICE_THERMODYNAMICS 
      IF ( useDiagnostics ) THEN
./pkg/shelfice/shelfice_u_drag.F 92 SHELFICE_U_DRAG 
      IF (useDiagnostics) THEN
./pkg/shelfice/shelfice_v_drag.F 92 SHELFICE_V_DRAG 
      IF (useDiagnostics) THEN
./pkg/streamice/streamice_diagnostics_state.F 37 STREAMICE_DIAGNOSTICS_STATE 
      IF ( useDiagnostics ) THEN
./pkg/streamice/streamice_init_fixed.F 58 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
./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 153 PACKAGES_BOOT 
      useDiagnostics  =.FALSE.
./model/src/packages_boot.F 341 PACKAGES_BOOT 
      CALL PACKAGES_PRINT_MSG( useDiagnostics,'Diagnostics', ' ' )
./model/src/packages_boot.F 91 PACKAGES_BOOT 
     &          useDiagnostics,
./model/src/packages_check.F 356 PACKAGES_CHECK 
      IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
./model/src/packages_check.F 358 PACKAGES_CHECK 
      IF (useDiagnostics)
./model/src/packages_init_fixed.F 163 PACKAGES_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/packages_init_fixed.F 630 PACKAGES_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./model/src/packages_init_variables.F 139 PACKAGES_INIT_VARIABLES 
      IF ( useDiagnostics ) THEN
./model/src/packages_write_pickup.F 173 PACKAGES_WRITE_PICKUP 
      IF (useDiagnostics) THEN
./verification/rotating_tank/code/apply_forcing.F 620 APPLY_FORCING_T 
        IF ( useDiagnostics ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 103 PTRACERS_FORCING_SURF 
        IF ( useDiagnostics ) THEN
./model/src/salt_integrate.F 157 SALT_INTEGRATE 
      IF ( useDiagnostics .AND. saltForcing )
./model/src/salt_integrate.F 159 SALT_INTEGRATE 
      IF ( useDiagnostics .AND. AdamsBashforthGs )
./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 165 TEMP_INTEGRATE 
      IF ( useDiagnostics .AND. tempForcing )
./model/src/temp_integrate.F 167 TEMP_INTEGRATE 
      IF ( useDiagnostics .AND. AdamsBashforthGt )
./model/src/timestep.F 190 TIMESTEP 
      IF ( useDiagnostics ) THEN
./model/src/timestep.F 382 TIMESTEP 
      IF ( momForcing .AND. useDiagnostics ) THEN
./model/src/timestep.F 387 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 376 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 490 RADSW 
      IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 157 ATM_PHYS_DRIVER 
      IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 274 ATM_PHYS_DRIVER 
        IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 319 ATM_PHYS_DRIVER 
      IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_driver.F 475 ATM_PHYS_DRIVER 
      IF ( useDiagnostics ) THEN
./pkg/atm_phys/atm_phys_init_fixed.F 143 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/cheapaml/cheapaml.F 129 CHEAPAML 
      IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml.F 642 CHEAPAML 
        IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml.F 770 CHEAPAML 
      IF ( useDiagnostics ) THEN
./pkg/cheapaml/cheapaml_init_fixed.F 39 CHEAPAML_INIT_FIXED 
      IF ( useDiagnostics ) THEN
./pkg/diagnostics/diagnostics_readparms.F 107 DIAGNOSTICS_READPARMS 
      IF ( .NOT.useDiagnostics ) THEN
./pkg/dic/dic_biotic_forcing.F 340 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