/[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.52 by heimbach, Wed Mar 5 23:39:53 2003 UTC revision 1.53 by heimbach, Fri Mar 7 05:51:52 2003 UTC
# Line 462  C     myCurrentIter - Iteration counter Line 462  C     myCurrentIter - Iteration counter
462        logical  exst        logical  exst
463        logical  lastdiva        logical  lastdiva
464  CEOP  CEOP
465    c--   set default:
466          lastdiva = .TRUE.
467    
468  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
469        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)
# Line 526  c-- Line 528  c--
528    
529        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
530        IF ( myProcId .eq. 0 .AND. lastdiva ) THEN        IF ( myProcId .eq. 0 .AND. lastdiva ) THEN
531           CALL TIMER_START('CTLR_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
532           call CTRL_PACK( mycurrentiter, mycurrenttime, mythid )           call CTRL_PACK( mycurrentiter, mycurrenttime, mythid )
533           CALL TIMER_STOP ('CTLR_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
534        ENDIF        ENDIF
535        _END_MASTER( mythid )        _END_MASTER( mythid )
536        _BARRIER        _BARRIER
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22