Symbol Description Uses
debugMode controls printing of debug msg (sequence of S/R calls). 279


File Line number Procedure Code
./model/inc/PARAMS.h 400 NO PROCEDURE 
     & debugMode, printDomain,
./model/inc/PARAMS.h 488 NO PROCEDURE 
      LOGICAL debugMode, printDomain
./pkg/longstep/longstep_thermodynamics.F 129 LONGSTEP_THERMODYNAMICS 
      IF (debugMode) CALL DEBUG_ENTER('LONGSTEP_THERMODYNAMICS',myThid)
./pkg/longstep/longstep_thermodynamics.F 271 LONGSTEP_THERMODYNAMICS 
          IF (debugMode) CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid)
./pkg/longstep/longstep_thermodynamics.F 280 LONGSTEP_THERMODYNAMICS 
        IF (debugMode) CALL DEBUG_MSG(
./pkg/longstep/longstep_thermodynamics.F 495 LONGSTEP_THERMODYNAMICS 
      IF (debugMode) CALL DEBUG_LEAVE('LONGSTEP_THERMODYNAMICS',myThid)
./model/src/calc_r_star.F 309 CALC_R_STAR 
      IF (debugMode) CALL DEBUG_LEAVE('CALC_R_STAR',myThid)
./model/src/calc_r_star.F 75 CALC_R_STAR 
      IF (debugMode) CALL DEBUG_ENTER('CALC_R_STAR',myThid)
./pkg/obcs/obcs_calc.F 135 OBCS_CALC 
      IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: West',myThid)
./pkg/obcs/obcs_calc.F 187 OBCS_CALC 
      IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: North',myThid)
./pkg/obcs/obcs_calc.F 222 OBCS_CALC 
      IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: South',myThid)
./pkg/obcs/obcs_calc.F 269 OBCS_CALC 
       IF (debugMode)
./pkg/obcs/obcs_calc.F 301 OBCS_CALC 
       IF (debugMode)
./pkg/obcs/obcs_calc.F 333 OBCS_CALC 
       IF (debugMode)
./pkg/obcs/obcs_calc.F 365 OBCS_CALC 
       IF (debugMode)
./pkg/obcs/obcs_calc.F 405 OBCS_CALC 
        IF (debugMode) CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid)
./pkg/obcs/obcs_calc.F 422 OBCS_CALC 
       IF (debugMode) CALL DEBUG_CALL('OBCS_CALC_STEVENS',myThid)
./pkg/obcs/obcs_calc.F 434 OBCS_CALC 
       IF (debugMode) CALL DEBUG_MSG('useOBCSbalance=.TRUE.',myThid)
./pkg/obcs/obcs_calc.F 591 OBCS_CALC 
      IF (debugMode) CALL DEBUG_LEAVE('OBCS_CALC',myThid)
./pkg/obcs/obcs_calc.F 64 OBCS_CALC 
      IF (debugMode) CALL DEBUG_ENTER('OBCS_CALC',myThid)
./pkg/obcs/obcs_calc.F 83 OBCS_CALC 
      IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: East',myThid)
./pkg/obcs/obcs_calc_stevens.F 110 OBCS_CALC_STEVENS 
      IF (debugMode) CALL DEBUG_ENTER('OBCS_CALC_STEVENS',myThid)
./pkg/obcs/obcs_calc_stevens.F 129 OBCS_CALC_STEVENS 
         IF (debugMode)
./pkg/obcs/obcs_calc_stevens.F 276 OBCS_CALC_STEVENS 
         IF (debugMode)
./pkg/obcs/obcs_calc_stevens.F 423 OBCS_CALC_STEVENS 
         IF (debugMode)
./pkg/obcs/obcs_calc_stevens.F 459 OBCS_CALC_STEVENS 
         IF (debugMode)
./pkg/obcs/obcs_calc_stevens.F 638 OBCS_CALC_STEVENS 
         IF (debugMode) CALL DEBUG_LEAVE('OBCS_CALC_STEVENS',myThid)
