/[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.108 by gforget, Sat Sep 25 18:21:03 2010 UTC revision 1.109 by gforget, Wed Nov 10 22:07:52 2010 UTC
# Line 530  c Line 530  c
530  # ifndef EXCLUDE_CTRL_PACK  # ifndef EXCLUDE_CTRL_PACK
531           inquire( file='costfinal', exist=exst )           inquire( file='costfinal', exist=exst )
532           IF ( .NOT. exst ) THEN           IF ( .NOT. exst ) THEN
533              IF ( optimcycle.NE.0 .AND. doMainUnpack ) THEN              IF ( (optimcycle.NE.0 .OR. .NOT.doinitxx)
534         &           .AND. doMainUnpack ) THEN
535                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
536                 CALL CTRL_UNPACK( .TRUE. , mythid )                 CALL CTRL_UNPACK( .TRUE. , mythid )
537                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109
  ViewVC Help
Powered by ViewVC 1.1.22