/[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.107 by jmc, Wed Jan 13 01:41:20 2010 UTC revision 1.108 by gforget, Sat Sep 25 18:21:03 2010 UTC
# Line 528  c Line 528  c
528  #elif ( defined (ALLOW_AUTODIFF))  #elif ( defined (ALLOW_AUTODIFF))
529    
530  # ifndef EXCLUDE_CTRL_PACK  # ifndef EXCLUDE_CTRL_PACK
       _BEGIN_MASTER( mythid )  
       IF (myProcId .eq. 0) THEN  
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 .AND. doMainUnpack ) THEN
# Line 538  c Line 536  c
536                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
537              ENDIF              ENDIF
538           ENDIF           ENDIF
       ENDIF  
       _END_MASTER( mythid )  
       _BARRIER  
539  # endif /* EXCLUDE_CTRL_PACK */  # endif /* EXCLUDE_CTRL_PACK */
540    
541  # ifdef ALLOW_COST  # ifdef ALLOW_COST
# Line 610  C--   Call time stepping loop of full mo Line 605  C--   Call time stepping loop of full mo
605  # endif  # endif
606    
607  # ifndef EXCLUDE_CTRL_PACK  # ifndef EXCLUDE_CTRL_PACK
608        _BEGIN_MASTER( mythid )        IF ( lastdiva .AND. doMainPack ) THEN
       IF ( myProcId .eq. 0 .AND. lastdiva .AND. doMainPack ) THEN  
609           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
610           CALL CTRL_PACK( .FALSE. , mythid )           CALL CTRL_PACK( .FALSE. , mythid )
611           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
# Line 622  C--   Call time stepping loop of full mo Line 616  C--   Call time stepping loop of full mo
616              CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)              CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
617           ENDIF           ENDIF
618        ENDIF        ENDIF
       _END_MASTER( mythid )  
       _BARRIER  
619  # endif /* EXCLUDE_CTRL_PACK */  # endif /* EXCLUDE_CTRL_PACK */
620    
621    
Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108
  ViewVC Help
Powered by ViewVC 1.1.22