./pkg/obcs/obcs_init_variables.F 321 OBCS_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_CALL('ORLANSKI_INIT',myThid)
./pkg/obcs/obcs_init_variables.F 340 OBCS_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)
./pkg/obcs/obcs_init_variables.F 348 OBCS_INIT_VARIABLES 
       IF (debugMode)
./pkg/obcs/obcs_init_variables.F 362 OBCS_INIT_VARIABLES 
        IF (debugMode)
./pkg/obcs/obcs_init_variables.F 396 OBCS_INIT_VARIABLES 
        IF (debugMode)
./pkg/obcs/obcs_init_variables.F 418 OBCS_INIT_VARIABLES 
         IF (debugMode) CALL DEBUG_CALL(
./pkg/obcs/obcs_init_variables.F 440 OBCS_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_LEAVE('OBCS_INIT_VARIABLES',myThid)
./pkg/obcs/obcs_init_variables.F 50 OBCS_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_ENTER('OBCS_INIT_VARIABLES',myThid)
./model/src/config_summary.F 447 CONFIG_SUMMARY 
      CALL WRITE_0D_L( debugMode,  INDEX_NONE,
./pkg/ptracers/ptracers_advection.F 89 PTRACERS_ADVECTION 
         IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
./model/src/do_atmospheric_phys.F 43 DO_ATMOSPHERIC_PHYS 
      IF (debugMode) CALL DEBUG_ENTER('DO_ATMOSPHERIC_PHYS',myThid)
./model/src/do_atmospheric_phys.F 63 DO_ATMOSPHERIC_PHYS 
        IF (debugMode) CALL DEBUG_CALL('AIM_DO_PHYSICS',myThid)
./model/src/do_atmospheric_phys.F 74 DO_ATMOSPHERIC_PHYS 
      IF (debugMode) CALL DEBUG_LEAVE('DO_ATMOSPHERIC_PHYS',myThid)
./model/src/do_oceanic_phys.F 121 DO_OCEANIC_PHYS 
      IF (debugMode) CALL DEBUG_ENTER('DO_OCEANIC_PHYS',myThid)
./model/src/do_oceanic_phys.F 155 DO_OCEANIC_PHYS 
       IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)
./model/src/do_oceanic_phys.F 237 DO_OCEANIC_PHYS 
        IF (debugMode) CALL DEBUG_CALL('SEAICE_MODEL',myThid)
./model/src/do_oceanic_phys.F 262 DO_OCEANIC_PHYS 
        IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid)
./model/src/do_oceanic_phys.F 279 DO_OCEANIC_PHYS 
       IF (debugMode) CALL DEBUG_CALL('SHELFICE_THERMODYNAMICS',myThid)
./model/src/do_oceanic_phys.F 294 DO_OCEANIC_PHYS 
       IF (debugMode) CALL DEBUG_CALL('ICEFRONT_THERMODYNAMICS',myThid)
./model/src/do_oceanic_phys.F 444 DO_OCEANIC_PHYS 
        IF (debugMode) CALL DEBUG_MSG('ENTERING UPWARD K LOOP',myThid)
./model/src/do_oceanic_phys.F 461 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('FIND_RHO_2D',myThid)
./model/src/do_oceanic_phys.F 519 DO_OCEANIC_PHYS 
            IF (debugMode) CALL DEBUG_CALL('GRAD_SIGMA',myThid)
./model/src/do_oceanic_phys.F 547 DO_OCEANIC_PHYS 
            IF (debugMode) CALL DEBUG_CALL('CALC_IVDC',myThid)
./model/src/do_oceanic_phys.F 598 DO_OCEANIC_PHYS 
        IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FORCING_SURF',myThid)
./model/src/do_oceanic_phys.F 653 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('KPP_CALC',myThid)
./model/src/do_oceanic_phys.F 672 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('PP81_CALC',myThid)
./model/src/do_oceanic_phys.F 683 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('MY82_CALC',myThid)
./model/src/do_oceanic_phys.F 698 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('GGL90_CALC',myThid)
./model/src/do_oceanic_phys.F 736 DO_OCEANIC_PHYS 
          IF (debugMode) CALL DEBUG_CALL('GMREDI_CALC_TENSOR',myThid)
