/[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.53 by heimbach, Fri Mar 7 05:51:52 2003 UTC revision 1.54 by adcroft, Tue May 13 17:42:00 2003 UTC
# Line 465  CEOP Line 465  CEOP
465  c--   set default:  c--   set default:
466        lastdiva = .TRUE.        lastdiva = .TRUE.
467    
468    #ifndef DISABLE_DEBUGMODE
469          IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
470    #endif
471    
472  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
473        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)
474    
475    #ifndef DISABLE_DEBUGMODE
476          IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
477    #endif
478    
479  C--   Set model configuration (fixed arrays)  C--   Set model configuration (fixed arrays)
480        CALL TIMER_START('INITIALISE_FIXED       [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('INITIALISE_FIXED       [THE_MODEL_MAIN]',myThid)
481        CALL INITIALISE_FIXED( myThid )        CALL INITIALISE_FIXED( myThid )
# Line 546  c-- Line 554  c--
554    
555  #else /* ALLOW_ADJOINT_RUN undef */  #else /* ALLOW_ADJOINT_RUN undef */
556    
557    #ifndef DISABLE_DEBUGMODE
558          IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid)
559    #endif
560    
561  C--   Call time stepping loop of full model  C--   Call time stepping loop of full model
562        CALL TIMER_START('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('THE_MAIN_LOOP          [THE_MODEL_MAIN]',myThid)
563        CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )        CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )
# Line 574  C--   Write timer statistics Line 586  C--   Write timer statistics
586         CALL COMM_STATS         CALL COMM_STATS
587        ENDIF        ENDIF
588    
589    #ifndef DISABLE_DEBUGMODE
590          IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid)
591    #endif
592    
593        RETURN        RETURN
594        END        END
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54
  ViewVC Help
Powered by ViewVC 1.1.22