Symbol Description Uses
debugLevel controls printing of algorithm intermediate results 156


File Line number Procedure Code
./model/inc/PARAMS.h 207 NO PROCEDURE 
     &        monitorSelect, debugLevel
./model/inc/PARAMS.h 231 NO PROCEDURE 
      INTEGER debugLevel
./pkg/generic_advdiff/gad_advection.F 687 GAD_ADVECTION 
      IF ( debugLevel .GE. debLevB
./pkg/generic_advdiff/gad_calc_rhs.F 708 GAD_CALC_RHS 
      IF ( debugLevel .GE. debLevB
./pkg/generic_advdiff/gad_som_advect.F 467 GAD_SOM_ADVECT 
       IF ( debugLevel .GE. debLevB
./pkg/layers/layers_init_fixed.F 125 LAYERS_INIT_FIXED 
      IF (debugLevel .GT. 0) THEN
./pkg/longstep/longstep_thermodynamics.F 476 LONGSTEP_THERMODYNAMICS 
      IF ( debugLevel.GE.debLevB ) THEN
./pkg/mdsio/mdsio_gl.F 230 MDSREADFIELD_3D_GL 
          if ( debugLevel .GE. debLevA ) then
./pkg/mdsio/mdsio_gl.F 991 MDSREADFIELD_2D_GL 
          if ( debugLevel .GE. debLevA ) then
./pkg/mdsio/mdsio_gl_slice.F 144 MDSREADFIELD_XZ_GL 
          if ( debugLevel .GE. debLevA ) then
./pkg/mdsio/mdsio_gl_slice.F 371 MDSREADFIELD_YZ_GL 
          if ( debugLevel .GE. debLevA ) then
./pkg/mdsio/mdsio_rd_rec_rl.F 50 MDS_RD_REC_RL 
      IF ( debugLevel.GT.debLevB ) THEN
./pkg/mdsio/mdsio_rd_rec_rs.F 50 MDS_RD_REC_RS 
      IF ( debugLevel.GT.debLevB ) THEN
./pkg/mdsio/mdsio_read_field.F 217 MDS_READ_FIELD 
          IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_field.F 233 MDS_READ_FIELD 
           IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_field.F 446 MDS_READ_FIELD 
            IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_meta.F 183 MDS_READ_META 
        IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 132 MDS_READ_SEC_XZ 
       IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 146 MDS_READ_SEC_XZ 
        IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 177 MDS_READ_SEC_XZ 
          IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 410 MDS_READ_SEC_YZ 
       IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 424 MDS_READ_SEC_YZ 
        IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_read_section.F 455 MDS_READ_SEC_YZ 
          IF ( debugLevel .GE. debLevA ) THEN
./pkg/mdsio/mdsio_readvec_loc.F 175 MDS_READVEC_LOC 
          IF ( debugLevel.GE.debLevB ) THEN
./pkg/mdsio/mdsio_readvector.F 117 MDSREADVECTOR 
       IF ( debugLevel .GE. debLevB ) THEN
./pkg/mdsio/mdsio_readvector.F 131 MDSREADVECTOR 
        IF ( debugLevel .GE. debLevB ) THEN
./pkg/mdsio/mdsio_readvector.F 162 MDSREADVECTOR 
          IF ( debugLevel .GE. debLevB ) THEN
./pkg/mdsio/mdsio_wr_rec_rl.F 50 MDS_WR_REC_RL 
      IF ( debugLevel.GT.debLevB ) THEN
./pkg/mdsio/mdsio_wr_rec_rs.F 50 MDS_WR_REC_RS 
      IF ( debugLevel.GT.debLevB ) THEN
./pkg/mdsio/mdsio_writelocal.F 165 MDS_WRITELOCAL 
        IF ( debugLevel.GE.debLevA .AND. IL.GT.0 ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 178 MDS_WRITEVEC_LOC 
          IF ( debugLevel.GE.debLevB ) THEN
./pkg/mom_vecinv/mom_vecinv.F 706 MOM_VECINV 
      IF ( debugLevel .GE. debLevB
./pkg/obcs/obcs_check.F 43 OBCS_CHECK 
      IF ( debugLevel.GE.debLevA ) THEN
./model/src/cg2d.F 224 CG2D 
      IF ( debugLevel .GE. debLevZero ) THEN
./model/src/cg2d.F 382 CG2D 
       IF ( debugLevel.GT.debLevB ) THEN
./pkg/obcs/obcs_readparms.F 196 OBCS_READPARMS 
      OBCSprintDiags     = debugLevel.GE.debLevB
./pkg/obcs/obcs_readparms.F 322 OBCS_READPARMS 
      IF ( debugLevel.GE.debLevA ) THEN
./model/src/cg2d_nsa.F 267 CG2D_NSA 
      IF ( debugLevel .GE. debLevZero ) THEN
./model/src/cg2d_sr.F 191 CG2D_SR 
      IF ( debugLevel .GE. debLevZero ) THEN
./model/src/cg2d_sr.F 358 CG2D_SR 
       IF ( debugLevel.GT.debLevB ) THEN
./model/src/cg3d.F 243 CG3D 
      IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
./model/src/cg3d.F 248 CG3D 
      IF ( debugLevel .GE. debLevZero ) THEN
./model/src/cg3d.F 516 CG3D 
       IF ( debugLevel.GT.debLevB ) THEN
./model/src/cg3d.F 533 CG3D 
      IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
./model/src/config_summary.F 453 CONFIG_SUMMARY 
      CALL WRITE_0D_I( debugLevel, INDEX_NONE,
./pkg/rbcs/rbcs_init_fixed.F 64 RBCS_INIT_FIXED 
         IF ( debugLevel .GE. debLevB ) THEN
./pkg/rw/read_mflds.F 186 READ_MFLDS_SET 
      IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 312 READ_MFLDS_3D_RL 
          IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 323 READ_MFLDS_3D_RL 
          IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 332 READ_MFLDS_3D_RL 
        IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 439 READ_MFLDS_LEV_RL 
          IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 450 READ_MFLDS_LEV_RL 
          IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 459 READ_MFLDS_LEV_RL 
        IF ( debugLevel.GE.debLevA ) THEN
./pkg/rw/read_mflds.F 592 READ_MFLDS_CHECK 
        IF ( debugLevel .GE. debLevA ) THEN
./pkg/seaice/lsr.F 360 LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/lsr.F 609 LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_advection.F 171 SEAICE_ADVECTION 
      dBug = debugLevel.GE.debLevB
./pkg/seaice/seaice_advection.F 724 SEAICE_ADVECTION 
      IF ( debugLevel .GE. debLevB
./pkg/seaice/seaice_init_varia.F 286 SEAICE_INIT_VARIA 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_lsr.F 490 SEAICE_LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_lsr.F 609 SEAICE_LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_lsr.F 748 SEAICE_LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_lsr.F 854 SEAICE_LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./pkg/seaice/seaice_lsr.F 937 SEAICE_LSR 
      IF ( debugLevel .GE. debLevB ) THEN
./model/src/dynamics.F 692 DYNAMICS 
      IF ( debugLevel .GE. debLevB ) THEN
./model/src/dynamics.F 716 DYNAMICS 
      IF ( debugLevel .GT. debLevB ) THEN
./model/src/external_fields_load.F 304 EXTERNAL_FIELDS_LOAD 
      IF ( debugLevel.GE.debLevA  .AND. myTime.LT.62208000.) THEN
./pkg/thsice/thsice_advdiff.F 132 THSICE_ADVDIFF 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_advection.F 161 THSICE_ADVECTION 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_advection.F 725 THSICE_ADVECTION 
      IF ( debugLevel .GE. debLevB
./pkg/thsice/thsice_diffusion.F 71 THSICE_DIFFUSION 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_get_exf.F 168 THSICE_GET_EXF 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_impl_temp.F 75 THSICE_IMPL_TEMP 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_step_fwd.F 125 THSICE_STEP_FWD 
      dBugFlag = debugLevel.GE.debLevB
./pkg/thsice/thsice_step_temp.F 101 THSICE_STEP_TEMP 
      dBugFlag = debugLevel.GE.debLevB
./model/src/ini_cg3d.F 354 INI_CG3D 
      IF ( debugLevel .GE. debLevB ) THEN
./model/src/ini_curvilinear_grid.F 436 INI_CURVILINEAR_GRID 
      IF ( debugLevel .GE. debLevB ) THEN
./verification/OpenAD/code_oad_all/initialise_fixed.F 178 INITIALISE_FIXED 
      IF ( debugLevel.GE.debLevA .OR.
./model/src/ini_depths.F 141 INI_DEPTHS 
      IF ( debugLevel.GE.debLevB ) THEN
./model/src/ini_depths.F 273 INI_DEPTHS 
      IF ( debugLevel.GE.debLevB ) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 141 INI_DEPTHS 
      IF ( debugLevel.GE.debLevB ) THEN
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 273 INI_DEPTHS 
      IF ( debugLevel.GE.debLevB ) THEN
./model/src/ini_model_io.F 139 INI_MODEL_IO 
      printDomain = debugLevel.GE.debLevA
./model/src/ini_parms.F 1303 INI_PARMS 
      IF ( debugMode ) debugLevel = MAX( debugLevel, debLevB )
./model/src/ini_parms.F 200 INI_PARMS 
     & usePickupBeforeC35, usePickupBeforeC54, debugMode, debugLevel,
./model/src/initialise_fixed.F 171 INITIALISE_FIXED 
      IF ( debugLevel.GE.debLevA .OR.
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 168 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 202 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 378 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 395 THE_MAIN_LOOP 
         IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 427 THE_MAIN_LOOP 
       IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 499 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 514 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 525 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 534 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 543 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 553 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 563 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 574 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 585 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 596 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 622 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 631 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 658 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F 670 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/offline_exf_seaice/code_ad/the_main_loop.F 418 THE_MAIN_LOOP 
      IF ( debugLevel .GE. debLevB )
./verification/offline_exf_seaice/code_ad/the_main_loop.F 429 THE_MAIN_LOOP 
        IF ( debugLevel .GE. debLevB )
./verification/offline_exf_seaice/code_ad/the_main_loop.F 452 THE_MAIN_LOOP 
       IF ( debugLevel .GE. debLevB )
./model/src/packages_check.F 380 PACKAGES_CHECK 
      IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.
./model/src/set_defaults.F 201 SET_DEFAULTS 
      debugLevel          = debLevA
./model/src/solve_for_pressure.F 102 SOLVE_FOR_PRESSURE 
      IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN
./model/src/solve_for_pressure.F 266 SOLVE_FOR_PRESSURE 
      IF ( debugLevel .GE. debLevB ) THEN
./model/src/solve_for_pressure.F 321 SOLVE_FOR_PRESSURE 
      IF ( debugLevel .GE. debLevB ) THEN
./model/src/solve_for_pressure.F 330 SOLVE_FOR_PRESSURE 
       IF ( debugLevel .GE. debLevA ) THEN
./model/src/solve_for_pressure.F 374 SOLVE_FOR_PRESSURE 
       IF ( debugLevel .GE. debLevB ) THEN
./model/src/solve_for_pressure.F 400 SOLVE_FOR_PRESSURE 
        IF ( debugLevel .GE. debLevA ) THEN
./model/src/thermodynamics.F 917 THERMODYNAMICS 
      IF ( debugLevel.GE.debLevB ) THEN
./model/src/update_masks_etc.F 160 UPDATE_MASKS_ETC 
      IF ( debugLevel.GE.debLevB ) THEN
./model/src/update_masks_etc.F 273 UPDATE_MASKS_ETC 
      IF ( debugLevel.GE.debLevB ) THEN
./pkg/autodiff/adread_adwrite.F 144 ADREAD 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/adread_adwrite.F 204 ADREAD 
       if ( debugLevel .GE. debLevB ) then
./pkg/autodiff/adread_adwrite.F 221 ADREAD 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/adread_adwrite.F 312 ADWRITE 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/adread_adwrite.F 335 ADWRITE 
      if ( debugLevel .GE. debLevB ) then
./pkg/autodiff/adread_adwrite.F 367 ADWRITE 
       if ( debugLevel .GE. debLevB ) then
./pkg/autodiff/adread_adwrite.F 384 ADWRITE 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/autodiff_restore.F 485 AUTODIFF_RESTORE 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/autodiff_restore.F 83 AUTODIFF_RESTORE 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/autodiff_store.F 611 AUTODIFF_STORE 
      IF ( debugLevel .GE. debLevB )
./pkg/autodiff/autodiff_store.F 83 AUTODIFF_STORE 
      IF ( debugLevel .GE. debLevB )
./pkg/diagnostics/diagnostics_out.F 381 DIAGNOSTICS_OUT 
            IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN
./pkg/diagnostics/diagnostics_set_levels.F 176 DIAGNOSTICS_SET_LEVELS 
      IF ( debugLevel.GE.debLevA .AND. myProcId.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_summary.F 50 DIAGNOSTICS_SUMMARY 
      IF ( debugLevel.GE.debLevA ) THEN
./pkg/diagnostics/diagnostics_summary.F 73 DIAGNOSTICS_SUMMARY 
      IF ( outpSummary .AND. debugLevel.GE.debLevA ) THEN
./pkg/diagnostics/diagnostics_switch_onoff.F 153 DIAGNOSTICS_SWITCH_ONOFF 
        dBugFlag = debugLevel.GT.debLevB
./pkg/diagnostics/diagnostics_switch_onoff.F 64 DIAGNOSTICS_SWITCH_ONOFF 
      dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1
./pkg/diagnostics/diagnostics_write.F 133 DIAGNOSTICS_WRITE 
          IF ( debugLevel.GE.debLevB ) THEN
./pkg/diagnostics/diagstats_output.F 118 DIAGSTATS_OUTPUT 
            IF ( debugLevel .GE. debLevA ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 285 DWNSLP_INIT_FIXED 
      IF ( debugLevel .GE. debLevA ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 301 DWNSLP_INIT_FIXED 
        IF ( debugLevel .GE. debLevA ) THEN
./pkg/ecco/cost_averagesfields.F 127 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 154 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 171 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 192 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 208 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 403 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 417 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 427 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 451 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 461 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 472 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/ecco/cost_averagesfields.F 547 COST_AVERAGESFIELDS 
      IF ( debugLevel .GE. debLevB )
./pkg/exf/exf_getforcing.F 247 EXF_GETFORCING 
     &     ( myiter.EQ.niter0 .OR. debugLevel.GE.debLevB ) ) then
./pkg/exf/exf_interp.F 193 EXF_INTERP 
        if ( debugLevel .ge. debLevB ) then
./pkg/exf/exf_interp_read.F 116 EXF_INTERP_READ 
         IF ( debugLevel .GT. debLevA ) THEN