./model/src/do_oceanic_phys.F 803 DO_OCEANIC_PHYS 
      IF (debugMode) CALL DEBUG_LEAVE('DO_OCEANIC_PHYS',myThid)
./model/src/do_the_model_io.F 52 DO_THE_MODEL_IO 
      IF (debugMode) THEN
./pkg/seaice/seaice_model.F 159 SEAICE_MODEL 
      IF (debugMode) CALL DEBUG_CALL( 'SEAICE_DYNSOLVER', myThid )
./pkg/seaice/seaice_model.F 190 SEAICE_MODEL 
       IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ADVDIFF', myThid )
./pkg/seaice/seaice_model.F 215 SEAICE_MODEL 
        IF (debugMode) CALL DEBUG_CALL( 'SEAICE_GROWTH', myThid )
./pkg/seaice/seaice_model.F 312 SEAICE_MODEL 
      IF (debugMode) CALL DEBUG_LEAVE( 'SEAICE_MODEL', myThid )
./pkg/seaice/seaice_model.F 65 SEAICE_MODEL 
      IF (debugMode) CALL DEBUG_ENTER( 'SEAICE_MODEL', myThid )
./model/src/dynamics.F 250 DYNAMICS 
      IF (debugMode) CALL DEBUG_ENTER( 'DYNAMICS', myThid )
./model/src/dynamics.F 642 DYNAMICS 
         IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid )
./model/src/dynamics.F 722 DYNAMICS 
      IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid )
./pkg/showflops/showflops_init.F 45 SHOWFLOPS_INIT 
      IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INIT',myThid)
./pkg/showflops/showflops_init.F 91 SHOWFLOPS_INIT 
      IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INIT',myThid)
./pkg/showflops/showflops_inloop.F 110 SHOWFLOPS_INLOOP 
      IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INLOOP',myThid)
./pkg/showflops/showflops_inloop.F 51 SHOWFLOPS_INLOOP 
      IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INLOOP',myThid)
./pkg/showflops/showflops_insolve.F 107 SHOWFLOPS_INSOLVE 
      IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INSOLVE',myThid)
./pkg/showflops/showflops_insolve.F 51 SHOWFLOPS_INSOLVE 
      IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INSOLVE',myThid)
./model/src/forward_step.F 1095 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_LEAVE('FORWARD_STEP',myThid)
./model/src/forward_step.F 186 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_ENTER('FORWARD_STEP',myThid)
./model/src/forward_step.F 239 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_CALL('',myThid)
./model/src/forward_step.F 249 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid)
./model/src/forward_step.F 266 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('BULKF_FORCING',myThid)
./model/src/forward_step.F 279 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('CHEAPAML',myThid)
./model/src/forward_step.F 324 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('EBM',myThid)
./model/src/forward_step.F 335 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_CALL('DO_ATMOSPHERIC_PHYS',myThid)
./model/src/forward_step.F 377 FORWARD_STEP 
       IF (debugMode) CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid)
./model/src/forward_step.F 430 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('GCHEM_CALC_TENDENCY',myThid)
./model/src/forward_step.F 508 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid)
./model/src/forward_step.F 515 FORWARD_STEP 
        IF (debugMode)
./model/src/forward_step.F 529 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)
./model/src/forward_step.F 546 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid)
./model/src/forward_step.F 553 FORWARD_STEP 
        IF (debugMode)
./model/src/forward_step.F 634 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('DYNAMICS',myThid)
./model/src/forward_step.F 879 FORWARD_STEP 
        IF (debugMode)
./model/src/forward_step.F 896 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)
./model/src/forward_step.F 924 FORWARD_STEP 
        IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid)
./model/src/forward_step.F 933 FORWARD_STEP 
        IF (debugMode)
./model/src/forward_step.F 971 FORWARD_STEP 
         IF (debugMode) CALL DEBUG_CALL('GCHEM_FORCING_SEP',myThid)
