/[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.85 by heimbach, Sat Dec 4 17:57:06 2004 UTC revision 1.86 by heimbach, Fri Dec 10 19:56:31 2004 UTC
# Line 527  c Line 527  c
527                 CALL CTRL_UNPACK( .TRUE. , mythid )                 CALL CTRL_UNPACK( .TRUE. , mythid )
528                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
529              ENDIF              ENDIF
             IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN  
                CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)  
                CALL CTRL_PACK( .TRUE. , mythid )  
                CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)  
             ENDIF  
530           ENDIF           ENDIF
531        ENDIF        ENDIF
532        _END_MASTER( mythid )        _END_MASTER( mythid )
# Line 592  C--   Call time stepping loop of full mo Line 587  C--   Call time stepping loop of full mo
587           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
588           call CTRL_PACK( .FALSE. , mythid )           call CTRL_PACK( .FALSE. , mythid )
589           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
590             IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN
591                CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
592                CALL CTRL_PACK( .TRUE. , mythid )
593                CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
594             ENDIF
595        ENDIF        ENDIF
596        _END_MASTER( mythid )        _END_MASTER( mythid )
597        _BARRIER        _BARRIER
Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86
  ViewVC Help
Powered by ViewVC 1.1.22