/[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.91 by ce107, Thu Dec 22 01:05:26 2005 UTC revision 1.92 by heimbach, Thu Dec 22 16:51:58 2005 UTC
# Line 464  C     == Global variables === Line 464  C     == Global variables ===
464  # include "tamc.h"  # include "tamc.h"
465  #endif  #endif
466  #ifdef ALLOW_CTRL  #ifdef ALLOW_CTRL
467    # include "ctrl.h"
468  # include "optim.h"  # include "optim.h"
469  #endif  #endif
470    
# Line 522  c Line 523  c
523        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
524           inquire( file='costfinal', exist=exst )           inquire( file='costfinal', exist=exst )
525           IF ( .NOT. exst ) THEN           IF ( .NOT. exst ) THEN
526              IF ( optimcycle.NE.0 ) THEN              IF ( optimcycle.NE.0 .AND. doMainUnpack ) THEN
527                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_START('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
528                 CALL CTRL_UNPACK( .TRUE. , mythid )                 CALL CTRL_UNPACK( .TRUE. , mythid )
529                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)                 CALL TIMER_STOP ('CTRL_UNPACK   [THE_MODEL_MAIN]',mythid)
# Line 583  C--   Call time stepping loop of full mo Line 584  C--   Call time stepping loop of full mo
584    
585  # ifndef EXCLUDE_CTRL_PACK  # ifndef EXCLUDE_CTRL_PACK
586        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
587        IF ( myProcId .eq. 0 .AND. lastdiva ) THEN        IF ( myProcId .eq. 0 .AND. lastdiva .AND. doMainPack ) THEN
588           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
589           call CTRL_PACK( .FALSE. , mythid )           CALL CTRL_PACK( .FALSE. , mythid )
590           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
591           IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN           IF ( ( optimcycle.EQ.0 .OR. (.NOT. doMainUnpack) )
592         &        .AND. mycurrentiter.EQ.niter0 ) THEN
593              CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)              CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
594              CALL CTRL_PACK( .TRUE. , mythid )              CALL CTRL_PACK( .TRUE. , mythid )
595              CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)              CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92
  ViewVC Help
Powered by ViewVC 1.1.22