./verification/OpenAD/code_oad_all/the_first_level_loop.F 100 THE_FIRST_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
./verification/OpenAD/code_oad_all/the_first_level_loop.F 106 THE_FIRST_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_FIRST_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_first_level_loop.F 93 THE_FIRST_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_FIRST_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 108 THE_FOURTH_LEVEL_LOOP 
            IF (debugMode) CALL DEBUG_CALL('THE_THIRD_LEVEL_LOOP',
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 118 THE_FOURTH_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_FOURTH_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 202 THE_FOURTH_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_FOURTH_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 212 THE_FOURTH_LEVEL_PLAIN 
               IF (debugMode) CALL DEBUG_CALL('THE_THIRD_LEVEL_LOOP',
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 223 THE_FOURTH_LEVEL_PLAIN 
         IF (debugMode) CALL DEBUG_CALL('THE_THIRD_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 231 THE_FOURTH_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_FOURTH_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F 99 THE_FOURTH_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_FOURTH_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_model_main.F 523 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
./verification/OpenAD/code_oad_all/the_model_main.F 533 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
./verification/OpenAD/code_oad_all/the_model_main.F 608 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_model_main.F 698 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_model_main.F 736 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
./verification/OpenAD/code_oad_all/the_second_level_loop.F 100 THE_SECOND_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_second_level_loop.F 115 THE_SECOND_LEVEL_LOOP 
            IF (debugMode) CALL DEBUG_CALL('THE_FIRST_LEVEL_LOOP',
./verification/OpenAD/code_oad_all/the_second_level_loop.F 123 THE_SECOND_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_SECOND_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_second_level_loop.F 207 THE_SECOND_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_second_level_loop.F 219 THE_SECOND_LEVEL_PLAIN 
            IF (debugMode) CALL DEBUG_CALL('THE_FIRST_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_second_level_loop.F 226 THE_SECOND_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_SECOND_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_third_level_loop.F 108 THE_THIRD_LEVEL_LOOP 
            IF (debugMode) CALL DEBUG_CALL('THE_SECOND_LEVEL_LOOP',
./verification/OpenAD/code_oad_all/the_third_level_loop.F 118 THE_THIRD_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_THIRD_LEVEL_LOOP',myThid)
./verification/OpenAD/code_oad_all/the_third_level_loop.F 202 THE_THIRD_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_THIRD_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_third_level_loop.F 212 THE_THIRD_LEVEL_PLAIN 
               IF (debugMode) CALL DEBUG_CALL('THE_SECOND_LEVEL_LOOP',
./verification/OpenAD/code_oad_all/the_third_level_loop.F 223 THE_THIRD_LEVEL_PLAIN 
         IF (debugMode) CALL DEBUG_CALL('THE_SECOND_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_third_level_loop.F 231 THE_THIRD_LEVEL_PLAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_THIRD_LEVEL_PLAIN',myThid)
./verification/OpenAD/code_oad_all/the_third_level_loop.F 99 THE_THIRD_LEVEL_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_THIRD_LEVEL_LOOP',myThid)
./verification/advect_xy/code/ini_salt.F 127 INI_SALT 
      IF (debugMode) THEN
./verification/advect_xy/code/ini_theta.F 149 INI_THETA 
      IF (debugMode) THEN
./model/src/ini_nlfs_vars.F 152 INI_NLFS_VARS 
      IF (debugMode) CALL DEBUG_LEAVE('INI_NLFS_VARS',myThid)
./model/src/ini_nlfs_vars.F 47 INI_NLFS_VARS 
      IF (debugMode) CALL DEBUG_ENTER('INI_NLFS_VARS',myThid)
./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/ini_salt.F 130 INI_SALT 
      IF (debugMode) THEN
./verification/hs94.1x64x5/code/ini_theta.F 127 INI_THETA 
      IF (debugMode) THEN
./model/src/ini_theta.F 149 INI_THETA 
      IF (debugMode) THEN
./verification/hs94.1x64x5/code_ad/ini_theta.F 127 INI_THETA 
      IF (debugMode) THEN
./verification/hs94.cs-32x32x5/code/ini_theta.F 127 INI_THETA 
      IF (debugMode) THEN
./model/src/initialise_varia.F 112 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_ENTER('INITIALISE_VARIA',myThid)
./model/src/initialise_varia.F 126 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_LINEAR_PHISURF',myThid)
./model/src/initialise_varia.F 132 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_CG2D',myThid)
./model/src/initialise_varia.F 148 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_CG3D',myThid)
./model/src/initialise_varia.F 157 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_DYNVARS',myThid)
./model/src/initialise_varia.F 171 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_FIELDS',myThid)
./model/src/initialise_varia.F 177 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_MIXING',myThid)
./model/src/initialise_varia.F 188 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)
./model/src/initialise_varia.F 199 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('PACKAGES_INIT_VARIABLES',myThid)
./model/src/initialise_varia.F 216 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('CONVECTIVE_ADJUSTMENT_INI',myThid)
./model/src/initialise_varia.F 260 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('INTEGR_CONTINUITY',myThid)
./model/src/initialise_varia.F 275 INITIALISE_VARIA 
        IF (debugMode) CALL DEBUG_CALL('UPDATE_ETAH',myThid)
./model/src/initialise_varia.F 322 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('STATE_SUMMARY',myThid)
./model/src/initialise_varia.F 328 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid)
./model/src/initialise_varia.F 336 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_TAVE',myThid)
./model/src/initialise_varia.F 344 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid)
./model/src/initialise_varia.F 349 INITIALISE_VARIA 
      IF (debugMode) CALL DEBUG_LEAVE('INITIALISE_VARIA',myThid)
./model/src/load_fields_driver.F 123 LOAD_FIELDS_DRIVER 
      IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid )
./model/src/load_fields_driver.F 130 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid)
./model/src/load_fields_driver.F 142 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('EXF_GETFORCING',myThid)
./model/src/load_fields_driver.F 154 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid)
./model/src/load_fields_driver.F 164 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)
./model/src/load_fields_driver.F 181 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid)
./model/src/load_fields_driver.F 192 LOAD_FIELDS_DRIVER 
        IF (debugMode) CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid)
