/[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.87 by heimbach, Wed Jan 26 14:39:20 2005 UTC revision 1.88 by heimbach, Wed Feb 23 21:15:59 2005 UTC
# Line 521  c Line 521  c
521        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
522        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
523           inquire( file='costfinal', exist=exst )           inquire( file='costfinal', exist=exst )
524           IF ( .NOT. exst .AND. niter0 .EQ. 0 ) THEN           IF ( .NOT. exst ) THEN
525              IF ( optimcycle.NE.0 ) THEN              IF ( optimcycle.NE.0 ) THEN
526                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
527                 CALL CTRL_UNPACK( .TRUE. , mythid )                 CALL CTRL_UNPACK( .TRUE. , mythid )
Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88
  ViewVC Help
Powered by ViewVC 1.1.22