/[MITgcm]/MITgcm/model/src/the_model_main.F
ViewVC logotype

Diff of /MITgcm/model/src/the_model_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.65 by heimbach, Thu Oct 30 19:09:05 2003 UTC revision 1.66 by edhill, Tue Nov 4 18:40:58 2003 UTC
# Line 507  c--   set default: Line 507  c--   set default:
507  #endif  #endif
508        lastdiva = .TRUE.        lastdiva = .TRUE.
509    
510  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
511        IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)        IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
512  #endif  #endif
513    
514  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
515        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)
516    
517  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
518        IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)        IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
519  #endif  #endif
520    
# Line 611  c Line 611  c
611    
612  #else /* ALL AD-related undef */  #else /* ALL AD-related undef */
613    
614  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
615        IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)        IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
616  #endif  #endif
617    
# Line 643  C--   Write timer statistics Line 643  C--   Write timer statistics
643         CALL COMM_STATS         CALL COMM_STATS
644        ENDIF        ENDIF
645    
646  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
647        IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)        IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
648  #endif  #endif
649    
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22