./model/src/load_fields_driver.F 212 LOAD_FIELDS_DRIVER 
      IF (debugMode) CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid )
./verification/natl_box_adjoint/code_pack/the_model_main.F 497 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
./verification/natl_box_adjoint/code_pack/the_model_main.F 501 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
./verification/natl_box_adjoint/code_pack/the_model_main.F 551 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
./verification/offline_exf_seaice/code_ad/the_main_loop.F 146 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid)
./verification/offline_exf_seaice/code_ad/the_main_loop.F 182 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)
./verification/offline_exf_seaice/code_ad/the_main_loop.F 395 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
./verification/offline_exf_seaice/code_ad/the_main_loop.F 562 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid)
./verification/offline_exf_seaice/code_ad/the_model_main.F 497 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
./verification/offline_exf_seaice/code_ad/the_model_main.F 507 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
./verification/offline_exf_seaice/code_ad/the_model_main.F 582 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./verification/offline_exf_seaice/code_ad/the_model_main.F 621 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./verification/offline_exf_seaice/code_ad/the_model_main.F 659 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
./model/src/packages_init_variables.F 115 PACKAGES_INIT_VARIABLES 
      IF (debugMode)
./model/src/packages_init_variables.F 128 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 140 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid)
./model/src/packages_init_variables.F 150 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 166 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 176 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 193 PACKAGES_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 205 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 216 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 225 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 236 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 241 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid)
./model/src/packages_init_variables.F 273 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
./model/src/packages_init_variables.F 286 PACKAGES_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
./model/src/packages_init_variables.F 290 PACKAGES_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid)
./model/src/packages_init_variables.F 293 PACKAGES_INIT_VARIABLES 
      IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid)
./model/src/packages_init_variables.F 302 PACKAGES_INIT_VARIABLES 
       IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
./model/src/packages_init_variables.F 346 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
./model/src/packages_init_variables.F 356 PACKAGES_INIT_VARIABLES 
       IF (debugMode)
./model/src/packages_init_variables.F 367 PACKAGES_INIT_VARIABLES 
       IF (debugMode)
./model/src/packages_init_variables.F 377 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
./model/src/packages_init_variables.F 386 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
./model/src/packages_init_variables.F 396 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
./model/src/packages_init_variables.F 405 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
./model/src/packages_init_variables.F 449 PACKAGES_INIT_VARIABLES 
        IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
