/[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.64 by heimbach, Mon Oct 27 22:32:55 2003 UTC revision 1.65 by heimbach, Thu Oct 30 19:09:05 2003 UTC
# Line 469  C     == Global variables === Line 469  C     == Global variables ===
469  #include "PARAMS.h"  #include "PARAMS.h"
470  #include "DYNVARS.h"  #include "DYNVARS.h"
471  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
472  #include "CG3D.h"  # include "CG3D.h"
473  #endif  #endif
474    
475    #ifdef ALLOW_ECCO_OPTIMIZATION
476    # include "optim.h"
477    #endif
478  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
479  #include "tamc.h"  # include "tamc.h"
480  #endif  #endif
481    
482  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 494  C     myCurrentIter - Iteration counter Line 497  C     myCurrentIter - Iteration counter
497        _RL     myCurrentTime        _RL     myCurrentTime
498        logical  exst        logical  exst
499        logical  lastdiva        logical  lastdiva
500    #ifndef ALLOW_ECCO_OPTIMIZATION
501          integer optimcycle
502    #endif
503  CEOP  CEOP
504  c--   set default:  c--   set default:
505    #ifndef ALLOW_ECCO_OPTIMIZATION
506          optimcycle = 0
507    #endif
508        lastdiva = .TRUE.        lastdiva = .TRUE.
509    
510  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
# Line 525  c Line 534  c
534  c  c
535  #elif ( defined (ALLOW_AUTODIFF))  #elif ( defined (ALLOW_AUTODIFF))
536    
537    # ifndef EXCLUDE_CTRL_PACK
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 ) THEN
542              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)
543              CALL CTRL_UNPACK( mycurrentiter, mycurrenttime, 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)
545                IF ( optimcycle.EQ.0 .AND. mycurrentiter.EQ.niter0 ) THEN
546                   CALL TIMER_START('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
547                   CALL CTRL_PACK( .TRUE. , mythid )
548                   CALL TIMER_STOP ('CTRL_PACK     [THE_MODEL_MAIN]',mythid)
549                ENDIF
550           ENDIF           ENDIF
551        ENDIF        ENDIF
552        _END_MASTER( mythid )        _END_MASTER( mythid )
553        _BARRIER        _BARRIER
554    # endif /* EXCLUDE_CTRL_PACK */
555    
556        CALL COST_DEPENDENT_INIT ( mythid )        CALL COST_DEPENDENT_INIT ( mythid )
557        _BARRIER        _BARRIER
# Line 572  c-- Line 588  c--
588  c  c
589  # endif  # endif
590    
591    # ifndef EXCLUDE_CTRL_PACK
592        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
593        IF ( myProcId .eq. 0 .AND. lastdiva ) THEN        IF ( myProcId .eq. 0 .AND. lastdiva ) THEN
594           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
595           call CTRL_PACK( mycurrentiter, mycurrenttime, mythid )           call CTRL_PACK( .FALSE. , mythid )
596           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)           CALL TIMER_STOP ('CTRL_PACK           [THE_MODEL_MAIN]',mythid)
597        ENDIF        ENDIF
598        _END_MASTER( mythid )        _END_MASTER( mythid )
599        _BARRIER        _BARRIER
600  c  # endif /* EXCLUDE_CTRL_PACK */
601    
602    
603  # ifdef ALLOW_GRDCHK  # ifdef ALLOW_GRDCHK
604        IF ( useGrdchk .AND. lastdiva ) THEN        IF ( useGrdchk .AND. lastdiva ) THEN
Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65
  ViewVC Help
Powered by ViewVC 1.1.22