/[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.66 by edhill, Tue Nov 4 18:40:58 2003 UTC revision 1.67 by heimbach, Thu Nov 6 22:01:43 2003 UTC
# Line 538  c Line 538  c
538        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
539        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
540           inquire( file='costfinal', exist=exst )           inquire( file='costfinal', exist=exst )
541           IF ( .NOT. exst ) THEN           IF ( .NOT. exst .AND. niter0 .EQ. 0 ) THEN
542              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)
543              CALL CTRL_UNPACK( .TRUE. , mythid )              CALL CTRL_UNPACK( .TRUE. , mythid )
544              CALL TIMER_STOP ('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)              CALL TIMER_STOP ('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22