./model/src/packages_init_variables.F 456 PACKAGES_INIT_VARIABLES 
      IF (debugMode)
./model/src/set_defaults.F 186 SET_DEFAULTS 
      debugMode             = .FALSE.
./model/src/the_main_loop.F 173 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid)
./model/src/the_main_loop.F 233 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)
./model/src/the_main_loop.F 454 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid)
./model/src/the_main_loop.F 469 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
./model/src/the_main_loop.F 559 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 518 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_LEAVE('INITIALISE_FIXED',myThid)
./model/src/the_model_main.F 550 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('G_THE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 564 THE_MODEL_MAIN 
         IF (debugMode) CALL DEBUG_CALL('MDTHE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 572 THE_MODEL_MAIN 
         IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 582 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 596 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 600 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 635 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
./model/src/the_model_main.F 673 THE_MODEL_MAIN 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
./model/src/thermodynamics.F 199 THERMODYNAMICS 
      IF (debugMode) CALL DEBUG_ENTER('THERMODYNAMICS',myThid)
./model/src/thermodynamics.F 376 THERMODYNAMICS 
          IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
./model/src/thermodynamics.F 390 THERMODYNAMICS 
          IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid)
./model/src/thermodynamics.F 402 THERMODYNAMICS 
          IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
./model/src/thermodynamics.F 416 THERMODYNAMICS 
          IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid)
./model/src/thermodynamics.F 433 THERMODYNAMICS 
         IF (debugMode) CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid)
./model/src/thermodynamics.F 442 THERMODYNAMICS 
        IF (debugMode)
./model/src/thermodynamics.F 940 THERMODYNAMICS 
      IF (debugMode) CALL DEBUG_LEAVE('THERMODYNAMICS',myThid)
./pkg/admtlm/admtlm_driver.F 46 ADMTLM_DRIVER 
      IF (debugMode) CALL DEBUG_ENTER('ADMTLM_DRIVER',myThid)
./pkg/admtlm/admtlm_driver.F 89 ADMTLM_DRIVER 
      IF (debugMode) CALL DEBUG_LEAVE('ADMTLM_DRIVER',myThid)
./pkg/down_slope/dwnslp_apply.F 128 DWNSLP_APPLY 
       IF (debugMode) THEN
./pkg/down_slope/dwnslp_apply.F 173 DWNSLP_APPLY 
         IF (debugMode) THEN
./pkg/down_slope/dwnslp_apply.F 190 DWNSLP_APPLY 
       IF (debugMode) WRITE(DWNSLP_ioUnit,*)
./pkg/down_slope/dwnslp_calc_flow.F 140 DWNSLP_CALC_FLOW 
      IF (debugMode) THEN
./pkg/down_slope/dwnslp_init_fixed.F 330 DWNSLP_INIT_FIXED 
      IF ( DWNSLP_ioUnit.NE.standardMessageUnit .AND. .NOT.debugMode )
./pkg/ecco/ecco_cost_driver.F 114 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_hyd',myThid)
./pkg/ecco/ecco_cost_driver.F 122 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('seaice_cost_driver',myThid)
./pkg/ecco/ecco_cost_driver.F 133 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_obcs',myThid)
./pkg/ecco/ecco_cost_driver.F 142 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_curmtr',myThid)
./pkg/ecco/ecco_cost_driver.F 153 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_drifter',myThid)
./pkg/ecco/ecco_cost_driver.F 165 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_scat',myThid)
./pkg/ecco/ecco_cost_driver.F 176 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_drift',myThid)
./pkg/ecco/ecco_cost_driver.F 184 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_driftw',myThid)
./pkg/ecco/ecco_cost_driver.F 47 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_atlantic',myThid)
./pkg/ecco/ecco_cost_driver.F 57 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_forcing',myThid)
./pkg/ecco/ecco_cost_driver.F 83 ECCO_COST_DRIVER 
      IF (debugMode) CALL DEBUG_CALL('cost_ssh',myThid)
./pkg/ecco/forward_step.F 53 FORWARD_STEP 
      IF (debugMode) CALL DEBUG_ENTER('FORWARD_STEP',myThid)
