/[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.74 by dimitri, Tue Mar 2 08:45:46 2004 UTC revision 1.77 by heimbach, Fri May 28 15:47:01 2004 UTC
# Line 540  c Line 540  c
540        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
541           inquire( file='costfinal', exist=exst )           inquire( file='costfinal', exist=exst )
542           IF ( .NOT. exst .AND. niter0 .EQ. 0 ) THEN           IF ( .NOT. exst .AND. niter0 .EQ. 0 ) THEN
543              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)              IF ( optimcycle.NE.0 ) THEN
544              CALL CTRL_UNPACK( .TRUE. , mythid )                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
545              CALL TIMER_STOP ('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)                 CALL CTRL_UNPACK( .TRUE. , mythid )
546                   CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
547                ENDIF
548              IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN              IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN
549                 CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)                 CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
550                 CALL CTRL_PACK( .TRUE. , mythid )                 CALL CTRL_PACK( .TRUE. , mythid )
# Line 635  C--   Final checkpoint (in case the in-l Line 637  C--   Final checkpoint (in case the in-l
637        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('ALL                    [THE_MODEL_MAIN]',myThid)
638    
639  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
640  C     Close all open NetCDF files        IF (useMNC) THEN
641        _BEGIN_MASTER( mythid )  C       Close all open NetCDF files
642        CALL MNC_FILE_CLOSE_ALL()          _BEGIN_MASTER( mythid )
643        _END_MASTER( mythid )          CALL MNC_FILE_CLOSE_ALL( myThid )
644            _END_MASTER( mythid )
645          ENDIF
646  #endif  #endif
647    
648  C--   Write timer statistics  C--   Write timer statistics
Legend:
Removed from v.1.74  
changed lines
  Added in v.1.77
  ViewVC Help
Powered by ViewVC 1.1.22