./pkg/ecco/the_main_loop.F 1005 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_TAVE',myThid)
./pkg/ecco/the_main_loop.F 1016 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid)
./pkg/ecco/the_main_loop.F 1026 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid)
./pkg/ecco/the_main_loop.F 1038 THE_MAIN_LOOP 
          IF (debugMode) CALL DEBUG_CALL('DO_WRITE_PICKUP',myThid)
./pkg/ecco/the_main_loop.F 1048 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('DO_WRITE_PICKUP',myThid)
./pkg/ecco/the_main_loop.F 1063 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('END OF TIMESTEP',myThid)
./pkg/ecco/the_main_loop.F 1110 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid)
./pkg/ecco/the_main_loop.F 1124 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_atlantic',myThid)
./pkg/ecco/the_main_loop.F 1134 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_forcing',myThid)
./pkg/ecco/the_main_loop.F 1160 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_ssh',myThid)
./pkg/ecco/the_main_loop.F 1191 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_hyd',myThid)
./pkg/ecco/the_main_loop.F 1200 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('seaice_cost_driver',myThid)
./pkg/ecco/the_main_loop.F 1210 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_obcs',myThid)
./pkg/ecco/the_main_loop.F 1219 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_curmtr',myThid)
./pkg/ecco/the_main_loop.F 1230 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_drifter',myThid)
./pkg/ecco/the_main_loop.F 1242 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_scat',myThid)
./pkg/ecco/the_main_loop.F 1253 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_drift',myThid)
./pkg/ecco/the_main_loop.F 1261 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_driftw',myThid)
./pkg/ecco/the_main_loop.F 1296 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_final',myThid)
./pkg/ecco/the_main_loop.F 1307 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid)
./pkg/ecco/the_main_loop.F 211 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid)
./pkg/ecco/the_main_loop.F 262 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)
./pkg/ecco/the_main_loop.F 469 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_DIAGS',myThid)
./pkg/ecco/the_main_loop.F 482 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('profiles_inloop',myThid)
./pkg/ecco/the_main_loop.F 492 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid)
./pkg/ecco/the_main_loop.F 522 THE_MAIN_LOOP 
      IF (debugMode) CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid)
./pkg/ecco/the_main_loop.F 549 THE_MAIN_LOOP 
         IF (debugMode) CALL DEBUG_CALL('EBM',myThid)
./pkg/ecco/the_main_loop.F 560 THE_MAIN_LOOP 
       IF (debugMode) CALL DEBUG_CALL('DO_ATMOSPHERIC_PHYS',myThid)
./pkg/ecco/the_main_loop.F 586 THE_MAIN_LOOP 
       IF (debugMode) CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid)
./pkg/ecco/the_main_loop.F 624 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('GCHEM_CALC_TENDENCY',myThid)
./pkg/ecco/the_main_loop.F 676 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)
./pkg/ecco/the_main_loop.F 702 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('DYNAMICS',myThid)
./pkg/ecco/the_main_loop.F 840 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('SOLVE_FOR_PRESSURE',myThid)
./pkg/ecco/the_main_loop.F 852 THE_MAIN_LOOP 
        IF (debugMode)
./pkg/ecco/the_main_loop.F 868 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('UPDATE_ETAH',myThid)
./pkg/ecco/the_main_loop.F 906 THE_MAIN_LOOP 
        IF (debugMode)
./pkg/ecco/the_main_loop.F 923 THE_MAIN_LOOP 
        IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid)
./pkg/ecco/the_main_loop.F 939 THE_MAIN_LOOP 
        IF (debugMode)
./pkg/ecco/the_main_loop.F 957 THE_MAIN_LOOP 
         IF (debugMode) CALL DEBUG_CALL('GCHEM_FORCING_SEP',myThid)
./pkg/ecco/the_main_loop.F 971 THE_MAIN_LOOP 
      IF (debugMode)
./pkg/ecco/the_main_loop.F 982 THE_MAIN_LOOP 
       IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_DIAGS',myThid)
./pkg/exf/exf_readparms.F 230 EXF_READPARMS 
      exf_verbose        = debugMode